Bonjour le Forum,
je viens demander votre aide pour modifier le code suivant
et pouvoir ainsi sélectionner une date dans la liste ci-dessous en la saisissant dans l'InputBox.
Cette liste est limitée à 52 dates.
Je suppose que ce qui "cloche" dans mon code est le format de saisie de la date mais je ne parviens pas à corriger !
Remerciements pour vos réponses et bonne journée.
Cordialement.
Nonno 94.
je viens demander votre aide pour modifier le code suivant
Code:
Private Sub CommandButton4_Click()
Dim aa, a As Range
aa = InputBox("Saisissez la Date de début du Séjour au format jj/mm/aa", "Sélection du Séjour")
Set a = [L6:L57].Find(aa)
If a Is Nothing Then MsgBox "Ce n'est pas une Date de Séjour ! Resaisissez une Date.": Exit Sub
a.Select
End Sub
et pouvoir ainsi sélectionner une date dans la liste ci-dessous en la saisissant dans l'InputBox.
Code:
mercredi 15 juin 2011
lundi 12 décembre 2011
jeudi 25 novembre 2010
samedi 2 février 2008
mercredi 15 août 2012
lundi 4 mai 2009
Cette liste est limitée à 52 dates.
Je suppose que ce qui "cloche" dans mon code est le format de saisie de la date mais je ne parviens pas à corriger !
Remerciements pour vos réponses et bonne journée.
Cordialement.
Nonno 94.
Dernière édition: