Ajouter date picker popup
Fermé
belba.yahya
Messages postés
112
Date d'inscription
mercredi 2 janvier 2019
Statut
Membre
Dernière intervention
5 août 2020
-
5 janv. 2019 à 10:08
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 5 janv. 2019 à 10:57
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 5 janv. 2019 à 10:57
A voir également:
- Vba date picker excel 2016 userform
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Trier par date excel - Guide
1 réponse
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 304
Modifié le 5 janv. 2019 à 10:23
Modifié le 5 janv. 2019 à 10:23
5 janv. 2019 à 10:45
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
5 janv. 2019 à 10:51
soit on marque la date "à la main" soit on remplace les textbox par ces calendriers
5 janv. 2019 à 10:57
https://silkyroad.developpez.com/VBA/ControlesUserForm/