supprimer la couleur de fond de certaines cellules
1 réponse
e.l.f
Bonjour !
voila j'ai un classeur avec moult cellules ayant des fonds couleurs
differentes.
je souhaite supprimer la couleur de fond de certaines. completement
debutant, je suis arrivé a cela:
Sub Macro()
For Each Cell In Range("A1:IV1000")
If Interior.ColorIndex = 14 Then
Cell.Select
With Selection.Interior.ColorIndex = xlNone
End With
End If
Next
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
e.l.f
Bonjour !
voila j'ai un classeur avec moult cellules ayant des fonds couleurs differentes.
je souhaite supprimer la couleur de fond de certaines. completement debutant, je suis arrivé a cela:
Sub Macro() For Each Cell In Range("A1:IV1000") If Interior.ColorIndex = 14 Then Cell.Select With Selection.Interior.ColorIndex = xlNone End With End If Next End Sub
Malheureusement cela ne marche pas :-(
pouvez vousme debloquer?
Merci !
T
c'est bon je viens de trouver !!
Sub virelescouleurs() For Each cell In ActiveSheet.UsedRange With cell.Interior If .ColorIndex = 3 Then .ColorIndex = xlNone
End If End With Next End Sub
Merci quand meme !
Bonjour !
voila j'ai un classeur avec moult cellules ayant des fonds couleurs
differentes.
je souhaite supprimer la couleur de fond de certaines. completement
debutant, je suis arrivé a cela:
Sub Macro()
For Each Cell In Range("A1:IV1000")
If Interior.ColorIndex = 14 Then
Cell.Select
With Selection.Interior.ColorIndex = xlNone
End With
End If
Next
End Sub
Malheureusement cela ne marche pas :-(
pouvez vousme debloquer?
Merci !
T
c'est bon je viens de trouver !!
Sub virelescouleurs()
For Each cell In ActiveSheet.UsedRange
With cell.Interior
If .ColorIndex = 3 Then
.ColorIndex = xlNone
voila j'ai un classeur avec moult cellules ayant des fonds couleurs differentes.
je souhaite supprimer la couleur de fond de certaines. completement debutant, je suis arrivé a cela:
Sub Macro() For Each Cell In Range("A1:IV1000") If Interior.ColorIndex = 14 Then Cell.Select With Selection.Interior.ColorIndex = xlNone End With End If Next End Sub
Malheureusement cela ne marche pas :-(
pouvez vousme debloquer?
Merci !
T
c'est bon je viens de trouver !!
Sub virelescouleurs() For Each cell In ActiveSheet.UsedRange With cell.Interior If .ColorIndex = 3 Then .ColorIndex = xlNone