Changement de couleur cellule sur toute la feuil

[christ-94]

Bonjour

Je récupère une feuille excel avec des cellules en jaune et j'aimerais change le jaune en une autre exemple en bleu

J'arrive bien a change la couleur de plusieurs cases, mais je n'arrive pas a l'applique a l'ensemble de la feuille.
Ce code est a mettre dans un module VBA

If Range("A1").Interior.ColorIndex = 6 Then
Range("A1").Interior.ColorIndex = 12
End If

Merci d'avance

 

[Staple1600]

Re : Changement de couleur cellule sur toute la feuil

Bonjour le forum

Sub test()
For each cell in activesheet.usedrange
If cell.Interior.ColorIndex = 6 Then
cell.Interior.ColorIndex = 12
End If
Next
end sub

 

[christ-94]

Re : Changement de couleur cellule sur toute la feuil

Bonjour Staple1600

Merci , cette macro fonctionne nickel

Bon W-E

 

[Spitnolan08]

Re : Changement de couleur cellule sur toute la feuil

Bonjour christ-94,
Re Stapple

Pour répondre exactement à la question posée (Mais Stapple a visiblement bien interprété la question) :

je n'arrive pas a l'applique a l'ensemble de la feuille

Sub test()
Cells.Interior.ColorIndex = 12
End Sub

Cordialement

 

[Staple1600]

Re : Changement de couleur cellule sur toute la feuil

Bonjour Spitnolan08

Tu crois vraiment qu'il veuille colorier 65536 cellules ?

J'ai compris "l'ensemble de la feuille" comme étant les cellules utilisées d'une feuille

 

[Spitnolan08]

Re : Changement de couleur cellule sur toute la feuil

Re,

Tu crois vraiment qu'il veuille colorier 65536 cellules ?

Je n'en sais rien... Mais c'était la question posée...
Et comme je l'ai écrit : tu as visiblement bien interprété! Donc bravo à toi.
D'où l'importance de bien rédiger une question...
Et ma réponse n'avait d'autre but que d'attirer l'attention sur ce point avec au départ une question anodine.

Cordialement

 

[Staple1600]

Re : Changement de couleur cellule sur toute la feuil

Re


->Spitnolan08: Ma question m'aura permis de te saluer 😉

Et en reprenant ton idée (mais en ne visant que la zone active)

ActiveSheet.UsedRange.Interior.ColorIndex = 6

 

[Staple1600]

Re : Changement de couleur cellule sur toute la feuil

Re

Pour ne colorier que les cellules non vides

For Each C In ActiveSheet.UsedRange
If Not IsEmpty(C) Then C.Interior.ColorIndex = 6
Next

 

[christ-94]

Re : Changement de couleur cellule sur toute la feuil

Re-bonjour a tous

Pour info je ne veux que changer la couleur jaune des cellules deja colorier

Donc la macro de Staple1600 super bien

Encore Merci a vous