Ne pas supprimer lignes si non vides et couleur

[ascal44]

Bonsoir , je voudrais complèter ce code pour les colonnes B,C et D pour ne pas supprimer les lignes si elles contiennent des valeures et , ou des fond de couleures.

Sub test()
Dim i As Integer
Application.ScreenUpdating = False
For i = 8000 To 2 Step -1
    If IsEmpty(Cells(i, 2).Value) And IsEmpty(Cells(i, 3).Value) Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub

 

[laetitia90]

Re : Ne pas supprimer lignes si non vides et couleur

bonjour ascal44
regarde du côte de

and Not IsNumeric(Cells(i, 2))

ect...

 

[ascal44]

Re : Ne pas supprimer lignes si non vides et couleur

J'ai essayé cela sans succès !

Sub test()
Dim i As Integer
Application.ScreenUpdating = False
For i = 8000 To 2 Step -1
    If IsEmpty(Cells(i, 2).Value) And Not IsNumeric(Cells(i, 2)) And IsEmpty(Cells(i, 3).Value) And Not IsNumeric(Cells(i, 3)) And IsEmpty(Cells(i, 4).Value) And Not IsNumeric(Cells(i, 4)) Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub

 

[Pierrot93]

Re : Ne pas supprimer lignes si non vides et couleur

Bonsoir Ascal, Laetitia

essaye ainsi, à la condition que la couleur ne soit pas le résultat d'une mise en forme conditionnelle...

bonne soirée
@+

Edition : un "not" en trop...
2 ème édition : code retiré, ne fonctionne pas..;

 

[Pierrot93]

Re : Ne pas supprimer lignes si non vides et couleur

Re,

une version corrigée, enfin j'espère, ne tient toujours pas compte des formats conditionnels...

Option Explicit
Sub test()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 1 Step -1
    If Cells(i, 2).Resize(1, 3).Interior.ColorIndex = -4142 And _
            Application.CountA(Cells(i, 2).Resize(1, 3)) = 0 Then
        Rows(i).Delete
    End If
Next i
End Sub

@+

 

[ascal44]

Re : Ne pas supprimer lignes si non vides et couleur

Merci Pierrot c'est impeccable