Bonjour,

Il faut que j'exécute 3 fois ce code sur ma feuille Histo contenant 388 lignes pour supprimer celles dont je ne trouve pas la référence dans la feuille OF.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
i = Sheets("Histo").Range("B65536").End(xlUp).Row
 
For Each c In Sheets("Histo").Range("A" & i & ":A2")
    Set v = Sheets("OF").Range("G:G").Find(What:= c.Value, LookIn:=xlValues, LookAt:=xlPart)
        If v Is Nothing Then
            k = c.Row
            Rows(k).Delete
            j = j + 1
        End If
Next c
 
MsgBox j & " lignes supprimées"
j = 0
Alors qu'il me suffit d'exécuter une seule fois celui là pour colorer la cellule de la colonne A de la ligne que je voudrais supprimer.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
i = Sheets("Histo").Range("B65536").End(xlUp).Row
 
For Each c In Sheets("Histo").Range("A" & i & ":A2")
    Set v = Sheets("OF").Range("G:G").Find(What:= c.Value, LookIn:=xlValues, LookAt:=xlPart)
        If v Is Nothing Then
            c.Interior.ColorIndex = 4
            j = j + 1
        End If
Next c
Quelqu'un pourrait-il m'expliquer car là je séche

Bruno