Supprimer le contenu des cellules blanches d'une feuille

[madfouet]

Bonjour à tous,

Alors voila je comprend pas grand chose au VBA, mais j aimerais voir l'exemple d'un code pour supprimer le contenu des cellules blanches (sans couleure) d'une feuille entière.

Cordialement

 

[JCGL]

Re : Supprimer le contenu des cellules blanches d'une feuille

Bonjour à tous,

Peux-tu essayer avec :

For Each Cel In Plages
If Cel.Interior.ColorIndex = xlNone Then Cel.Value = ""
Next

A+ à tous

 

[Guest]

Re : Supprimer le contenu des cellules blanches d'une feuille

Bonjour,
Hello JC

Si avec des cellules fusionnées:
Vide les cellules de la plage utilisée dans la feuille active

Sub SupprimerCellulesSansFond()
    Dim cellule As Range
    For Each cellule In ActiveSheet.UsedRange
        If Not IsEmpty(cellule) And cellule.Interior.ColorIndex = xlColorIndexNone Then
            If cellule.MergeArea.Cells.Count > 1 Then
                cellule.MergeArea.Cells(1).ClearContents
            Else
                cellule.ClearContents
            End If
        End If
    Next cellule
End Sub

A+
A+++JC

 

[JCGL]

Re : Supprimer le contenu des cellules blanches d'une feuille

Bonjour à tous,
Salut Hasco ,

Ravi de te croiser
Tout va bien

A++ l'ami Ges
A+ à tous