Sélectionner une date avec InputBox

[Nonno 94]

Bonjour le Forum,

je viens demander votre aide pour modifier le code suivant

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.

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.

 

[Pierrot93]

Re : Sélectionner une date avec InputBox

Bonjour,

euh... pas tout compris... le mieux eût été un petit fichier exemple avec données de départ et résultat attendu...

bonne journée
@+

 

[Nonno 94]

Re : Sélectionner une date avec InputBox

Bonjour Pierrot,

comme à mon habitude, j'éprouve des difficultés à me faire comprendre.
Je vais donc essayer de "faire mieux" (pas difficile semble-t-il !).

Dans la liste de dates ci-dessus, comment sélectionner avec l'InputBox le samedi 2 février 2008 en saisissant 2/2/08 dans l'InputBox ?

J'espère que cela te permettra de répondre à ma question et de m'indiquer comment modifier "mon code bancal" !

Merci d'avance.

A +.
Nonno 94.

 

[Pierrot93]

Re : Sélectionner une date avec InputBox

Re,

est ce que les dates ainsi formatées "mercredi 15 août 2012" sont bien reconnues par excel comme des dates dans ta feuille excel ??

 

[Guest]

Re : Sélectionner une date avec InputBox

Bonjour Nono,

Pierrot🙂

A tester, mais devrait le faire:

    If IsDate(aa) Then
        Set a = [L6:L57].Find(CDate(aa), LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows)
        If a Is Nothing Then MsgBox "Ce n'est pas une Date de Séjour ! Resaisissez une Date.": Exit Sub
        a.Select
    End If

If IsDate est là pour éviter de planter la fonction CDate(aa) au cas où l'utilsateur rentrerait autre chose qu'une date.

A+

 

[Nonno 94]

Re : Sélectionner une date avec InputBox

Re,

Oui : j'ai "tapé" 15/8/12.

Le fichier exemple en pièce jointe.

Nouveaux remerciements pour ta persévérence.

Nonno 94.

 

[job75]

Re : Sélectionner une date avec InputBox

Bonjour Nonno 94, Pierrot, Hasco,

Un code un peu plus élaboré pour contrôler l'entrée dans l'InpuBox :

Private Sub CommandButton1_Click()
Dim aa As String, a As Range
1 aa = InputBox("Saisissez la Date de début du Séjour au format jj/mm/aa", "Sélection du Séjour", aa)
If aa = "" Then Exit Sub
On Error Resume Next 'si aa n'est pas une date
Set a = [L6:L57].Find(CDate(aa), LookIn:=xlFormulas)
If a Is Nothing Then MsgBox "Ce n'est pas une Date de Séjour ! Resaisissez une Date.": GoTo 1
a.Select
End Sub

Fichier joint.

A+

 

[Nonno 94]

Re : Sélectionner une date avec InputBox

Parfait !

je n'ai plus qu'à te remercier et à te souhaiter une bonne journée !

A + peut-être pour de nouveaux codes "bancals" à corriger ?

Nonno 94.