Creation Formulaire Userform

[teckmicro]

bonjour

Si vous pouviez me créer un formulaire de saisie.
et j aimerais avoir un calendrier qui s 'ouvre pour la saisie de la date et Effectuée le !

je vous remercie d 'avance

si vous pouviez expliquer votre code ( pour que je puisse comprendre le fonctionnement )

cordialement

 

[JBARBE]

Re : Creation Formulaire Userform

Bonjour à tous,

En faisant une recherche sur le Web :

Exemple :

https://www.youtube.com/watch?v=0lLfojuPHk0

et bien d'autres :

https://www.youtube.com/watch?v=IWVYNum2OKs


Bonne journée

 

[JBARBE]

Re : Creation Formulaire Userform

Macro de la boite de dialogue avec commentaire

Private Sub CheckBox1_Click()
If UserForm1.CheckBox1 = True Then ' si la case à cocher est cochée
UserForm1.TxtCheque = Range("Numero") ' alors la valeur de la cellule Numero est selectionnée
Else
UserForm1.TxtCheque = "" ' sinon vide
End If
End Sub

Private Sub CmdAnnuler_Click()
Unload UserForm1 ' fermeture de la boite de dialogue
End Sub

Private Sub CmdMoins_Click()
TxtDate = CDate(TxtDate) - 1 ' En cliquant sur le bouton moins la date diminue
End Sub

Private Sub CmdOK_Click()
Dim vMessageErreur As String ' variable
Dim Message As String ' variable
Dim vErreur As Integer ' variable
vMessageErreur = "" ' la variable qui contiendra l'éventuel message d'erreur est initialisée
vErreur = 0 ' La variable contiendra 1 si une erreur est détectée par les tests qui suivent
If UserForm1.CheckBox1 = False Then ' vérification s'il y a un chéque
Message = MsgBox("Y as t-il un Chéque", vbYesNo, "ATTENTION")
If Message = vbYes Then ' si oui
UserForm1.CheckBox1 = True  ' case à cocher cochée
End If
End If
If UserForm1.CheckBox1 = True And UserForm1.TxtCheque = "" Then
vErreur = 1
vMessageErreur = vMessage + Chr(10) + "le Chéque"
End If
If UserForm1.TxtMontant = "" Then
vErreur = 1
vMessageErreur = vMessage + Chr(10) + "le Montant"
End If
If vErreur = 1 Then ' si une erreur a été détectée par l'un des tests précédents
 MsgBox "Vous avez oublié" + vMessageErreur, , "Erreur" 'le message est affiché
 Exit Sub ' la routine s'arrête
End If ' fin du test commencé à vErreur = 1
Range("A65536").End(xlUp)(2).Select ' la cellule suivante dans la colonne A est sélectionnée.Elle est vide
Selection = CDate(UserForm1.TxtDate) ' la colonne A avec cellule vide contiendra la date
Selection.Offset(0, 1) = UserForm1.ComboBox1.Value ' la colonne B avec cellule Vide contiendra les Fruits
Selection.Offset(0, 2) = UserForm1.ListBox1.Value
Selection.Offset(0, 3) = UserForm1.TxtCheque.Value
Selection.Offset(0, 4) = UserForm1.TxtMontant.Value
If UserForm1.TxtCheque <> "" Then Range("Numero") = Range("Numero") + 1 ' attribution d'un numéro supplémentaire dans la cellule Numéro
Unload UserForm1 ' Le formulaire est sorti de la mémoire
End Sub

Private Sub CmdPlus_Click()
TxtDate = CDate(TxtDate) + 1 ' En cliquant sur le bouton plus la date augmente
End Sub


Private Sub UserForm_Initialize()
 With ComboBox1 ' attribution à la combo des noms suivants
     .AddItem "Pommes"
     .AddItem "Poires"
     .AddItem "Bananes"
     .AddItem "Fraises"
     .AddItem "Oranges"
 End With
 With ListBox1 ' attribution à la liste déroulante des noms suivants
     .AddItem "Salades"
     .AddItem "Navets"
     .AddItem "Carottes"
     .AddItem "Pommes de terre"
     .AddItem "Choux"
     .AddItem "Artichaux"
     .AddItem "Asperge"
     .AddItem "Ail"
     .AddItem "Avocat"
     .AddItem "Betterave"
     .AddItem "Courgette"
     .AddItem "Celleri"
     .AddItem "Echalote"
     .AddItem "Epinard"
 End With
 UserForm1.ComboBox1.ListIndex = 0
 UserForm1.ListBox1.ListIndex = 0
End Sub

Macro du Module1 pour afficher le formulaire :

Sub essai()
UserForm1.TxtDate = Date ' TxtDate affiche la date lors de l'ouverture de la boite de dialogue
UserForm1.TxtCheque = "" ' TxtCheque est vide
UserForm1.Show ' ouverture de la boite de dialogue
End Sub

Bonne journée