salut
je veux suppr les lignes qui sont en rouges
j'ai écrit la macro ci dessous quelqu un pourrati me dire ce qui va pas
pcq au fur et a mesure que j execute ca m efface tout
et non pas que les lignes rouge comme je le veux !!!
Merci
Sub suppr_couleur()
Dim Lig As Long
Dim Col As String
Dim Col2 As String
Dim Col3 As String
Dim NbrLig As Long
Dim NumLig As Long
Col2 = "G"
Col3 = "H"
Col = "E" ' colonne données non vides à tester'
NumLig = 1
Sheets("suspens_restant").Select
With Sheets("suspens_restant") ' feuille source'
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 1 To NbrLig 'n° de la 1ere ligne de données'
If Cells(Lig, Col).EntireRow.Font.ColorIndex = 3 Then
Cells(NumLig, 1).Select
.Cells(Lig, Col).EntireRow.Delete
NumLig = NumLig + 1
End If
Next
End With
End Sub