méthode .FIND

[albert]

Bonsoir à tous, bonsoir le forum,

Je travaille sur un essai de macro « cherchecode2 » qui fonctionne bien : recherche dans la liste de la feuille « GraphRend » pour donner un nom à chaque code dans la feuille « Statistiques »

(pour faire fonctionner, il faut au préalable effacer les noms dans la colonne AZ dans la feuille « Statistiques » , ou ajouter des codes de la colonne AD de la feuille « GraphRend »)

Je l’adapte au travail pour lequel je fais l’essai, ça ne marche plus…
« cherchecode3 » = bogue

Tous mes essais restent infructueux

Quelqu’un peut-il me dire ce que j’ai loupé ???
(P.J ZIP 23 ko
Merci d’avance

albert

 

[albert]

j'ai trouvé, j'en fais profiter ceux qui seraient intéressés par le sujet.

le bogue vient du fait qu'il y a des données au-dessus de la ligne 21

il suffit donc de commencer la reccerche sur cette ligne :

i = 21

soit :

Sub cherche2()

Sheets("Statistiques").Select
For i = 21 To Range("BA21").End(xlDown).Row
Rech = Cells(i, 53).Value
With Worksheets("GraphRend").Range("AD2:AD130")
sico = .Find(What:=Rech). _
Offset(0, 1).Value
End With
Cells(i, 52).Value = sico
Next i


End Sub