rechercher une date au moyen d'une inputbox

[Marc]

Bonjour le forum,

Je souhaiterais pouvoir rechercher une date au moyen d’une inputbox.
J’ai essayé plusieurs méthodes, la plus part fonctionne sans inputbox, dés que je rajoute une input box avec ma variable date cela ne fonctionne plus.
Quelqu’un peut-il m’aider ?

Voici ma première routine, elle fonctionne sans inputbox :

Sub recherche_date()
Worksheets('planning').Activate
Cells.Find(What:='20/01/05', After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End Sub

La seconde routine avec inputbox, elle ne fonctionne pas et je ne trouve pas l’erreur :

Sub recherche_date()
Dim vdate as Date
Worksheets('planning').Activate
Vdate = inputbox ('Entrez la date au format suivant: 00/00/00')
Cells.Find(What:='vdate', After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End Sub

Merci d’avance pour votre aide.

 

[ChTi160]

Salut Marc
bonjour le Forum
voilà ce que j'ai fait et qui fonctione à adapter sûrement
Sub recherche_date()
Dim vdate As Date
Dim C As Range

Worksheets('planning').Activate
vdate = InputBox('Entrez la date au format suivant: 00/00/00')
Set C = Cells.Find(What:=vdate, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If Not C Is Nothing Then
C.Activate
End If
End Sub

mais celleci fonctionne aussi sauf si la date n'existe pas Lol
Sub recherche_date()
Dim vdate As Date
Worksheets('planning').Activate
vdate = InputBox('Entrez la date au format suivant: 00/00/00')
Cells.Find(What:=vdate, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End Sub

Message édité par: ChTi160, à: 23/07/2005 17:51

 

[Marc]

Merci jean Marie pour ton aide, je vais tester ta procédure.

 

[Marc]

Parfait, cela fonction encore merci