f f
22.03.2010 - 14:32

Couleurs

Bonjour

Je souhaite faire la chose suivante
En A1 : 76
En B1 : 0
En C1 : 153
En D1 : avoir la cellule remplie avec la couleur 76:0:153 (code RVB)

Et bien sur que ce soit dynamique, au changement d'une des valeur de
la zone A1:C1 : mise 0 jour de la couleur..

Est-ce faisable ?

Merci

FdeCourt
22.03.2010 - 15:02

Salut,

Donne une couleur que tu n'utilises pas 0 toutes les cellules dont la
couleur d9pend de ce qui est pr9sent en A1, A2 et A3.

Puis dans le code de ta feuille ajoute ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
r D Cells(1, 1).Value
v D Cells(1, 2).Value
b D Cells(1, 3).Value
ActiveWorkbook.Colors(10) D RGB(r, v, b)
End Sub

Attention il faut que tu changes le 10 en fonction de la couleur que
tu as choisis (le 10 correspond 0 la deuxi8me ligne, 4 case en partant
de la gauche, un esp8ce de vert fonc9).

Cordialement,

F.

f f
22.03.2010 - 15:06

Je n'avais pas pr9cis9, mais c'est pour Excel 2007
Il n'y a donc plus l'ancien cadre de s9lection des couleurs

MAis le choix d'une couleur par code RVB marche toujours....

On 22 mar, 15:02, FdeCourt <fdeco...@gmail.com> wrote:
Salut,

Donne une couleur que tu n'utilises pas 0 toutes les cellules dont la
couleur d9pend de ce qui est pr9sent en A1, A2 et A3.

Puis dans le code de ta feuille ajoute ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
0 0 r D Cells(1, 1).Value
0 0 v D Cells(1, 2).Value
0 0 b D Cells(1, 3).Value
0 0 ActiveWorkbook.Colors(10) D RGB(r, v, b)
End Sub

Attention il faut que tu changes le 10 en fonction de la couleur que
tu as choisis (le 10 correspond 0 la deuxi8me ligne, 4 case en partan=
t
de la gauche, un esp8ce de vert fonc9).

Cordialement,

F.

"michdenis"
22.03.2010 - 15:12

Bonjour,

Dans le module feuille où l'action se déroule,

Copie ce qui suit :
Tu dois ajouter une gestion d'erreur. A1, A2, A3
ne peuvent pas prendre des valeurs plus petite que ZÉRO
et plus grande que 255. (ou tu ajoutes On error resume next)

'------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1:A3")) Is Nothing Then
Application.EnableEvents = False
Range("A4").Value = IIf(Range("A1") = "", 0, Range("A1").Value) _
& "." & IIf(Range("A2") = "", 0, Range("A2").Value) & "." & _
IIf(Range("A3") = "", 0, Range("A3").Value)
Application.EnableEvents = True
'la cellule affiche la couleur représentée par RGB()
Range("A4").Interior.Color = RGB(Range("A1"), Range("A2"), Range("A3"))
End If
End Sub
'------------------------------------

"f f" <fredosocara@gmail.com> a écrit dans le message de groupe de discussion :
0469f446-d53a-4a21-bb1a-ebd2bef80fa2@33g2000yqj.googlegroups.com...
Bonjour

Je souhaite faire la chose suivante
En A1 : 76
En B1 : 0
En C1 : 153
En D1 : avoir la cellule remplie avec la couleur 76:0:153 (code RVB)

Et bien sur que ce soit dynamique, au changement d'une des valeur de
la zone A1:C1 : mise à jour de la couleur..

Est-ce faisable ?

Merci

FdeCourt
22.03.2010 - 15:14

Ouch... je n'ai pas 2007.

"Modeste"
22.03.2010 - 15:36

Bonsour® "f f" <fredosocara@gmail.com>
Je souhaite faire la chose suivante
En A1 : 76
En B1 : 0
En C1 : 153
En D1 : avoir la cellule remplie avec la couleur 76:0:153 (code RVB)

Et bien sur que ce soit dynamique, au changement d'une des valeur de
la zone A1:C1 : mise à jour de la couleur..

Est-ce faisable ?

;o)))
OUI !
mais seulement avec Excel 2007 ou +
à mettre dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:C1")) Is Nothing Then
With Range("D1").Interior
.Pattern = xlSolid
.Color = RGB([a1], [B1], [C1])
End With
[E1] = RGB([a1], [B1], [C1])
Calculate
End If
End Sub

Daniel.C
22.03.2010 - 15:38

Bonjour.
Mets cette macro dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 4 And Target.Row = 1 Then
[D1].Interior.Color = RGB([A1], [B1], [C1])
End If
End Sub

Cordialement.
Daniel

Bonjour

Je souhaite faire la chose suivante
En A1 : 76
En B1 : 0
En C1 : 153
En D1 : avoir la cellule remplie avec la couleur 76:0:153 (code RVB)

Et bien sur que ce soit dynamique, au changement d'une des valeur de
la zone A1:C1 : mise à jour de la couleur..

Est-ce faisable ?

Merci

"michdenis"
22.03.2010 - 15:49

Bonjour Modeste,

| la cellule remplie avec la couleur 76:0:153 (code RVB)

Comment fais-tu pour obtenir ce que le demandeur désire ?
Les apprendre par coeur est une solution...;-)

"Modeste" <nomail@live.fr> a écrit dans le message de groupe de discussion :
O828C0cyKHA.5292@TK2MSFTNGP06.phx.gbl...
Bonsour® "f f" <fredosocara@gmail.com>
Je souhaite faire la chose suivante
En A1 : 76
En B1 : 0
En C1 : 153
En D1 : avoir la cellule remplie avec la couleur 76:0:153 (code RVB)

Et bien sur que ce soit dynamique, au changement d'une des valeur de
la zone A1:C1 : mise à jour de la couleur..

Est-ce faisable ?

;o)))
OUI !
mais seulement avec Excel 2007 ou +
à mettre dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:C1")) Is Nothing Then
With Range("D1").Interior
.Pattern = xlSolid
.Color = RGB([a1], [B1], [C1])
End With
[E1] = RGB([a1], [B1], [C1])
Calculate
End If
End Sub

"Modeste"
22.03.2010 - 16:03

Bonsour® "michdenis" <michdenis@hotmail.com> a écrit

| la cellule remplie avec la couleur 76:0:153 (code RVB)

Comment fais-tu pour obtenir ce que le demandeur désire ?
Les apprendre par coeur est une solution...;-)

????????

Ähnliche Themen

les couleurs
04.08.2010 - 08:48 - Posts: 22

les couleurs
04.08.2010 - 08:50 - Posts: 1

La vie en couleurs
22.01.2012 - 12:08 - Posts: 7

Les couleurs
05.06.2010 - 20:59 - Posts: 5

Des couleurs.
05.12.2009 - 18:07 - Posts: 4

Couleurs d'automne
15.10.2011 - 10:08 - Posts: 1

Les couleurs des religions.
06.12.2009 - 11:34 - Posts: 4