Modifier couleur cellule

[fifounet]

Bonjour le forum
Je veux modifier un grand nombre de cellule d'une meme couleur
d'un classeur avec plusieurs onglets par une autre couleur , ceci en utilisant
le mode RGB du style:
Remplacer cellules .ColorIndex = RGB(255, 204, 102)
par cellules ColorIndex = RGB(280, 200, 150)
Quelqu'un peut-il me mettre sur la voie?
Merci d'avance

 

[stemsy]

Re : Modifier couleur cellule

Bonjour ,

ci dessous une piste possible

Sub changercouleur()
Dim Cellule As Range
Dim nombre As Variant
Range("A1😀15").Select
For Each Cellule In Selection
If Cellule.Interior.ColorIndex = 40 Then
nombre = nombre + Cellule.Count
Cellule.Interior.ColorIndex = 22
End If
Next
MsgBox nombre & " Cellules colorées"
End Sub

Bon courage
Stéphane

 

[BOISGONTIER]

Re : Modifier couleur cellule

Bonjour,

Modifie une couleur par une autre sur un onglet. Ajouter une boucle sur les onglets.

Gestion des cellules

JB

 

[fifounet]

Re : Modifier couleur cellule

Merci pour vos réponses
stemsy j'ai fait ceci:

Public Sub changercouleur()
Dim Cellule As Range
Dim nombre As Variant
Range("A1:AA400").Select
For Each Cellule In Selection
If Cellule.Interior.Color = RGB(255, 204, 153) Then
nombre = nombre + Cellule.Count
Cellule.Interior.Color = RGB(0, 0, 0)
End If
Next
End Sub

ça marche bien sur la feuille en cours mais ça boucle pas sur les autres onglets du classeur
et je ne sais pas comment modifier ta macro !

merci de m'éclairer un peu plus
fifounet

 

[stemsy]

Re : Modifier couleur cellule

Fifounet ,

ci dessous avec une boucle sur les feuilles

Sub changercouleur()
Dim Cellule As Range
Dim nbfeuille As Integer
nbfeuille = ActiveWorkbook.Sheets.Count

For i = 1 To nbfeuille
Sheets(i).Activate
Range("A1:AA400").Select
For Each Cellule In Selection
If Cellule.Interior.ColorIndex = 6 Then
nombre = nombre + Cellule.Count
Cellule.Interior.Color = 10
End If
Next
Next i
End Sub

Bon courage
Stéphane

 

[Gorfael]

Re : Modifier couleur cellule

Merci pour vos réponses
stemsy j'ai fait ceci:

Public Sub changercouleur()
Dim Cellule As Range
Dim nombre As Variant
Range("A1:AA400").Select
For Each Cellule In Selection
If Cellule.Interior.Color = RGB(255, 204, 153) Then
nombre = nombre + Cellule.Count
Cellule.Interior.Color = RGB(0, 0, 0)
End If
Next
End Sub

ça marche bien sur la feuille en cours mais ça boucle pas sur les autres onglets du classeur
et je ne sais pas comment modifier ta macro !

merci de m'éclairer un peu plus
fifounet

Salut

Sub changercouleur()
Dim Cell As Range
Dim nombre As Long
Dim F As Worksheet
For Each F In Sheets
    For Each Cell In F.UsedRange
        If Cell.Interior.Color = RGB(255, 204, 153) Then
            nombre = nombre + 1
            Cell.Interior.Color = RGB(0, 0, 0)
        End If
    Next Cell
Next F
End Sub

A+

 

[fifounet]

Re : Modifier couleur cellule

Merci Gorfael
(entre gens du vignoble Nantais c'est sympa l'entraide !)
ça marche impeccable !
par contre autre petit souci :
si je modifie une couleur exemple RGB(255, 204, 153)
par RGB(255, 204, 102) et bien ça marche plus !
est ce qu' Excel "arrondi" a une valeur connue pour lui ? ici RGB(255, 204, 153) "brun"
y a t il un truc pour contourner ceci ?
merci aussi stemsy
a+
fifounet

 

[Gorfael]

Re : Modifier couleur cellule

Merci Gorfael
(entre gens du vignoble Nantais c'est sympa l'entraide !)
ça marche impeccable !
par contre autre petit souci :
si je modifie une couleur exemple RGB(255, 204, 153)
par RGB(255, 204, 102) et bien ça marche plus !
est ce qu' Excel "arrondi" a une valeur connue pour lui ? ici RGB(255, 204, 153) "brun"
y a t il un truc pour contourner ceci ?
merci aussi stemsy
a+
fifounet

Salut
C'est l'éternel problème des couleurs :

RGB(255, 204, 153) est visuellement peut être semblable à RGB(255, 204, 152) ou RGB(255, 204, 154), mais pour Excel, ce n'est pas pareil !
Une solution, c'est éviter les couleurs créées manuellement : les couleurs prévues dans le tableau de choix sont suffisantes, et identifiables avec Colorindex : çaévite les erreurs de frappe, et Excel n'est pas un logiciel d'art : les couleurs ont une fonction informative, mais....

Pour les histoire de couleurs, si tu ne fixes pas des limites clairement définies, tu auras toujours des problèmes.
soit tu utilises le tableau de couleurs Excel et tu joues avec ColorIndex
soit tu redéfini un tableau de couleurs de référence dans une feuille, et toute autre ne sera pas prise en compte

Tu peux essayer de remplacer :
If Cell.Interior.Color = RGB(255, 204, 153) Then

par

If 102 <= Int(Cell.Interior.Color / 65536) And Int(Cell.Interior.Color / 65536) <= 153 Then

si le bleu est compris entre 102 et 153

A+

 

[fifounet]

Re : Modifier couleur cellule

Salut et merci de ton éclairage Gorfael
J'ai contourné le pb en allant dans outils -> options -> Couleurs
et là j'ai modifié une couleur de base avec les paramètres
que je veux obtenir "RGB (255, 204, 102)"
et là miracle si tu exécutes la macro ça marche !
Excel trouve la couleur désirée.
J'avoue que c'est un peu du bricolage, mais comme tu dis si bien
Excel n'est pas un logiciel d'art.
Encore merci
a+