Sélectionner une date avec InputBox

Pierrot93

XLDnaute Barbatruc

• 11 Octobre 2011

• #2

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
@+

 

Vote positif 0 Vote négatif

N

Nonno 94

XLDnaute Occasionnel

• 11 Octobre 2011

• #3

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Octobre 2011

• #4

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 ??

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 11 Octobre 2011

• #5

Re : Sélectionner une date avec InputBox

Bonjour Nono,

Pierrot🙂

A tester, mais devrait le faire:

Code:

    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+

 

Vote positif 0 Vote négatif

N

Nonno 94

XLDnaute Occasionnel

• 11 Octobre 2011

• #6

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.

 

Dernière édition: 11 Octobre 2011

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Octobre 2011

• #7

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 :

Code:

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+

 

Pièces jointes

• InputBox(1).xls

  28 KB · Affichages: 64

Vote positif 0 Vote négatif

N

Nonno 94

XLDnaute Occasionnel

• 11 Octobre 2011

• #8

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.

 

Vote positif 0 Vote négatif