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 mise en forme

mise en forme

5 réponses
Avatar
ritchi92
Bonjour à tous
après des essais laborieux et inefficaces
ET malgré la recherche sur les merveilleux sites MPFE
j'ai essayé quelques idées mais pas assez pro pour les mettre en ouvre
si dans une cellule , j'ai une des valeurs ci-dessous,
noir
marron
rouge
orange
jaune
vert
bleu
violet
gris
blanc
comment mettre cette couleur dans cette cellule?

Merci d'avance Ritchi92
Signaler un problème avec ce contenu

5 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
Jean-François Aubert
Salut ritchi,

à placer dans le module de la feuille concernée
(si tu n'es pas encore copain avec le VBA, re viens le dire dans le même fil)


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub ' si sélection supérieure à une cellule
If Not Intersect(Target, [A2:A11]) Is Nothing Then 'à adapter
yy = Target
Select Case yy
Case "noir"
Target.Interior.Color = RGB(0, 0, 0)
Case "marron"
Target.Interior.Color = RGB(65, 0, 0)
Case "rouge"
Target.Interior.Color = RGB(192, 0, 0)
Case "orange"
Target.Interior.Color = RGB(229, 52, 0)
Case "jaune"
Target.Interior.Color = RGB(204, 230, 0)
Case "vert"
Target.Interior.Color = RGB(0, 192, 0)
Case "bleu"
Target.Interior.Color = RGB(0, 0, 65)
Case "violet"
Target.Interior.Color = RGB(128, 0, 65)
Case "gris"
Target.Interior.Color = RGB(116, 90, 65)
Case "blanc"
Target.Interior.Color = RGB(224, 224, 224)
End Select
End If
End Sub

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"ritchi92" a écrit dans le message de
news:
Bonjour à tous
après des essais laborieux et inefficaces
ET malgré la recherche sur les merveilleux sites MPFE
j'ai essayé quelques idées mais pas assez pro pour les mettre en ouvre
si dans une cellule , j'ai une des valeurs ci-dessous,
noir
marron
rouge
orange
jaune
vert
bleu
violet
gris
blanc
comment mettre cette couleur dans cette cellule?

Merci d'avance Ritchi92




Avatar
sabatier
juste un petit mot à ajouter à ce qu'a dit le vaudois de la côte lémanique :

tu peux aussi écrire :

Case "vert"
Target.Interior.ColorIndex = 35

c'est plus zen que le RGB, même si celui-ci te permet de nuancer tes
teintes en changeant les 3 valeurs...
tu me diras, avec VBA, j'en vois déjà de toutes les couleurs...
jps

Jean-François Aubert a écrit:
Salut ritchi,

à placer dans le module de la feuille concernée
(si tu n'es pas encore copain avec le VBA, re viens le dire dans le même fil)


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub ' si sélection supérieure à une cellule
If Not Intersect(Target, [A2:A11]) Is Nothing Then 'à adapter
yy = Target
Select Case yy
Case "noir"
Target.Interior.Color = RGB(0, 0, 0)
Case "marron"
Target.Interior.Color = RGB(65, 0, 0)
Case "rouge"
Target.Interior.Color = RGB(192, 0, 0)
Case "orange"
Target.Interior.Color = RGB(229, 52, 0)
Case "jaune"
Target.Interior.Color = RGB(204, 230, 0)
Case "vert"
Target.Interior.Color = RGB(0, 192, 0)
Case "bleu"
Target.Interior.Color = RGB(0, 0, 65)
Case "violet"
Target.Interior.Color = RGB(128, 0, 65)
Case "gris"
Target.Interior.Color = RGB(116, 90, 65)
Case "blanc"
Target.Interior.Color = RGB(224, 224, 224)
End Select
End If
End Sub




--
NB. mes admiratrices voudront bien supprimer "delaile" avant de m'écrire
en bal perso....merci

Avatar
gee-dee-
Bonsoir,
quelques remarques toutefois concernant Excel et les couleurs !!!!
L'utilisation de la fonction RGB pour affecter une couleur à une cellule
risque de procurer quelques surprises à qui ne sait comment EXCEL gére les
couleurs.....
il est préferable d'utiliser les constantes VBA
VbBlack pour Noir, VbWhite pour Blanc, VbRed pour Rouge , VbCyan pour Bleu
ciel (Cyan ou bleu turquoise)
VbBlue pour Bleu profond ,VbGreen pour Vert,VbYellow pour Jaune,VbMagenta
pour Violet
ce sont hélas les seules constantes Couleur EXCEL qui correspondent en fait
au 8 premier Colorindex de la palette standard constituée de 56 valeurs
possibles parmi plus de 16 millions que permet la fonction RGB !!!!
en consequence il est fort peu probable qu'une quelconque valeur RGB
corresponde exactement à l'une des 56 valeurs de cette palette, EXCEL
appliquant alors la couleur la plus proche selon une logique qui jusqu'a ce
jour m'échappe complétement :-(

notament pour apporter quelques corrections au code de Jean-Francois :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub ' si sélection supérieure à une
cellule
If Not Intersect(Target, [A2:A11]) Is Nothing Then 'à adapter
yy = Target
Select Case yy
Case "noir"
Target.Interior.Color = RGB(0, 0, 0) 'ou vbBlack
Case "marron"
Target.Interior.Color = RGB(128, 64, 0) ' sous reserve que cette
valeur corresponde a une valeur de la palette
Case "rouge"
Target.Interior.Color = RGB(255,0,0) 'ou vbRed
Case "orange"
Target.Interior.Color = RGB(255, 128, 0)' sous reserve que cette
valeur corresponde a une valeur de la palette
Case "jaune"
Target.Interior.Color = RGB(255, 255, 0) 'ou vYellow
Case "Vert"
Target.Interior.Color = RGB(0, 255, 0) 'ou vbGreen
Case "bleu"
Target.Interior.Color = RGB(0, 0, 128) 'ou vbBlue
Case "violet"
Target.Interior.Color = RGB(128, 0, 128)' sous reserve que cette
valeur corresponde a une valeur de la palette
Case "gris"
Target.Interior.Color = RGB(128, 128, 128)' correspond à un gris
50%
' tous les gris s'obtiennent en affectant la meme valeur à chacun
des 3 parametres (de blanc(255) à noir(0))
Case "blanc"
Target.Interior.Color = RGB(255, 255, 255) 'ou vbWhite
End Select
End If
End Sub

je ne saurais que trop conseiller de consulter :
http://disciplus.simplex.free.fr/classeursxl/gd-xlcolors.zip
et particulierement pour ritchie92 ;-))) une adresse incontournable :
http://www.mvps.org/dmcritchie/excel/colors.htm

