Cells.find (Mot1...)

Question

Re-Bonjour,

Je souhaiterais que la valeur de ma variable Mot1 soit récupérée depuis ma feuille Macro tout en recherchant les données dans ma feuille Import pour les copier dans ma feuille result.

Mon problème est que si j'ajoute mot1=Sheets("Macro").range("A1").value dans ma macro (valeur "*créance:*" ajoutée dans la feuille Macro en range A1), la recherche s'effectue depuis la feuille Macro et non dans la feuille Import.

Si je garde mot1= "*créance:*" dans ma macro cela fonctionne

Sheets("Import").Select

Dim ResAdr As String, c As Range, mot1 as string

mot1 = "*créance:*" ' PB recherche dans la feuille macro ---> Mot1=sheets("Macro").Range("a1").value

Set c = Cells.find(mot1, LookIn:=xlValues).Offset(1, 0)

If Not c Is Nothing Then

ResAdr = c.Address

Do

c.Cells.Interior.ColorIndex = 6 ' ici on surligne en Jaune la valeur copier depuis la feuille import

c.Copy Sheets("result").[A65000].End(xlUp).Offset(1)

Sheets("result").[B65000].End(xlUp).Offset(1) = c.Address

Set c = Cells.FindNext(c).Offset(1, 0)

Loop While Not c Is Nothing And c.Address <> ResAdr

End If

Merci

Steelson · Answer

Non je ne vois pas le problème. Prends l'habitude de poster un fichier réduit comme celui que je viens de faire ...