Couleurs

Le
f f
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FdeCourt
Le #21420361
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.
f f
Le #21420351
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
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.
michdenis
Le #21420341
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"
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
Le #21420331
Ouch... je n'ai pas 2007.
Modeste
Le #21420541
Bonsour® "f f"
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
Le #21420531
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
Le #21420581
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"
Bonsour® "f f"
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
Le #21420681
Bonsour® "michdenis"

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



????????
Publicité
Poster une réponse
Anonyme