@+
Avatar
ritchi92
Bravo pour vos réponses

c'est à mettre en bonne place sur un des sites

Thanks à tous


"gee-dee-" a écrit dans le message de news:
#
Bonsoir,
quelques remarques toutefois concernant Excel et les couleurs !!!!
L'utilisation de la fonction RGB pour affecter une couleur à une cellule
risque de procurer quelques surprises à qui ne sait comment EXCEL gére les
couleurs.....
il est préferable d'utiliser les constantes VBA
VbBlack pour Noir, VbWhite pour Blanc, VbRed pour Rouge , VbCyan pour Bleu
ciel (Cyan ou bleu turquoise)
VbBlue pour Bleu profond ,VbGreen pour Vert,VbYellow pour Jaune,VbMagenta
pour Violet
ce sont hélas les seules constantes Couleur EXCEL qui correspondent en
fait

au 8 premier Colorindex de la palette standard constituée de 56 valeurs
possibles parmi plus de 16 millions que permet la fonction RGB !!!!
en consequence il est fort peu probable qu'une quelconque valeur RGB
corresponde exactement à l'une des 56 valeurs de cette palette, EXCEL
appliquant alors la couleur la plus proche selon une logique qui jusqu'a
ce

jour m'échappe complétement :-(

notament pour apporter quelques corrections au code de Jean-Francois :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub ' si sélection supérieure à
une

cellule
If Not Intersect(Target, [A2:A11]) Is Nothing Then 'à adapter
yy = Target
Select Case yy
Case "noir"
Target.Interior.Color = RGB(0, 0, 0) 'ou vbBlack
Case "marron"
Target.Interior.Color = RGB(128, 64, 0) ' sous reserve que cette
valeur corresponde a une valeur de la palette
Case "rouge"
Target.Interior.Color = RGB(255,0,0) 'ou vbRed
Case "orange"
Target.Interior.Color = RGB(255, 128, 0)' sous reserve que cette
valeur corresponde a une valeur de la palette
Case "jaune"
Target.Interior.Color = RGB(255, 255, 0) 'ou vYellow
Case "Vert"
Target.Interior.Color = RGB(0, 255, 0) 'ou vbGreen
Case "bleu"
Target.Interior.Color = RGB(0, 0, 128) 'ou vbBlue
Case "violet"
Target.Interior.Color = RGB(128, 0, 128)' sous reserve que cette
valeur corresponde a une valeur de la palette
Case "gris"
Target.Interior.Color = RGB(128, 128, 128)' correspond à un gris
50%
' tous les gris s'obtiennent en affectant la meme valeur à chacun
des 3 parametres (de blanc(255) à noir(0))
Case "blanc"
Target.Interior.Color = RGB(255, 255, 255) 'ou vbWhite
End Select
End If
End Sub

