j'aimerais qu'une cellule prenne 4 couleurs différentes suivant que l'on y
rentre 1,2 3 ou 4.
comment faire; avec la mise en forme conditionnelle classique, je suis
bloqué à 3...
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
Marc T
Bonjour, avec la mise en forme de départ tu as bien 4 couleurs possibles ... bon dimanche cordialement MarcT
Bonjour,
j'aimerais qu'une cellule prenne 4 couleurs différentes suivant que l'o n y rentre 1,2 3 ou 4. comment faire; avec la mise en forme conditionnelle classique, je suis bloqué à 3...
merci et bon dimanche
Bonjour,
avec la mise en forme de départ tu as bien 4 couleurs possibles ...
bon dimanche
cordialement
MarcT
Bonjour,
j'aimerais qu'une cellule prenne 4 couleurs différentes suivant que l'o n y
rentre 1,2 3 ou 4.
comment faire; avec la mise en forme conditionnelle classique, je suis
bloqué à 3...
Bonjour, avec la mise en forme de départ tu as bien 4 couleurs possibles ... bon dimanche cordialement MarcT
Bonjour,
j'aimerais qu'une cellule prenne 4 couleurs différentes suivant que l'o n y rentre 1,2 3 ou 4. comment faire; avec la mise en forme conditionnelle classique, je suis bloqué à 3...
merci et bon dimanche
Francois L
Bonjour,
j'aimerais qu'une cellule prenne 4 couleurs différentes suivant que l'on y rentre 1,2 3 ou 4. comment faire; avec la mise en forme conditionnelle classique, je suis bloqué à 3...
Bonjour,
Avant de commencer, un petit conseil : commences un nouveau fil si tu as une question, ne te mets pas dans un fil existant.
Pour ta question, supposons que tu veuilles 1 = jaune, 2 = vert, 3 = bleu, 4 = violet.
Met ta cellule avec un fond violet, puis utilises les trois conditions de la mise en forme conditionnelle (MEFC de son petit nom) pour donner les couleurs jaune si 1, vert si 2 et bleu si 3. Tu verras, tu auras bien ce que tu veux.
-- François L
Bonjour,
j'aimerais qu'une cellule prenne 4 couleurs différentes suivant que l'on y
rentre 1,2 3 ou 4.
comment faire; avec la mise en forme conditionnelle classique, je suis
bloqué à 3...
Bonjour,
Avant de commencer, un petit conseil : commences un nouveau fil si tu as
une question, ne te mets pas dans un fil existant.
Pour ta question, supposons que tu veuilles 1 = jaune, 2 = vert, 3 =
bleu, 4 = violet.
Met ta cellule avec un fond violet, puis utilises les trois conditions
de la mise en forme conditionnelle (MEFC de son petit nom) pour donner
les couleurs jaune si 1, vert si 2 et bleu si 3. Tu verras, tu auras
bien ce que tu veux.
j'aimerais qu'une cellule prenne 4 couleurs différentes suivant que l'on y rentre 1,2 3 ou 4. comment faire; avec la mise en forme conditionnelle classique, je suis bloqué à 3...
Bonjour,
Avant de commencer, un petit conseil : commences un nouveau fil si tu as une question, ne te mets pas dans un fil existant.
Pour ta question, supposons que tu veuilles 1 = jaune, 2 = vert, 3 = bleu, 4 = violet.
Met ta cellule avec un fond violet, puis utilises les trois conditions de la mise en forme conditionnelle (MEFC de son petit nom) pour donner les couleurs jaune si 1, vert si 2 et bleu si 3. Tu verras, tu auras bien ce que tu veux.
-- François L
désolé, je ne suis pas un habitué des forums... mon pb, c'est bien d'avoir une couleur au départ (blanche par défaut avec une cellule vide) et 4 autres après avec 1,2,3 ou 4
merci pour vos réponses cordialement
"Francois L" a écrit dans le message de news: %
Bonjour,
j'aimerais qu'une cellule prenne 4 couleurs différentes suivant que l'on y rentre 1,2 3 ou 4. comment faire; avec la mise en forme conditionnelle classique, je suis bloqué à 3...
Bonjour,
Avant de commencer, un petit conseil : commences un nouveau fil si tu as une question, ne te mets pas dans un fil existant.
Pour ta question, supposons que tu veuilles 1 = jaune, 2 = vert, 3 = bleu, 4 = violet.
Met ta cellule avec un fond violet, puis utilises les trois conditions de la mise en forme conditionnelle (MEFC de son petit nom) pour donner les couleurs jaune si 1, vert si 2 et bleu si 3. Tu verras, tu auras bien ce que tu veux.
-- François L
désolé, je ne suis pas un habitué des forums...
mon pb, c'est bien d'avoir une couleur au départ (blanche par défaut avec
une cellule vide) et 4 autres après avec 1,2,3 ou 4
merci pour vos réponses
cordialement
"Francois L" <francois@noadress.fr.invalid> a écrit dans le message de news:
%23N2wKP83GHA.4976@TK2MSFTNGP02.phx.gbl...
Bonjour,
j'aimerais qu'une cellule prenne 4 couleurs différentes suivant que l'on
y rentre 1,2 3 ou 4.
comment faire; avec la mise en forme conditionnelle classique, je suis
bloqué à 3...
Bonjour,
Avant de commencer, un petit conseil : commences un nouveau fil si tu as
une question, ne te mets pas dans un fil existant.
Pour ta question, supposons que tu veuilles 1 = jaune, 2 = vert, 3 = bleu,
4 = violet.
Met ta cellule avec un fond violet, puis utilises les trois conditions de
la mise en forme conditionnelle (MEFC de son petit nom) pour donner les
couleurs jaune si 1, vert si 2 et bleu si 3. Tu verras, tu auras bien ce
que tu veux.
désolé, je ne suis pas un habitué des forums... mon pb, c'est bien d'avoir une couleur au départ (blanche par défaut avec une cellule vide) et 4 autres après avec 1,2,3 ou 4
merci pour vos réponses cordialement
"Francois L" a écrit dans le message de news: %
Bonjour,
j'aimerais qu'une cellule prenne 4 couleurs différentes suivant que l'on y rentre 1,2 3 ou 4. comment faire; avec la mise en forme conditionnelle classique, je suis bloqué à 3...
Bonjour,
Avant de commencer, un petit conseil : commences un nouveau fil si tu as une question, ne te mets pas dans un fil existant.
Pour ta question, supposons que tu veuilles 1 = jaune, 2 = vert, 3 = bleu, 4 = violet.
Met ta cellule avec un fond violet, puis utilises les trois conditions de la mise en forme conditionnelle (MEFC de son petit nom) pour donner les couleurs jaune si 1, vert si 2 et bleu si 3. Tu verras, tu auras bien ce que tu veux.
-- François L
jps
bonjour toujours les mêmes qui sont de permanence... dans le module de ta feuille, tu colles cette proc en adaptant l'index des couleurs (j'ai mis car j'espère que ça marchera!)
Private Sub Worksheet_Change(ByVal Target As Range) With Target.Interior Select Case Target.Value Case Is = 1 .ColorIndex = 5 Case Is = 2 .ColorIndex = 3 Case Is = 3 .ColorIndex = 35 Case Is = 4 .ColorIndex = 6
End Select End With End Sub
HTH jps
<@club-internet.fr> a écrit dans le message de news: 45167d81$0$21151$
désolé, je ne suis pas un habitué des forums... mon pb, c'est bien d'avoir une couleur au départ (blanche par défaut avec une cellule vide) et 4 autres après avec 1,2,3 ou 4
merci pour vos réponses cordialement
"Francois L" a écrit dans le message de news: %
Bonjour,
j'aimerais qu'une cellule prenne 4 couleurs différentes suivant que l'on y rentre 1,2 3 ou 4. comment faire; avec la mise en forme conditionnelle classique, je suis bloqué à 3...
Bonjour,
Avant de commencer, un petit conseil : commences un nouveau fil si tu as une question, ne te mets pas dans un fil existant.
Pour ta question, supposons que tu veuilles 1 = jaune, 2 = vert, 3 = bleu, 4 = violet.
Met ta cellule avec un fond violet, puis utilises les trois conditions de la mise en forme conditionnelle (MEFC de son petit nom) pour donner les couleurs jaune si 1, vert si 2 et bleu si 3. Tu verras, tu auras bien ce que tu veux.
-- François L
bonjour
toujours les mêmes qui sont de permanence...
dans le module de ta feuille, tu colles cette proc en adaptant l'index des
couleurs (j'ai mis car j'espère que ça marchera!)
Private Sub Worksheet_Change(ByVal Target As Range)
With Target.Interior
Select Case Target.Value
Case Is = 1
.ColorIndex = 5
Case Is = 2
.ColorIndex = 3
Case Is = 3
.ColorIndex = 35
Case Is = 4
.ColorIndex = 6
End Select
End With
End Sub
HTH
jps
<@club-internet.fr> a écrit dans le message de news:
45167d81$0$21151$7a628cd7@news.club-internet.fr...
désolé, je ne suis pas un habitué des forums...
mon pb, c'est bien d'avoir une couleur au départ (blanche par défaut avec
une cellule vide) et 4 autres après avec 1,2,3 ou 4
merci pour vos réponses
cordialement
"Francois L" <francois@noadress.fr.invalid> a écrit dans le message de
news: %23N2wKP83GHA.4976@TK2MSFTNGP02.phx.gbl...
Bonjour,
j'aimerais qu'une cellule prenne 4 couleurs différentes suivant que l'on
y rentre 1,2 3 ou 4.
comment faire; avec la mise en forme conditionnelle classique, je suis
bloqué à 3...
Bonjour,
Avant de commencer, un petit conseil : commences un nouveau fil si tu as
une question, ne te mets pas dans un fil existant.
Pour ta question, supposons que tu veuilles 1 = jaune, 2 = vert, 3 =
bleu, 4 = violet.
Met ta cellule avec un fond violet, puis utilises les trois conditions de
la mise en forme conditionnelle (MEFC de son petit nom) pour donner les
couleurs jaune si 1, vert si 2 et bleu si 3. Tu verras, tu auras bien ce
que tu veux.
bonjour toujours les mêmes qui sont de permanence... dans le module de ta feuille, tu colles cette proc en adaptant l'index des couleurs (j'ai mis car j'espère que ça marchera!)
Private Sub Worksheet_Change(ByVal Target As Range) With Target.Interior Select Case Target.Value Case Is = 1 .ColorIndex = 5 Case Is = 2 .ColorIndex = 3 Case Is = 3 .ColorIndex = 35 Case Is = 4 .ColorIndex = 6
End Select End With End Sub
HTH jps
<@club-internet.fr> a écrit dans le message de news: 45167d81$0$21151$
désolé, je ne suis pas un habitué des forums... mon pb, c'est bien d'avoir une couleur au départ (blanche par défaut avec une cellule vide) et 4 autres après avec 1,2,3 ou 4
merci pour vos réponses cordialement
"Francois L" a écrit dans le message de news: %
Bonjour,
j'aimerais qu'une cellule prenne 4 couleurs différentes suivant que l'on y rentre 1,2 3 ou 4. comment faire; avec la mise en forme conditionnelle classique, je suis bloqué à 3...
Bonjour,
Avant de commencer, un petit conseil : commences un nouveau fil si tu as une question, ne te mets pas dans un fil existant.
Pour ta question, supposons que tu veuilles 1 = jaune, 2 = vert, 3 = bleu, 4 = violet.
Met ta cellule avec un fond violet, puis utilises les trois conditions de la mise en forme conditionnelle (MEFC de son petit nom) pour donner les couleurs jaune si 1, vert si 2 et bleu si 3. Tu verras, tu auras bien ce que tu veux.
-- François L
merci, super... cordialement
"jps" a écrit dans le message de news: %23Z8e9F%
bonjour toujours les mêmes qui sont de permanence... dans le module de ta feuille, tu colles cette proc en adaptant l'index des couleurs (j'ai mis car j'espère que ça marchera!)
Private Sub Worksheet_Change(ByVal Target As Range) With Target.Interior Select Case Target.Value Case Is = 1 .ColorIndex = 5 Case Is = 2 .ColorIndex = 3 Case Is = 3 .ColorIndex = 35 Case Is = 4 .ColorIndex = 6
End Select End With End Sub
HTH jps
<@club-internet.fr> a écrit dans le message de news: 45167d81$0$21151$
désolé, je ne suis pas un habitué des forums... mon pb, c'est bien d'avoir une couleur au départ (blanche par défaut avec une cellule vide) et 4 autres après avec 1,2,3 ou 4
merci pour vos réponses cordialement
"Francois L" a écrit dans le message de news: %
Bonjour,
j'aimerais qu'une cellule prenne 4 couleurs différentes suivant que l'on y rentre 1,2 3 ou 4. comment faire; avec la mise en forme conditionnelle classique, je suis bloqué à 3...
Bonjour,
Avant de commencer, un petit conseil : commences un nouveau fil si tu as une question, ne te mets pas dans un fil existant.
Pour ta question, supposons que tu veuilles 1 = jaune, 2 = vert, 3 = bleu, 4 = violet.
Met ta cellule avec un fond violet, puis utilises les trois conditions de la mise en forme conditionnelle (MEFC de son petit nom) pour donner les couleurs jaune si 1, vert si 2 et bleu si 3. Tu verras, tu auras bien ce que tu veux.
-- François L
merci, super...
cordialement
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
%23Z8e9F%233GHA.1268@TK2MSFTNGP02.phx.gbl...
bonjour
toujours les mêmes qui sont de permanence...
dans le module de ta feuille, tu colles cette proc en adaptant l'index des
couleurs (j'ai mis car j'espère que ça marchera!)
Private Sub Worksheet_Change(ByVal Target As Range)
With Target.Interior
Select Case Target.Value
Case Is = 1
.ColorIndex = 5
Case Is = 2
.ColorIndex = 3
Case Is = 3
.ColorIndex = 35
Case Is = 4
.ColorIndex = 6
End Select
End With
End Sub
HTH
jps
<@club-internet.fr> a écrit dans le message de news:
45167d81$0$21151$7a628cd7@news.club-internet.fr...
désolé, je ne suis pas un habitué des forums...
mon pb, c'est bien d'avoir une couleur au départ (blanche par défaut avec
une cellule vide) et 4 autres après avec 1,2,3 ou 4
merci pour vos réponses
cordialement
"Francois L" <francois@noadress.fr.invalid> a écrit dans le message de
news: %23N2wKP83GHA.4976@TK2MSFTNGP02.phx.gbl...
Bonjour,
j'aimerais qu'une cellule prenne 4 couleurs différentes suivant que
l'on y rentre 1,2 3 ou 4.
comment faire; avec la mise en forme conditionnelle classique, je suis
bloqué à 3...
Bonjour,
Avant de commencer, un petit conseil : commences un nouveau fil si tu as
une question, ne te mets pas dans un fil existant.
Pour ta question, supposons que tu veuilles 1 = jaune, 2 = vert, 3 =
bleu, 4 = violet.
Met ta cellule avec un fond violet, puis utilises les trois conditions
de la mise en forme conditionnelle (MEFC de son petit nom) pour donner
les couleurs jaune si 1, vert si 2 et bleu si 3. Tu verras, tu auras
bien ce que tu veux.
bonjour toujours les mêmes qui sont de permanence... dans le module de ta feuille, tu colles cette proc en adaptant l'index des couleurs (j'ai mis car j'espère que ça marchera!)
Private Sub Worksheet_Change(ByVal Target As Range) With Target.Interior Select Case Target.Value Case Is = 1 .ColorIndex = 5 Case Is = 2 .ColorIndex = 3 Case Is = 3 .ColorIndex = 35 Case Is = 4 .ColorIndex = 6
End Select End With End Sub
HTH jps
<@club-internet.fr> a écrit dans le message de news: 45167d81$0$21151$
désolé, je ne suis pas un habitué des forums... mon pb, c'est bien d'avoir une couleur au départ (blanche par défaut avec une cellule vide) et 4 autres après avec 1,2,3 ou 4
merci pour vos réponses cordialement
"Francois L" a écrit dans le message de news: %
Bonjour,
j'aimerais qu'une cellule prenne 4 couleurs différentes suivant que l'on y rentre 1,2 3 ou 4. comment faire; avec la mise en forme conditionnelle classique, je suis bloqué à 3...
Bonjour,
Avant de commencer, un petit conseil : commences un nouveau fil si tu as une question, ne te mets pas dans un fil existant.
Pour ta question, supposons que tu veuilles 1 = jaune, 2 = vert, 3 = bleu, 4 = violet.
Met ta cellule avec un fond violet, puis utilises les trois conditions de la mise en forme conditionnelle (MEFC de son petit nom) pour donner les couleurs jaune si 1, vert si 2 et bleu si 3. Tu verras, tu auras bien ce que tu veux.
-- François L
Francois L
bonjour toujours les mêmes qui sont de permanence... dans le module de ta feuille, tu colles cette proc en adaptant l'index des couleurs (j'ai mis car j'espère que ça marchera!)
Private Sub Worksheet_Change(ByVal Target As Range) With Target.Interior Select Case Target.Value Case Is = 1 .ColorIndex = 5 Case Is = 2 .ColorIndex = 3 Case Is = 3 .ColorIndex = 35 Case Is = 4 .ColorIndex = 6
End Select End With End Sub
Bonjour encore jps,
Est-ce que je peux suggérer d'ajouter Case Else .ColorIndex = -4142
avant le End Select
Comme ça, on retrouve le blanc si on modifie une cellule coloriée avec une valeur non prévue par le Select Case.
-- François L
bonjour
toujours les mêmes qui sont de permanence...
dans le module de ta feuille, tu colles cette proc en adaptant l'index des
couleurs (j'ai mis car j'espère que ça marchera!)
Private Sub Worksheet_Change(ByVal Target As Range)
With Target.Interior
Select Case Target.Value
Case Is = 1
.ColorIndex = 5
Case Is = 2
.ColorIndex = 3
Case Is = 3
.ColorIndex = 35
Case Is = 4
.ColorIndex = 6
End Select
End With
End Sub
Bonjour encore jps,
Est-ce que je peux suggérer d'ajouter
Case Else
.ColorIndex = -4142
avant le End Select
Comme ça, on retrouve le blanc si on modifie une cellule coloriée avec
une valeur non prévue par le Select Case.
bonjour toujours les mêmes qui sont de permanence... dans le module de ta feuille, tu colles cette proc en adaptant l'index des couleurs (j'ai mis car j'espère que ça marchera!)
Private Sub Worksheet_Change(ByVal Target As Range) With Target.Interior Select Case Target.Value Case Is = 1 .ColorIndex = 5 Case Is = 2 .ColorIndex = 3 Case Is = 3 .ColorIndex = 35 Case Is = 4 .ColorIndex = 6
End Select End With End Sub
Bonjour encore jps,
Est-ce que je peux suggérer d'ajouter Case Else .ColorIndex = -4142
avant le End Select
Comme ça, on retrouve le blanc si on modifie une cellule coloriée avec une valeur non prévue par le Select Case.
-- François L
jps
ach! en effet, françois, j'ai oublié le Case Else qui pourrait peut-être aussi s'écrire = xlNone, non? c'est tellement moins rébarbatif que ce -4142 qui me fait toujours penser, vu la profondeur, à cette fosse marine au large du Sénégal qui ne cesse d'attirer toutes sortes de requins jps
"Francois L" a écrit dans le message de news: u%23hWvO%
bonjour toujours les mêmes qui sont de permanence... dans le module de ta feuille, tu colles cette proc en adaptant l'index des couleurs (j'ai mis car j'espère que ça marchera!)
Private Sub Worksheet_Change(ByVal Target As Range) With Target.Interior Select Case Target.Value Case Is = 1 .ColorIndex = 5 Case Is = 2 .ColorIndex = 3 Case Is = 3 .ColorIndex = 35 Case Is = 4 .ColorIndex = 6
End Select End With End Sub
Bonjour encore jps,
Est-ce que je peux suggérer d'ajouter Case Else .ColorIndex = -4142
avant le End Select
Comme ça, on retrouve le blanc si on modifie une cellule coloriée avec une valeur non prévue par le Select Case.
-- François L
ach! en effet, françois, j'ai oublié le Case Else qui pourrait peut-être
aussi s'écrire = xlNone, non? c'est tellement moins rébarbatif que ce -4142
qui me fait toujours penser, vu la profondeur, à cette fosse marine au large
du Sénégal qui ne cesse d'attirer toutes sortes de requins
jps
"Francois L" <francois@noadress.fr.invalid> a écrit dans le message de news:
u%23hWvO%233GHA.600@TK2MSFTNGP05.phx.gbl...
bonjour
toujours les mêmes qui sont de permanence...
dans le module de ta feuille, tu colles cette proc en adaptant l'index
des couleurs (j'ai mis car j'espère que ça marchera!)
Private Sub Worksheet_Change(ByVal Target As Range)
With Target.Interior
Select Case Target.Value
Case Is = 1
.ColorIndex = 5
Case Is = 2
.ColorIndex = 3
Case Is = 3
.ColorIndex = 35
Case Is = 4
.ColorIndex = 6
End Select
End With
End Sub
Bonjour encore jps,
Est-ce que je peux suggérer d'ajouter
Case Else
.ColorIndex = -4142
avant le End Select
Comme ça, on retrouve le blanc si on modifie une cellule coloriée avec une
valeur non prévue par le Select Case.
ach! en effet, françois, j'ai oublié le Case Else qui pourrait peut-être aussi s'écrire = xlNone, non? c'est tellement moins rébarbatif que ce -4142 qui me fait toujours penser, vu la profondeur, à cette fosse marine au large du Sénégal qui ne cesse d'attirer toutes sortes de requins jps
"Francois L" a écrit dans le message de news: u%23hWvO%
bonjour toujours les mêmes qui sont de permanence... dans le module de ta feuille, tu colles cette proc en adaptant l'index des couleurs (j'ai mis car j'espère que ça marchera!)
Private Sub Worksheet_Change(ByVal Target As Range) With Target.Interior Select Case Target.Value Case Is = 1 .ColorIndex = 5 Case Is = 2 .ColorIndex = 3 Case Is = 3 .ColorIndex = 35 Case Is = 4 .ColorIndex = 6
End Select End With End Sub
Bonjour encore jps,
Est-ce que je peux suggérer d'ajouter Case Else .ColorIndex = -4142
avant le End Select
Comme ça, on retrouve le blanc si on modifie une cellule coloriée avec une valeur non prévue par le Select Case.
-- François L
JB
Bonjour,
Pour créer une barre de saisie et de coloriage dans votre classeur. Cette barre est disponible sur tous les onglets.
http://cjoint.com/?jysZ04YU4d
-Saisir dans un champ les valeurs(1,2,3,4,..) dans un onglet Couleurs -Nommer le champ Couleurs(Insertion/Nom/Définir) -Alt+F11 -Insertion/Module -Copier/Coller du code ci dessous -Sauvegarder/Fermer -Ouvrir -Une barre de coloriage apparait -Sélectionner une cellule ou un champ -Cliquer sur 1,2,.. dans la barre
Sub auto_open() On Error Resume Next CommandBars.Add ("BarreColoriage") CommandBars("BarreColoriage").Visible = True For i = 1 To [couleurs].Count Set bouton = CommandBars("BarreColoriage").Controls.Add(Type:=msoControlButton) bouton.Style = msoButtonCaption bouton.Tag = i bouton.OnAction = "'Coloriage """ & bouton.Tag & """'" bouton.Caption = Range("couleurs")(i) Next i End Sub
Sub Coloriage(p) For Each c In Selection c.Value = Range("couleurs")(p) Range("couleurs")(p).Copy c Next c End Sub
Sub auto_close() On Error Resume Next Application.CommandBars("BarreColoriage").Delete End Sub
JB
Bonjour,
j'aimerais qu'une cellule prenne 4 couleurs différentes suivant que l'o n y rentre 1,2 3 ou 4. comment faire; avec la mise en forme conditionnelle classique, je suis bloqué à 3...
merci et bon dimanche
Bonjour,
Pour créer une barre de saisie et de coloriage dans votre classeur.
Cette barre est disponible sur tous les onglets.
http://cjoint.com/?jysZ04YU4d
-Saisir dans un champ les valeurs(1,2,3,4,..) dans un onglet Couleurs
-Nommer le champ Couleurs(Insertion/Nom/Définir)
-Alt+F11
-Insertion/Module
-Copier/Coller du code ci dessous
-Sauvegarder/Fermer
-Ouvrir
-Une barre de coloriage apparait
-Sélectionner une cellule ou un champ
-Cliquer sur 1,2,.. dans la barre
Sub auto_open()
On Error Resume Next
CommandBars.Add ("BarreColoriage")
CommandBars("BarreColoriage").Visible = True
For i = 1 To [couleurs].Count
Set bouton =
CommandBars("BarreColoriage").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.Tag = i
bouton.OnAction = "'Coloriage """ & bouton.Tag & """'"
bouton.Caption = Range("couleurs")(i)
Next i
End Sub
Sub Coloriage(p)
For Each c In Selection
c.Value = Range("couleurs")(p)
Range("couleurs")(p).Copy c
Next c
End Sub
Sub auto_close()
On Error Resume Next
Application.CommandBars("BarreColoriage").Delete
End Sub
JB
Bonjour,
j'aimerais qu'une cellule prenne 4 couleurs différentes suivant que l'o n y
rentre 1,2 3 ou 4.
comment faire; avec la mise en forme conditionnelle classique, je suis
bloqué à 3...
Pour créer une barre de saisie et de coloriage dans votre classeur. Cette barre est disponible sur tous les onglets.
http://cjoint.com/?jysZ04YU4d
-Saisir dans un champ les valeurs(1,2,3,4,..) dans un onglet Couleurs -Nommer le champ Couleurs(Insertion/Nom/Définir) -Alt+F11 -Insertion/Module -Copier/Coller du code ci dessous -Sauvegarder/Fermer -Ouvrir -Une barre de coloriage apparait -Sélectionner une cellule ou un champ -Cliquer sur 1,2,.. dans la barre
Sub auto_open() On Error Resume Next CommandBars.Add ("BarreColoriage") CommandBars("BarreColoriage").Visible = True For i = 1 To [couleurs].Count Set bouton = CommandBars("BarreColoriage").Controls.Add(Type:=msoControlButton) bouton.Style = msoButtonCaption bouton.Tag = i bouton.OnAction = "'Coloriage """ & bouton.Tag & """'" bouton.Caption = Range("couleurs")(i) Next i End Sub
Sub Coloriage(p) For Each c In Selection c.Value = Range("couleurs")(p) Range("couleurs")(p).Copy c Next c End Sub
Sub auto_close() On Error Resume Next Application.CommandBars("BarreColoriage").Delete End Sub
JB
Bonjour,
j'aimerais qu'une cellule prenne 4 couleurs différentes suivant que l'o n y rentre 1,2 3 ou 4. comment faire; avec la mise en forme conditionnelle classique, je suis bloqué à 3...
merci et bon dimanche
merci, je vais essayer.
"JB" a écrit dans le message de news:
Bonjour,
Pour créer une barre de saisie et de coloriage dans votre classeur. Cette barre est disponible sur tous les onglets.
http://cjoint.com/?jysZ04YU4d
-Saisir dans un champ les valeurs(1,2,3,4,..) dans un onglet Couleurs -Nommer le champ Couleurs(Insertion/Nom/Définir) -Alt+F11 -Insertion/Module -Copier/Coller du code ci dessous -Sauvegarder/Fermer -Ouvrir -Une barre de coloriage apparait -Sélectionner une cellule ou un champ -Cliquer sur 1,2,.. dans la barre
Sub auto_open() On Error Resume Next CommandBars.Add ("BarreColoriage") CommandBars("BarreColoriage").Visible = True For i = 1 To [couleurs].Count Set bouton CommandBars("BarreColoriage").Controls.Add(Type:=msoControlButton) bouton.Style = msoButtonCaption bouton.Tag = i bouton.OnAction = "'Coloriage """ & bouton.Tag & """'" bouton.Caption = Range("couleurs")(i) Next i End Sub
Sub Coloriage(p) For Each c In Selection c.Value = Range("couleurs")(p) Range("couleurs")(p).Copy c Next c End Sub
Sub auto_close() On Error Resume Next Application.CommandBars("BarreColoriage").Delete End Sub
JB
Bonjour,
j'aimerais qu'une cellule prenne 4 couleurs différentes suivant que l'on y rentre 1,2 3 ou 4. comment faire; avec la mise en forme conditionnelle classique, je suis bloqué à 3...
merci et bon dimanche
merci, je vais essayer.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1159116790.130166.8610@h48g2000cwc.googlegroups.com...
Bonjour,
Pour créer une barre de saisie et de coloriage dans votre classeur.
Cette barre est disponible sur tous les onglets.
http://cjoint.com/?jysZ04YU4d
-Saisir dans un champ les valeurs(1,2,3,4,..) dans un onglet Couleurs
-Nommer le champ Couleurs(Insertion/Nom/Définir)
-Alt+F11
-Insertion/Module
-Copier/Coller du code ci dessous
-Sauvegarder/Fermer
-Ouvrir
-Une barre de coloriage apparait
-Sélectionner une cellule ou un champ
-Cliquer sur 1,2,.. dans la barre
Sub auto_open()
On Error Resume Next
CommandBars.Add ("BarreColoriage")
CommandBars("BarreColoriage").Visible = True
For i = 1 To [couleurs].Count
Set bouton CommandBars("BarreColoriage").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.Tag = i
bouton.OnAction = "'Coloriage """ & bouton.Tag & """'"
bouton.Caption = Range("couleurs")(i)
Next i
End Sub
Sub Coloriage(p)
For Each c In Selection
c.Value = Range("couleurs")(p)
Range("couleurs")(p).Copy c
Next c
End Sub
Sub auto_close()
On Error Resume Next
Application.CommandBars("BarreColoriage").Delete
End Sub
JB
Bonjour,
j'aimerais qu'une cellule prenne 4 couleurs différentes suivant que l'on y
rentre 1,2 3 ou 4.
comment faire; avec la mise en forme conditionnelle classique, je suis
bloqué à 3...
Pour créer une barre de saisie et de coloriage dans votre classeur. Cette barre est disponible sur tous les onglets.
http://cjoint.com/?jysZ04YU4d
-Saisir dans un champ les valeurs(1,2,3,4,..) dans un onglet Couleurs -Nommer le champ Couleurs(Insertion/Nom/Définir) -Alt+F11 -Insertion/Module -Copier/Coller du code ci dessous -Sauvegarder/Fermer -Ouvrir -Une barre de coloriage apparait -Sélectionner une cellule ou un champ -Cliquer sur 1,2,.. dans la barre
Sub auto_open() On Error Resume Next CommandBars.Add ("BarreColoriage") CommandBars("BarreColoriage").Visible = True For i = 1 To [couleurs].Count Set bouton CommandBars("BarreColoriage").Controls.Add(Type:=msoControlButton) bouton.Style = msoButtonCaption bouton.Tag = i bouton.OnAction = "'Coloriage """ & bouton.Tag & """'" bouton.Caption = Range("couleurs")(i) Next i End Sub
Sub Coloriage(p) For Each c In Selection c.Value = Range("couleurs")(p) Range("couleurs")(p).Copy c Next c End Sub
Sub auto_close() On Error Resume Next Application.CommandBars("BarreColoriage").Delete End Sub
JB
Bonjour,
j'aimerais qu'une cellule prenne 4 couleurs différentes suivant que l'on y rentre 1,2 3 ou 4. comment faire; avec la mise en forme conditionnelle classique, je suis bloqué à 3...
