Macro effacer
Résolu
slim.029
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
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.
A voir également:
- Macro effacer
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Effacer les données de navigation sur android - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Effacer iphone - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
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
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
slim.029