Changement de couleur cellule sur toute la feuil

Staple1600

XLDnaute Barbatruc

• 6 Octobre 2007

• #2

Re : Changement de couleur cellule sur toute la feuil

Bonjour le forum

Code:

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

 

Dernière édition: 6 Octobre 2007

Vote positif 0 Vote négatif

C

christ-94

XLDnaute Occasionnel

• 6 Octobre 2007

• #3

Re : Changement de couleur cellule sur toute la feuil

Bonjour Staple1600

Merci , cette macro fonctionne nickel

Bon W-E

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 6 Octobre 2007

• #4

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

Cliquez pour agrandir...

Code:

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

Cordialement

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Octobre 2007

• #5

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

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 6 Octobre 2007

• #6

Re : Changement de couleur cellule sur toute la feuil

Re,

Tu crois vraiment qu'il veuille colorier 65536 cellules ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Octobre 2007

• #7

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)

Code:

ActiveSheet.UsedRange.Interior.ColorIndex = 6

 

Dernière édition: 6 Octobre 2007

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Octobre 2007

• #8

Re : Changement de couleur cellule sur toute la feuil

Re

Pour ne colorier que les cellules non vides

Code:

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

 

Vote positif 0 Vote négatif

C

christ-94

XLDnaute Occasionnel

• 6 Octobre 2007

• #9

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

 

Vote positif 0 Vote négatif