Supprimer des cellules non colorée

[lolodepau]

Bonjour, je voudrais supprimer lignes qui ne sont pas en couleur...
A votre écoute
et merci d'avance.

 

[eddy51]

Re : Supprimer des cellules non colorée

les cellules non colorés sont de couleurs blanches donc faut que tu mette qu'il CANCEL les cellules = au code blanc c'est a dire #FFFFF

 

[lolodepau]

Re : Supprimer des cellules non colorée

Comment faire ?

 

[eddy51]

Re : Supprimer des cellules non colorée

Sub aff_cellule_coloree()
Dim i as integer
For i = 15 to 1 Step -1
'si pas de couleur
If Sheets(1).Range("A" & i).Interior.ColorIndex = xlNone Then
'supprimer les cellules sans couleurs
Range("A" & i).Delete Shift:=xlUp
'si on peut supprimer toute la ligne
'Rows(i).Delete
End If
Next i
End Sub

ou alors y'avais cette solution tu vois ColorIndex = None

 

[lolodepau]

Re : Supprimer des cellules non colorée

Peut tu expliquer chaque ligne de ta macro s'il te plait ?

 

[eddy51]

Re : Supprimer des cellules non colorée

y'a des commentaires


Sub aff_cellule_coloree()
Dim i as integer
For i = 15 to 1 Step -1
'si pas de couleur
If Sheets(1).Range("A" & i).Interior.ColorIndex = xlNone Then
'supprimer les cellules sans couleurs
Range("A" & i).Delete Shift:=xlUp
'si on peut supprimer toute la ligne
'Rows(i).Delete
End If
Next i
End Sub



Le bleu clair je l'est mise en commentaire c'est seulement si tu peut supprimé une ligne entiere non coloré a un moment