Couleur VBA en private Sub

Résolu/Fermé

massimo888 Messages postés 203 Date d'inscription mercredi 11 juin 2014 Statut Membre Dernière intervention 7 avril 2017 - Modifié par massimo888 le 21/05/2015 à 18:36
massimo888 Messages postés 203 Date d'inscription mercredi 11 juin 2014 Statut Membre Dernière intervention 7 avril 2017 - 22 mai 2015 à 11:17

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

A voir également:

Couleur VBA en private Sub
Navigation in private - Guide
Somme si couleur - Guide
Excel couleur conditionnelle - Guide
La boite a couleur - Télécharger - Divers Photo & Graphisme
Schéma branchement autoradio couleur fils - Forum Autoradio

1 réponse

Réponse 1 / 1

f894009 Messages postés 17190 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 mai 2024 1 707
Modifié par f894009 le 21/05/2015 à 19:00

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

massimo888 Messages postés 203 Date d'inscription mercredi 11 juin 2014 Statut Membre Dernière intervention 7 avril 2017
22 mai 2015 à 11:17

Merci beaucoup ça marche nickel!!

Discussions similaires

sertissage des cables rj45

Changer la couleur de fond d'un en-tête

"L'indice n'appartient à la sélection" + VBA

couleur personnage

VBA : Range avec références variables..

Discussions similaires

Newsletters