Couleur d'une zone de texte

Le
Apitos
Bonsoir à tous,

Comment récupérer la couleur d'une zone de texte msoTextBox sur une feu=
ille ?

Merci
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #24971912
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
--------------------------------------------------------------
Répondre en citant
Apitos
Le #24971952
Bonjour MichD,

Le code reprend la couleur de la bordure et non pas celle du remplissage de la forme !?
Répondre en citant
MichD
Le #24971942
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
--------------------------------------------------------------
Répondre en citant
Apitos
Le #24972092
Reste le code pour récupérer la couleur du remplissage de la forme, cou leur du fond (Fill)

Merci.
Répondre en citant
MichD
Le #24973102
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
--------------------------------------------------------------
Répondre en citant
Publicité
Poster une réponse
Anonyme