Rechercher une cellule avec la méthode find

[Warhols]

Salut tout le monde,

J'essaye de faire fonctionner la méthode find sur un bouton qui permet de retrouver la case excel correspondante. j'arrive bien à le faire pour trouver par exemple "toto" mais pas une date.

Cette fonction m'est utile mais je n'arrive pas à la faire fonctionner avec une date. Je recherche la date du 01/01/2005 dans mon fichier qui a le format jj-mmm mais avec une date pas moyen de la faire fonctionner.

Ex:
With Worksheets("MFeuille").Range("A1:A5")
Set Toto = .Find(What:="01-janv", LookIn:=xlValues)
End With

Il me retourne rien

J'ai pensé faire
With Worksheets("MFeuille").Range("A1:A5")
Set Toto = .Find(What:="01/01/2005", LookIn:=xlFormulas)
End With

Mais pareil, il ne me retrouve rien.

Je sais plus quoi faire donc je me tourne vers vous.

Merci par avance

 

[excalibur]

essai cela chez moi ca marche Sub ChercheCell()
Dim Plage As Range
Dim cell As Range
Set Plage = Range("a53", [a53].End(xlDown)).SpecialCells(xlCellTypeVisible)
On Error Resume Next
Plage.Find([k10]).Select
'ou si tu veus selectionner la cellule dans la colonne b
'Plage.Find([k10]).Offset(1, 1).Activate
End Sub

 

[F.Launay]

bonsoir
ci joins un petit bout de code qui t'aideras à chercher
et à trouver
Sub Cherche_Texte_dans_colonne()
Dim X, C, Col&, K, Plage As Range
Set Plage = Range("F2:F500")
Plage.Select
X = "=S*"
Col = 6
Set C = Plage.Find(X, LookIn:=xlFormulas)
If C Is Nothing Then
MsgBox ("ras")
Else
Range(C.Address).Select
selection.name=repere
MsgBox (X & " trouvé à cette adresse " & C.Address & " ligne : " & C.Row & " colonne: " & C.Column)
End If
End Sub