vba excel, recherche d'une date dans une cellule

[tahiti1]

Bonjour,

Je souhaiterais créer la macro suivante:
-Saisir une date dans une inputbox
-Rechercher la date dans un fichier excel
-Sélectionner la colonne (de la cellule comprenant la date)

je bloque totalement.... à l'aide.
Merci d'avance !!!

 

[Gorfael]

Re : vba excel, recherche d'une date dans une cellule

Bonjour,

Je souhaiterais créer la macro suivante:
-Saisir une date dans une inputbox
-Rechercher la date dans un fichier excel
-Sélectionner la colonne (de la cellule comprenant la date)

je bloque totalement.... à l'aide.
Merci d'avance !!!

Salut

Sub test()
Dim X As Date
Dim Cel As Range
X = CDate(InputBox("date"))
For Each Cel In UsedRange
    If Cel = X Then Columns(Cel.Column).Select
Next Cel
End Sub

ou

Sub test()
Dim X As Date
Dim Cel As Range
X = CDate(InputBox("date"))
Set Cel = UsedRange.Find(X)
Columns(Cel.Column).Select
End Sub

Comme tu le sents
A+