Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel couleur de fond ou de texte

couleur de fond ou de texte

3 réponses
Avatar
yannick bonneaux
Bonjour a toutes et tous
Il ya plusieursmois, Philippe.R avait donner cette solution qui fonctionne
parfaitement bien pour remplacer des valeurs en fonction de la couleur du
fond. (marche aussi pour le texte en remplacant "interior" par "font")
Sub mult()
For Each c In Selection
If c.Interior.Color = vbred Then
c.Value = c.Value * 6.55957
End If
Next c
End Sub

Si j'ai bien compris, "vbred" renvoi le N° de la couleur rouge, vbgreen
renverai celle de la verte etc.
Mais comment ecrire l'instruction pour des couleurs intermédiare doit-on la
remplacer par le N°
ou y a t-il des noms pour chaque couleur?
Question posée uniquement pour completer ce que j'apprend de chacun de vous
Merci a tous
yannick
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Jacky
Bonjour Yannick

Jette un oeil sur l'aide de 'Color index(propriété)', il y a tout ce qu'il
faut.

Salutations
JJ

"yannick bonneaux" a écrit dans le message de
news:415e5451$0$26101$
Bonjour a toutes et tous
Il ya plusieursmois, Philippe.R avait donner cette solution qui fonctionne
parfaitement bien pour remplacer des valeurs en fonction de la couleur du
fond. (marche aussi pour le texte en remplacant "interior" par "font")
Sub mult()
For Each c In Selection
If c.Interior.Color = vbred Then
c.Value = c.Value * 6.55957
End If
Next c
End Sub

Si j'ai bien compris, "vbred" renvoi le N° de la couleur rouge, vbgreen
renverai celle de la verte etc.
Mais comment ecrire l'instruction pour des couleurs intermédiare doit-on
la

remplacer par le N°
ou y a t-il des noms pour chaque couleur?
Question posée uniquement pour completer ce que j'apprend de chacun de
vous

Merci a tous
yannick





Avatar
JpPradier
Bonjour Yannick

Effectivement, il y a un nom que pour les principales couleurs. Pour les autres, il faut remplacer
par le numéro que tu trouves avec la manip suivante par exemple :

Tu mets ta couleur en fond de cellule A1 puis tu execute la macro suivante :

Sub couleur()
Coul=Range("A1").Interior.Colorindex
Msgbox coul
End Sub

j-p
Avatar
yannick bonneaux
Merci a vous
A+
yannick

"JpPradier" a écrit dans le message
de news:%23gf$
Bonjour Yannick

Effectivement, il y a un nom que pour les principales couleurs. Pour les
autres, il faut remplacer

par le numéro que tu trouves avec la manip suivante par exemple :

Tu mets ta couleur en fond de cellule A1 puis tu execute la macro suivante
:


Sub couleur()
Coul=Range("A1").Interior.Colorindex
Msgbox coul
End Sub

j-p