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
Excel compter cellule couleur sans vba - Guide
Excel cellule couleur si condition texte - 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 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
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

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

Couleur transparente

Transparence en tete et bas de page

Problème d'allumage écran LG : "OUT OF RANGE"