Finalement, j'ai essayé de créer une sous routine qui prend en paramètre le numéro de la ligne dans laquelle se trouve la valeur à rechercher.. Bon voici le code :
Sub recherchonsencore(indice As Integer)
Dim valrech As String
Dim c As Range
Dim i As Integer
valrech = Sheets("PDL").Range("D" & indice).Value
i = 1
Do
With Sheets("PDL").Range("D3:D29")
Set c = .Find(What:=valrech, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
i = i + 1
If c Is NotNothing Then MsgBox i
End With
Loop While i < 29
End Sub
Mais ça m'affichait "objet requis".. ensuite je n'arrivais plus à lancer la macro, elle n'apparait même plus dans la liste des macro à exécuter . Pour écrire le code j'ai simplement double cliquer sur la feuille en question dans l'explorateur de projets.
Pourrais tu stp me dire où je fausse ?