Discussion :

[jorisphi]

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

[jp014]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jorisphi]

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

[jp014]

Bonjour


Code pour avoir le format

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jorisphi]

Bonjour JP014

Grand merci pour réponse et votre aide
Cordialement
Joriphi