Couleur d'une zone de texte

Bonjour,

'---------------------------------
Sub test()
Dim A As Long, B As Long
With Worksheets("Feuil1")
A = .Shapes("ZoneTexte 1").OLEFormat.Object.Border.Color
'OU
B = .Shapes("ZoneTexte 1").OLEFormat.Object.Border.ColorIndex
End With
End Sub
'---------------------------------


MichD
--------------------------------------------------------------

Bonjour MichD,

Le code reprend la couleur de la bordure et non pas celle du remplissage de la forme !?

Sub test()
Dim A As Long, B As Long, C As Long, D As Long
Dim Sh As TextBox
With Worksheets("Feuil1")
'Pour récupérer la couleur de la bordure
A = .Shapes("ZoneTexte 1").OLEFormat.Object.Border.Color
'OU
B = .Shapes("ZoneTexte 1").OLEFormat.Object.Border.ColorIndex

'Pour récupérer la couleur du Texte de la zone de texte
C = .Shapes("ZoneTexte 1").OLEFormat.Object.Interior.Color 'Ou colorIndex

'Pour récupérer la couleur du texte de la zone de texte
D = .Shapes("ZoneTexte 1").OLEFormat.Object.Characters.Font.Color 'Ou colorIndex
End With
End Sub


MichD
--------------------------------------------------------------

Reste le code pour récupérer la couleur du remplissage de la forme, cou leur du fond (Fill)

Merci.

Tu attaches cette macro à chacune de tes zones de texte
et tu cliques dans un deuxième temps sur la zone de texte...


Sub test()
Dim A As Long, B As Long, C As Long
Dim X As String, D As Long
Dim Sh As TextBox
With Worksheets("Feuil1")
X = Application.Caller
With .Shapes(X).OLEFormat.Object
'Pour récupérer la couleur de la bordure
A = .Border.Color
'OU
B = .Border.ColorIndex

'Pour récupérer la couleur du fond de la zone de texte
C = .Interior.Color 'Ou colorIndex

'Pour récupérer la couleur du texte de la zone de texte
D = .Characters.Font.Color 'Ou colorIndex
End With
End With
End Sub



MichD
--------------------------------------------------------------