Colorier une zone de texte par VBA

[Boby71C]

Bonjour à toutes et tous

En sélectionnant une zone de texte qui est déjà existante, je voudrais pouvoir la teinter:
Soit en vert transparence 70% en actionnant les touches Ctrl + v
Soit en orange transparence 70% en actionnant les touches Ctrl + o
Soit en rouge transparence 70% en actionnant les touches Ctrl + r

Je n'y arrive pas avec l'enregistreur de macros et je ne connais pas les syntaxes pour créer le code.

Votre précieuse aide me serait d'un grand secours.

Merci

 

[Hippolite]

Re : Colorier une zone de texte par VBA

Bonsoir,
Ce n'est pas tout à fait ton cas mais tu y trouveras la syntaxe qui te manque : Transparence, couleur et forme d'un shape en fonction du % Total/an-1
A+

N'hésite pas à demander s'il te faut de l'aide

 

[Fred0o]

Re : Colorier une zone de texte par VBA

Bonsoir Boby71C, Hypplite,

Est ce que ce code correspond à ton besoin ?

Sub Vert()
' Touche de raccourci du clavier: Ctrl+Maj+V
'
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 3
    Selection.ShapeRange.Fill.Transparency = 0.7
End Sub

Sub Rouge()
' Touche de raccourci du clavier: Ctrl+Maj+V
'
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
    Selection.ShapeRange.Fill.Transparency = 0.7
End Sub

Sub Orange()
' Touche de raccourci du clavier: Ctrl+Maj+V
'
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 52
    Selection.ShapeRange.Fill.Transparency = 0.7
End Sub

A+

 

[Boby71C]

Re : Colorier une zone de texte par VBA

Bonjour à tous
Merci beaucoup pour votre aide, ça fonctionne très bien.

Je garde le lien de Hippolite sous le coude, car j'ai encore beaucoup à apprendre.

Bon Week-end à tous