je ne saurais que trop conseiller de consulter :
http://disciplus.simplex.free.fr/classeursxl/gd-xlcolors.zip
et particulierement pour ritchie92 ;-))) une adresse incontournable :
http://www.mvps.org/dmcritchie/excel/colors.htm

@+




Avatar
ritchi92
Voici ce que j'ai mis

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
' si sélection supérieure à une cellule
If Not Intersect(Target, [B21:D21]) Is Nothing Then
yy = Target
Select Case yy
Case "noir"
Target.Interior.ColorIndex = 1
Case "marron"
Target.Interior.ColorIndex = 9
Case "rouge"
Target.Interior.ColorIndex = 3
Case "orange"
Target.Interior.ColorIndex = 45
Case "jaune"
Target.Interior.ColorIndex = 6
Case "Vert"
TTarget.Interior.ColorIndex = 10
Case "bleu"
Target.Interior.ColorIndex = 5
Case "violet"
Target.Interior.ColorIndex = 7
Case "gris"
Target.Interior.ColorIndex = 15
Case "blanc"
Target.Interior.ColorIndex = 2
End Select
End If
End Sub


IMPECCABLE et MERCI

Ritchi92
"ritchi92" a écrit dans le message de news:

Bravo pour vos réponses

c'est à mettre en bonne place sur un des sites

Thanks à tous


"gee-dee-" a écrit dans le message de news:
#
Bonsoir,
quelques remarques toutefois concernant Excel et les couleurs !!!!
L'utilisation de la fonction RGB pour affecter une couleur à une cellule
risque de procurer quelques surprises à qui ne sait comment EXCEL gére
les


couleurs.....
il est préferable d'utiliser les constantes VBA
VbBlack pour Noir, VbWhite pour Blanc, VbRed pour Rouge , VbCyan pour
Bleu


ciel (Cyan ou bleu turquoise)
VbBlue pour Bleu profond ,VbGreen pour Vert,VbYellow pour
Jaune,VbMagenta


pour Violet
ce sont hélas les seules constantes Couleur EXCEL qui correspondent en
fait

au 8 premier Colorindex de la palette standard constituée de 56 valeurs
possibles parmi plus de 16 millions que permet la fonction RGB !!!!
en consequence il est fort peu probable qu'une quelconque valeur RGB
corresponde exactement à l'une des 56 valeurs de cette palette, EXCEL
appliquant alors la couleur la plus proche selon une logique qui jusqu'a
ce

jour m'échappe complétement :-(

notament pour apporter quelques corrections au code de Jean-Francois :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub ' si sélection supérieure à
une

cellule
If Not Intersect(Target, [A2:A11]) Is Nothing Then 'à adapter
yy = Target
Select Case yy
Case "noir"
Target.Interior.Color = RGB(0, 0, 0) 'ou vbBlack
Case "marron"
Target.Interior.Color = RGB(128, 64, 0) ' sous reserve que
cette


valeur corresponde a une valeur de la palette
Case "rouge"
Target.Interior.Color = RGB(255,0,0) 'ou vbRed
Case "orange"
Target.Interior.Color = RGB(255, 128, 0)' sous reserve que
cette


valeur corresponde a une valeur de la palette
Case "jaune"
Target.Interior.Color = RGB(255, 255, 0) 'ou vYellow
Case "Vert"
Target.Interior.Color = RGB(0, 255, 0) 'ou vbGreen
Case "bleu"
Target.Interior.Color = RGB(0, 0, 128) 'ou vbBlue
Case "violet"
Target.Interior.Color = RGB(128, 0, 128)' sous reserve que
cette


valeur corresponde a une valeur de la palette
Case "gris"
Target.Interior.Color = RGB(128, 128, 128)' correspond à un
gris


50%
' tous les gris s'obtiennent en affectant la meme valeur à
chacun


des 3 parametres (de blanc(255) à noir(0))
Case "blanc"
Target.Interior.Color = RGB(255, 255, 255) 'ou vbWhite
End Select
End If
End Sub

je ne saurais que trop conseiller de consulter :
http://disciplus.simplex.free.fr/classeursxl/gd-xlcolors.zip
et particulierement pour ritchie92 ;-))) une adresse incontournable :
http://www.mvps.org/dmcritchie/excel/colors.htm

@+