effacer les cellules de couleur?

[ptite_linda]

Bonjour,
Je voudrai, dans un classeur, sélectionner toutes les feuilles et effacer le contenu de toutes les cellules de couleur blanche.

Quelle syntaxe dois-je utiliser?
puis-je utiliser celle-ci?

Sub Bouton1_QuandClic()
Dim ws As Worksheet
Dim c As Range

For Each ws In Worksheets
* * * * For Each c In ws.UsedRange
* * * * * * * * If c.Interior.ColorIndex = 6 Then
* * * * * * * * * * * * c.ClearContents
* * * * * * * * End If
* * * * Next c
Next ws
* * * * * * * * 
End Sub

 

[Hervé]

Re : effacer les cellules de couleur?

bonjour

oui, ce code ma semble bon, remplace juste 6 par 2(couleur blanche)

un code qui te donne les couleurs et leurs numéros d'index dans une nouvelle feuille :

Dim i As Integer

With Sheets.Add
    .Name = "couleur"
    For i = 0 To 56
        .Cells(i + 1, 1).Interior.ColorIndex = i
        .Cells(i + 1, 2) = i
    Next i
End With

salut

 

[ptite_linda]

Re : effacer les cellules de couleur?

C'est bon, ça marche.
Merci Hervé.