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.
1 réponse
-
Bonjour,
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 -
