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
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 partant de la gauche, un espèce de vert foncé).
Cordialement,
F.
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é).
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
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 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.
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é).
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 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.
michdenis
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" a écrit dans le message de groupe de discussion :
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,
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..
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" a écrit dans le message de groupe de discussion :
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..
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® "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
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
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.
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..
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
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" a écrit dans le message de groupe de discussion :
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
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
| 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" a écrit dans le message de groupe de discussion :
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
Bonsour® "michdenis" 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...;-)
????????
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...;-)