marc, j'ai compris que mayeul voulait effacer les données se trouvant dans les cellules jaune. mais sans toucher à la couleur des dites cellules.
ton code marc, supprime la couleur des cellules mais sans toucher au contenu.
si tu veux supprimer la couleur jaune de toutes les pages d'un classeur, tu peux utiliser ce type de code :
Sub Bouton1_QuandClic() Dim ws As Worksheet Dim c As Range
For Each ws In Worksheets For Each c In ws.UsedRange With c.Interior
.ColorIndex = IIf(.ColorIndex = 6, xlNone, .ColorIndex) End With Next c Next ws End Sub
Cette solution fonctionne très bien mais dans mon cas il faudra qu'elle ne supprime que sur une feuille et pas sur tout le classeur, comment changer cela?
Peut être comme ça en prenant comme code crée par Hervé :
Code:
Sub Bouton1_QuandClic()
Dim c As Range
For Each c In Sheets("Feuil1").UsedRange
If c.Interior.ColorIndex = 6 Then
c.ClearContents
End If
Next c
End Sub
PS : code à adapter selon tes dispositions de feuilles.
Sub Bouton1_QuandClic()
Dim C As Range
For Each C In[B] Sheets("Feuil1")[/B].UsedRange
With C.Interior
.ColorIndex = IIf(.ColorIndex = 6, xlNone, .ColorIndex)
End With
Next C
End Sub