Recherche complexe suite

Finalement avec quelques données importées ça ne fonctionne plus.....

Toutes les lignes sont en vert, alors que les noms ne figurent pas dans la recherche..mrci,

j'ai joint les fichiers

Salut

c'est une teste

Sub iColorIndex()

Application.ScreenUpdating = False

Dim SourceBook As Workbook, _

My_sheet As Worksheet, _

Source As String, _

iPath As String, _

S As Range, _

d As Range

'---------------------------------------------

Source = "BDD.xlsx": Set My_sheet = Sheets("nom")

LR = My_sheet.Cells(My_sheet.Rows.Count, "A").End(xlUp).Row

iPath = ThisWorkbook.Path & "\"

Set SourceBook = Workbooks.Open(iPath & Source)

'---------------------------------------------

With SourceBook

LastRow = .Sheets("info").Cells(Rows.Count, "C").End(xlUp).Row

For Each S In .Sheets("info").Range("C2:C" & LastRow)

For Each d In My_sheet.Range("A2:A" & LR)

If CStr(S) = CStr(d) Then S.Interior.ColorIndex = 4

Next

Next

Application.DisplayAlerts = False

.Save

.Close

End With

Application.ScreenUpdating = True

End Sub

Bonjour daniel_44,

Tes fichiers fonctionnes,

Voir ci-joint.

Cordialement.

bonsoir

L autre fichier doit porter le nom « BDD » ou modifier son nom dans le code vba

La feuille de fichier nommé « BDD » doit porter le nom «info» ou modifier son nom dans le code vba