Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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
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
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.