Userform Calendar - Validation date

Bonjour à tous

Ma demande va paraître simple pour les Pros du VBA, mais je suis débutant.
J’aimerais valider une date avec le Userform Calendar
(Voir mon fichier en annexe)

Si vous voyez une amélioration à apporter à ma présentation ou autre bouton à ajouter, je suis preneur.

Grand merci pour votre aide
Jorisphi

Bonjour

Je n'ai pas compris le rôle de la listbox, si on a une seule date un textbox ferait simplement le travail.

Ci dessous un code à tester

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Calendar1_Click() Validerdate.Visible = True ListBoxCalendrier.AddItem Format(Calendar1.Value, "dddd dd/mm/yyyy") End Sub     Private Sub Quitterdate_Click() Unload UserForm1 End Sub   Private Sub UserForm_Initialize() Validerdate.Visible = False End Sub   Private Sub Validerdate_Click() [e6] = ListBoxCalendrier.List(0) End Sub

---

Pour éviter une erreur le bouton valider est visible que si une date à été sélectionnée.
Code à modifier si on désire sélectionner plusieurs dates
JP

Bonjour jp014

Grand merci pour votre réponse
Vous avez totalement raison, ma listbox ne sert à rien (C’était juste pour visualiser les codes sélectionnés)
J’ai remodifié mon Userform (Voir annexe)

Par contre , votre suggestion « Pour éviter une erreur, le bouton valider est visible que si une date à été sélectionnée »
est super géniale !….
J’apprends aussi que l’on peut sélectionner plusieurs dates à la fois
C’est le cas dans mon projet. Je suis donc intéressé.

J’ai essayé hier soir, mais je m’en mêle les pinceaux (Je suis débutant)
Pouvez m’ajouter le code dans mon exemple et me le renvoyer, et ce, sans vous commander
(avec le bouton valider visible que si dates validées)

Et si possible , avec choix de plusieurs dates ?….

Grand merci pour votre aide précieuse
Cordialement
Jorisphi

Bonjour


Code pour avoir le format

Code:

---

Sheets("Feuil1").Range("E6") = Format(Calendar1.Value, "dddd dd/mm/yyyy")

---

Pour sélectionner plusieurs dates, il faut conserver la listbox, au moment de l'enregistrement on fait une boucle sur les données de la listbox pour enregistrer.
Ci dessous un exemple de code

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Validerdate_Click()   If Me.ListBoxCalendrier.ListCount < 2 Then Call MsgBox("Vous devez saisir 3 dates", vbExclamation, Application.Name) Exit Sub End If   [e6] = ListBoxCalendrier.List(0) [e7] = ListBoxCalendrier.List(1) [e8] = ListBoxCalendrier.List(2) End Sub

---

JP014

Bonjour JP014

Grand merci pour réponse et votre aide
Cordialement
Joriphi