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 mettre en couleur un colonne

mettre en couleur un colonne

10 réponses
Avatar
alain
bonjour
j'ai des cellules: A1, A2, A3. je met 1 dans une cellule
je voudrais que quand cette cellule est à 1, que les cellules A5 à A15
(par ex) se colorient d'une certaine couleur.
donc par ex, si A1 les cellules A5 à A15 passent en bleu
si A2 elles passent en jaune, A3 elles passent en vert

si possible en passant par une fonction et non une macro (que je
maitrise pas trop)

merci

AL1
Signaler un problème avec ce contenu

10 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
lSteph
Bonjour,


Menu Format Mise en forme conditionnelle

(regarde déjà l'aide qui s'y rapporte).
Sinon cet exemple a un souci
on peut mettre 1 dans A1 et A2 et A3
donc voir l'ordre et les conditions.

Cordialement.

lSteph


alain avait prétendu :
bonjour
j'ai des cellules: A1, A2, A3. je met 1 dans une cellule
je voudrais que quand cette cellule est à 1, que les cellules A5 à A15 (par
ex) se colorient d'une certaine couleur.
donc par ex, si A1 les cellules A5 à A15 passent en bleu
si A2 elles passent en jaune, A3 elles passent en vert

si possible en passant par une fonction et non une macro (que je maitrise pas
trop)

merci

AL1


--
- -

Avatar
Jacky
Bonjour,

Regarde ici:
http://cjoint.com/?kuqMRnwjip

--
Salutations
JJ

"alain" a écrit dans le message de news:

bonjour
j'ai des cellules: A1, A2, A3. je met 1 dans une cellule
je voudrais que quand cette cellule est à 1, que les cellules A5 à A15
(par ex) se colorient d'une certaine couleur.
donc par ex, si A1 les cellules A5 à A15 passent en bleu
si A2 elles passent en jaune, A3 elles passent en vert

si possible en passant par une fonction et non une macro (que je maitrise
pas trop)

merci

AL1


Avatar
alain
Bonjour,

Regarde ici:
http://cjoint.com/?kuqMRnwjip

c'est ca, merci bien


AL1

Avatar
alain
le resultat attendu est conforme, mais si je veux plus de 3 conditions,
comment fait on ?
AL1

Bonjour,

Regarde ici:
http://cjoint.com/?kuqMRnwjip

c'est ca, merci bien


AL1



Avatar
Jacky
comment fait on ?
On ne peut pas avec la mfc.

Faudra un peu de VBA.
--
Salutations
JJ

"alain" a écrit dans le message de news:

le resultat attendu est conforme, mais si je veux plus de 3 conditions,
comment fait on ?
AL1

Bonjour,

Regarde ici:
http://cjoint.com/?kuqMRnwjip

c'est ca, merci bien


AL1





Avatar
alain
bon, ben va faloir que je m'y mette
merci
AL1
comment fait on ?
On ne peut pas avec la mfc.

Faudra un peu de VBA.



Avatar
isabelle
bonjour Alain,

si une solution macro te convient, voici un exemple, tu peut mettre autant de "Case" désiré.
la plage Range("A1:A10") est à adapter selon ton besoin, ainsi que les valeur de chaque "case"

Private Sub Worksheet_Change(ByVal Target As Range)
Set isect = Application.Intersect(Target, Range("A1:A10")) 'plage à adapter

If Not isect Is Nothing Then
Target.Interior.ColorIndex = xlNone

Select Case Target
Case "R"
Target.Interior.ColorIndex = 4
Case "RR"
Target.Interior.ColorIndex = 12
Case "DE"
Target.Interior.ColorIndex = 33
Case "DF"
Target.Interior.ColorIndex = 62
Case "M"
Target.Interior.ColorIndex = 54
Case "MN"
Target.Interior.ColorIndex = 24
End Select

End If
End Sub


isabelle



bon, ben va faloir que je m'y mette
merci
AL1

comment fait on ?


On ne peut pas avec la mfc.
Faudra un peu de VBA.





Avatar
alain
merci isabelle
je vais voir ce que je peux faire avec ca
ca demandera un peu de temps pour que comprenne tout
mais comme je suis limité pour les conditions je crois que je vais
serieusement m'attaquer aux macros
si il y a un livre refernt, je suis preneur
merci
AL1
bonjour Alain,

si une solution macro te convient, voici un exemple, tu peut mettre
autant de "Case" désiré.
la plage Range("A1:A10") est à adapter selon ton besoin, ainsi que les
valeur de chaque "case"

Private Sub Worksheet_Change(ByVal Target As Range)
Set isect = Application.Intersect(Target, Range("A1:A10")) 'plage à adapter

If Not isect Is Nothing Then
Target.Interior.ColorIndex = xlNone

Select Case Target
Case "R"
Target.Interior.ColorIndex = 4
Case "RR"
Target.Interior.ColorIndex = 12
Case "DE"
Target.Interior.ColorIndex = 33
Case "DF"
Target.Interior.ColorIndex = 62
Case "M"
Target.Interior.ColorIndex = 54
Case "MN"
Target.Interior.ColorIndex = 24
End Select

End If
End Sub


isabelle



bon, ben va faloir que je m'y mette
merci
AL1

comment fait on ?


On ne peut pas avec la mfc.
Faudra un peu de VBA.







Avatar
isabelle
bonjour alain,

regarde sur ce site http://www.polykromy.com/

dans la section "Divers" "Lien Express"

isabelle


merci isabelle
je vais voir ce que je peux faire avec ca
ca demandera un peu de temps pour que comprenne tout
mais comme je suis limité pour les conditions je crois que je vais
serieusement m'attaquer aux macros
si il y a un livre refernt, je suis preneur
merci
AL1

bonjour Alain,

si une solution macro te convient, voici un exemple, tu peut mettre
autant de "Case" désiré.
la plage Range("A1:A10") est à adapter selon ton besoin, ainsi que les
valeur de chaque "case"

Private Sub Worksheet_Change(ByVal Target As Range)
Set isect = Application.Intersect(Target, Range("A1:A10")) 'plage à
adapter

If Not isect Is Nothing Then
Target.Interior.ColorIndex = xlNone

Select Case Target
Case "R"
Target.Interior.ColorIndex = 4
Case "RR"
Target.Interior.ColorIndex = 12
Case "DE"
Target.Interior.ColorIndex = 33
Case "DF"
Target.Interior.ColorIndex = 62
Case "M"
Target.Interior.ColorIndex = 54
Case "MN"
Target.Interior.ColorIndex = 24
End Select

End If
End Sub


isabelle



bon, ben va faloir que je m'y mette
merci
AL1

comment fait on ?



On ne peut pas avec la mfc.
Faudra un peu de VBA.









Avatar
alain
merci pour les infos
AL1

bonjour alain,

regarde sur ce site http://www.polykromy.com/

dans la section "Divers" "Lien Express"

isabelle