.FIND ne trouve pas les dates

Bonjour,

Malgré les nombreux exemples je ne trouve pas d'explication au non fonctionnement de ma macro !!
Je souhaite rechercher des dates à l'aide de la fonction "Find".
J'ai bien noté qu'à priori il fallait utiliser "LookIn:=xlFormulas" au lieu de "LookIn:=xlValues" mais rien n'y fait.
Le code reste muet !!
Il n'est pas complet puisque j'en suis qu'au module de recherche.
Cette macro est sensée rechercher une date de la feuille "Recup1" dans la feuille "Tampon"

Je suis sec :cry:
@+
Nono
Voici le code en question (fichier exemple joint également):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

Sub Maj()   ' Mise à jour de la feuille ' Fait une boucle de tout les jours de l'année, créer autant de ligne qu'il y a d'entrées par date     Dim oSht As Worksheet Dim lastRow As Long, i As Long Dim strSearch As String Dim t As Long Dim aCell As Range   Set oSht = Worksheets("Tampon")   lastRow = oSht.Range("B" & Rows.Count).End(xlUp).Row   For x = 2 To 250   On Error GoTo Err   strSearch = Worksheets("Recup1").Cells(157, "A") ' met la date référence calendrier en mémoire (05/06/05/06/2013)   Set aCell = oSht.Range("B4:B" & lastRow).Find(What:=strSearch, LookIn:=xlValues) 'Set aCell = oSht.Range("B4:B1000").Find(What:="05/06/2013", LookIn:=xlFormulas, lookat:=xlWhole)   If Not aCell Is Nothing Then Debug.Print "Trouvé !! " & vbCrLf & "Value Found in Cell " & aCell.Address Exit Sub End If   Next x Exit Sub   Err: MsgBox Err.Description   End Sub

---

Que dirais tu d'un:

Code:

---

.Find(cdate(tadate), LookIn:=xlValues, LookAt:=xlPart, SearchFormat:=False)

---

Remplace les lignes correspondantes par

Code:

---

Dim strSearch As Date

---

Et

Code:

---

Set aCell = oSht.Range("A4:A" & LastRow).Find(What:=strSearch, LookIn:=xlFormulas, lookat:=xlWhole)

---

Find avec les dates est à prendre avec précautions

Bonsoir,

Pour le typage de la variable "strSearch", pas en String mais en Date :

Code:

---

1 2	Dim strSearch As Date

---

Pour la conversion des String en Date :

Code:

---

1 2	strSearch = CDate(Worksheets("Recup1").Cells(157, "A"))

---

Normalement, la date devrait être trouvée si elle existe.

Hervé.

Bonsoir mercatog (et tous le forum bien sûr !),

Désolé, je n'ai pas rafraîchi :-(

Hervé.

RE,

Merci à vous tous, ça fonctionne à merveille !!!
Bon sang que l'on peut s'embêter pour des conn*** !
Bien vu aussi pour la colonne "A" au lieu de "B" ;)
(En fait j'ai ressorti les feuilles d'un classeur plus gros et je n'ai pas fait attention qu'il y avait un décalage !!)

Je retiendrai la leçon pour cette satanée fonction !!

Encore merci !!
:ccool:
@+

Nono