Couleurs

Salut,

Donne une couleur que tu n'utilises pas à toutes les cellules dont la
couleur dépend de ce qui est présent en A1, A2 et A3.

Puis dans le code de ta feuille ajoute ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
r = Cells(1, 1).Value
v = Cells(1, 2).Value
b = Cells(1, 3).Value
ActiveWorkbook.Colors(10) = 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 à la deuxième ligne, 4 case en partant
de la gauche, un espèce de vert foncé).

Cordialement,

F.

Je n'avais pas précisé, mais c'est pour Excel 2007
Il n'y a donc plus l'ancien cadre de sélection 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 à toutes les cellules dont la
couleur dépend de ce qui est présent en A1, A2 et A3.

Puis dans le code de ta feuille ajoute ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    r = Cells(1, 1).Value
    v = Cells(1, 2).Value
    b = Cells(1, 3).Value
    ActiveWorkbook.Colors(10) = 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 à la deuxième ligne, 4 case en partan t
de la gauche, un espèce de vert foncé).

Cordialement,

F.

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

Ouch... je n'ai pas 2007.

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

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

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

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...;-)

????????