Bonjour,
Je souhaite que la couleur d'une forme soit identique à la couleur d'une cellule active.
Voici le code pour récupérer la couleur de la cellule Active :
Voici le code pour colorer la forme :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Function RecupCouleurCase() Dim CoulRVB As Long Dim Bleu As Integer Dim Vert As Integer Dim Rouge As Integer CoulRVB = ActiveCell.Interior.color Rouge = Int(CoulRVB Mod 256) Vert = Int((CoulRVB Mod 65536) / 256) Bleu = Int(CoulRVB / 65536) RecupCouleurCase = "RGB(" & Rouge & ", " & Vert & ", " & Bleu & ")" End Function
La valeur récupérée par la variable me semble à première vue correcte, mais j'obtiens une erreur sur la ligne lors de l'exécution du code.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Sub CopieValeurCase() Dim a As String Dim ColorCase As String a = RecupCouleurCase CaseValeur = ActiveCell.Value ActiveSheet.Shapes.Range(Array("TextBox 6")).Select Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = CaseValeur Selection.ShapeRange.Fill.ForeColor.RGB = a 'Selection.ShapeRange.Fill.ForeColor.RGB = RGB(141, 180, 226) Range("A1").Select End Sub
Lorsque j'essaye avec la ligne suivante (actuellement en commentaire) cela fonctionne.
Pouvez-vous m'aider ? Je suis un peu bloqué, Peut-être une poussière dans l'oeil.
Merci
Partager