Couleur VBA en private Sub

Résolu
massimo888 Messages postés 209 Statut Membre -  
massimo888 Messages postés 209 Statut Membre -
Bonjour,
J'ai un code pour dire à une cellule d'écrire dans la couleur imposée et j'aimerai le faire sans rajouter un bouton je veux parametrer la cellule pour que le code s'execute automatiquement

En vous remerciant

Sub couleurs()
'Couleur du texte en A1 : vert (Couleur n°10)
Range("A1").Font.ColorIndex = 10
End Sub

1 réponse

f894009 Messages postés 17413 Statut Membre 1 715
 
Bonjour,

une facon de faire:

dans le VBA de la feuille:

'sur selection
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Target.Font.ColorIndex = 10
    End If
End Sub

'ou systematiquement
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Range("A1").Font.ColorIndex = 10
End Sub
0
massimo888 Messages postés 209 Statut Membre
 
Merci beaucoup ça marche nickel!!
0