J
joums
Guest
bonjour à tous,
J'ai un petit soucis je voudrais pouvoir supprimer une ligne d'un tableau de 5 colonnes si 3 des cellules correspondent à mon critères. Dans mon cas précis le critère est que la cellule soit Bleu.
J'utilise un code pour supprimer la ligne dans le cas où toutes les cellules des 5 colonnes sont bleu mais je n'y arrive pas lorsque je saisi mon critère
Ex : Dim i As Integer
For i = 6 To 1700
If Cells(i, 1).EntireRow.Range("A1:E1").Interior.ColorIndex = 5 Then
Cells(i, 1).EntireRow.Delete
i = i - 1
End If
Next i
Merci de votre aide
Cdt
J'ai un petit soucis je voudrais pouvoir supprimer une ligne d'un tableau de 5 colonnes si 3 des cellules correspondent à mon critères. Dans mon cas précis le critère est que la cellule soit Bleu.
J'utilise un code pour supprimer la ligne dans le cas où toutes les cellules des 5 colonnes sont bleu mais je n'y arrive pas lorsque je saisi mon critère
Ex : Dim i As Integer
For i = 6 To 1700
If Cells(i, 1).EntireRow.Range("A1:E1").Interior.ColorIndex = 5 Then
Cells(i, 1).EntireRow.Delete
i = i - 1
End If
Next i
Merci de votre aide
Cdt