Ajouter date picker popup
belba.yahya
Messages postés
117
Statut
Membre
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour
j'ai un formulaire à 11 textbox,et je veux créer un calendar date picker,mais je ne sais pas quel code VBA dois-je saisir et ou je peux le mettre.
y a t'il quelqu'un qui a une idée et merci
j'ai un formulaire à 11 textbox,et je veux créer un calendar date picker,mais je ne sais pas quel code VBA dois-je saisir et ou je peux le mettre.
y a t'il quelqu'un qui a une idée et merci
1 réponse
-
Bonjour
-
Bonjour Monsieur Michel
merci d'avance pour votre réponse,mon probléme que j'ai un formulaire de saisi,et quel code dois-je effectué et ou puis-je lemettre?
je veux ajouter le calendar dans le textbox(5) et (6)
le code de mon formulaire est:
Private Sub CommandButton1_Click()
'double click bouton Ajouter
If ComboBox1.Value = "" Then
MsgBox "Veuillez renseigner le champs 'Nom/Prénom' "
Else
Dim ligne As Integer
If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then
Worksheets("source").Select
ligne = Sheets("source").Range("A456541").End(xlUp).Row + 1
Cells(ligne, 1) = TextBox1.Value
Cells(ligne, 2) = ComboBox1.Value
Cells(ligne, 3) = TextBox2.Value
Cells(ligne, 4) = TextBox3.Value
Cells(ligne, 5) = TextBox4.Value
Cells(ligne, 6) = CDate(TextBox5.Value) '''''''''''''''''''''''''''''''''''''''''''''''''''''' ICI """""""""""""""""""""""""""""""""
Cells(ligne, 7) = CDate(TextBox6.Value) '''''''''''''''''''''''''''''''''''''''''''''''''''''' ICI """""""""""""""""""""""""""""""""
Cells(ligne, 8) = TextBox7.Value
Cells(ligne, 9) = TextBox8.Value
Cells(ligne, 10) = TextBox9.Value
Cells(ligne, 11) = TextBox10.Value
Unload reservation
reservation.Show
Else
End If
End If
End Sub -
-
-
