utilisation de find pour trouver date

Bonjour
J'essaie d'écrire un code qui me renvoie le numero de la ligne contenant une date...(sachant que la date que j'ai écrite est en B8)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub fdhjok()   b = Format(DateAdd("yyyy", -1, Now), "dd/mm/yyyy")   With Worksheets("2007").Range("B2:B500") Set b1 = .Find("17/01/2007", LookIn:=xlValues) If Not b1 Is Nothing Then Range(b1.Address).Select bligne = ActiveCell.Row MsgBox (bligne) ElseIf b1 Is Nothing Then MsgBox ("nfskpf") End If   End With   End Sub

---

Le probleme c est que ca ne me trouve pas la date (il me renvoie ma Msgbox "nfskpf"), et je ne comprend pas ce qui ne va pas dans mon code?...

Bonjour
c'est le parametre xlValues de la methode find qui ne va pas,la méthode "Find" en utilisant le paramètre "LookIn?:=xlFormulas" trouvera facilement la date recherchée quel que soit le format de la date affichée dans la cellule.
essaie avec

Code:

---

Set b1 = .Find(CDate("7/01/2007"),LookIn:=xlFormulas)

---

Bonne journée

Abed_H :king:

ok ca marche!!! ;)
mais ca marche aussi avec xlvalues...c est le "Cdate()" qui permet de resoudre le pb


En tout cas merci!:D

Ensuite, tu n'as pas besoin de faire tout ce cinéma pour récupérer la ligne, le code suivant suffit.

Code:

---

1 2 3 4

If Not b1 Is Nothing Then bligne =b1.Row MsgBox (bligne) elseif...

---

Select ne sert qu'à alourdir le code, et donc le ralentir, et ajoute en outre des mvts de feuille inutiles qui imposent l'utilisation de "Application.ScreenUpdating = False" qui nécessite à son tour de mettre ensuite "Application.ScreenUpdating = True" etc.
Juste un petit conseil en passant ;)

oui c est vrai...
Mais j'avais fait un code qui utilisait .Find, et ou b1.row directement ne marchait pas...