Macro effacer
Résolu
slim.029
Messages postés
2
Statut
Membre
-
slim.029 -
slim.029 -
Bonjour,
dans un tableau Excel contenant des chiffres noires et des chiffres rouges, je voudrai, à l'aide d'une macro effacer uniquement les chiffres rouges. Macro que j'associerai à un bouton.
Merci à ceux qui me donneront une réponse.
dans un tableau Excel contenant des chiffres noires et des chiffres rouges, je voudrai, à l'aide d'une macro effacer uniquement les chiffres rouges. Macro que j'associerai à un bouton.
Merci à ceux qui me donneront une réponse.
1 réponse
-
Bonjour,
Si la colorisation des valeurs est manuelle, essaye comme cela pour effacer les valeurs de couleur rouge et rétablir la couleur de police automatique
Private Sub CommandButton21_Click()
Dim Cell, Plage As Range, Ws As Worksheet, NbLig As Long
For Each Ws In ThisWorkbook.Worksheets
NbLig = Ws.[A65536].End(xlUp).Row
Set Plage = Ws.Range("A2:G" & NbLig)
For Each Cell In Plage
If Cell.Font.ColorIndex = 3 Then Cell.ClearContents
If Cell.Font.ColorIndex = 3 Then Cell.Font.ColorIndex = xlAutomatic
Next Cell
Next Ws
End Sub
