Couleur VBA en private Sub Résolu

Question

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 = 10End Sub

f894009 · Answer

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

Couleur VBA en private Sub

1 réponse

Discussions similaires

Newsletters