Enlever couleurs
zeratule
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Je sais que c un truc bidon , mais etant debutant en VBA , qqun peut il m'aider pour un code qui dit:
Pour toutes les cellules de la COLONNE B, si la cellule est de couleur jaune, enlever la couleur.
j'ai fias un truc du genre, mais ca marche pas:
sub enlevercouleur()
For Each cell In Range("B3:B3500")
If cell.ColorIndex = 6 Then
cell.Select
Selection.Interior.ColorIndex = xlNone
End If
Next
please help.
Je sais que c un truc bidon , mais etant debutant en VBA , qqun peut il m'aider pour un code qui dit:
Pour toutes les cellules de la COLONNE B, si la cellule est de couleur jaune, enlever la couleur.
j'ai fias un truc du genre, mais ca marche pas:
sub enlevercouleur()
For Each cell In Range("B3:B3500")
If cell.ColorIndex = 6 Then
cell.Select
Selection.Interior.ColorIndex = xlNone
End If
Next
please help.
A voir également:
- Enlever couleurs
- Enlever pub youtube - Accueil - Streaming
- Remettre les couleurs d'origine android ✓ - Forum Windows 10
- Comment enlever le rond bleu sur whatsapp - Guide
- Enlever mode sécurisé samsung - Guide
- Comment enlever une page sur word - Guide
1 réponse
Bonjour,
cell.Interior.ColorIndex, pas cell.ColorIndex...
Et on peux se passer de sélect.
"Laissez-moi deviner... Votre surnom, c'est «Bande Passante»? "
- Le Tribunal des flagrants délires- P.Desproges -
cell.Interior.ColorIndex, pas cell.ColorIndex...
Et on peux se passer de sélect.
Sub enlevercouleur()
Dim cell As Range
For Each cell In Range("B3:B3500")
If cell.Interior.ColorIndex = 6 Then
cell.Interior.ColorIndex = xlNone
End If
Next
End Sub
"Laissez-moi deviner... Votre surnom, c'est «Bande Passante»? "
- Le Tribunal des flagrants délires- P.Desproges -
