macro : efface cellule de couleur jaune

[mayeul]

Bonjour forum, bonjour excelien et excelienne,

je voudrais créer une macro qui efface dans un fihcier qu'on m'a donné sur toutes les pages les cellules colorées en jaune.

mais je sèche

pouvez vous svp m'aider?

merci d'avance

 

[Hervé]

Bonjour mayeul

ce petit code devrait faire le boulot, par contre il efface tout, les valeurs comme les formules.

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

salut

 

[Marc_du_78]

Bonjour Herve, mayeul, le Forum,

Avec l'editeur de macro j'obtiens ceci :
Selection.Interior.ColorIndex = xlNone
ne peut-on modifier ton code en conséquence Hervé ?
Merci à toi

 

[Hervé]

re mayeul, bonjour marc

Dans coup j'ai un doute.

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

salut

 

[mayeul]

hervé , marc,

merci pour votre aide en effet je ne souhaite toucher qu'au contenu de la cellule

j'essaye

 

[mayeul]

Ca marche excellent merci

 

[Marc_du_78]

Merci beaucoup Hervé, bonne soirée à vous deux.

 

[KImi9664]

Re : Re:macro : efface cellule de couleur jaune

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?

Merci de votre réponse

 

[Raja]

Re : macro : efface cellule de couleur jaune

Bonjour, Salut à tous,

Peut être comme ça en prenant comme code crée par Hervé :

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.

 

[Dull]

Re : macro : efface cellule de couleur jaune

Salut KImi9664, le Forum

Peut-être comme cela

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

Si c'est bien de la Feuil1 dont il s'agit

EDITION: Salut Raja

Bonne Journée