EXCEL VB COULEUR

Résolu
Asfero Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   -  
Asfero Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J' ai une question en rapport avec l'utilisation de visual basic dans excel, petite précision je suis débutant au niveau des 2 logiciels.

Je vous explique ce que j'aimerais faire.

Lorsque je coche la "case à cocher" (que j'ai situé dans la cellule A1) je voudrais qu'un chiffre en une couleur s'affiche en A2 et lorsque cette case est décocher que le chiffre soir noir .

J'ai ce code pour l'instant

Private Sub CheckBox1_Click()
If Checkbox1.Value = True Then
[A2] = 5 (ce que j'aimerais mettre en couleur)
Else
[A2] = 5 (qui sortira noir de toute façon)
End If
End Sub

merci de votre aide et de votre temps.

6 réponses

Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Salut,

Par exemple avec ce code

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
[A2].Font.ColorIndex = 5
Else
[A2].Font.ColorIndex = 0
End If
End Sub

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)
0
Asfero Messages postés 22 Date d'inscription   Statut Membre Dernière intervention  
 
Salut,

je voulais dire que le chiffre 5 soit écrit en couleur disons bleu par exemple ?

Merci
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Re,
Je ne comprends pas tu veux que dans la cellule A2 le chiffre 5 s'affiche et en bleu lorsque la checkbox est cochée, mais lorsqu'elle est décochée que doit il y avoir en A2

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)
0
Asfero Messages postés 22 Date d'inscription   Statut Membre Dernière intervention  
 
Salut

juste un 5 en noir disons

Merci
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Re,

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
[A2].FormulaR1C1 = "5"
[A2].Font.ColorIndex = 5
Else
[A2].Font.ColorIndex = 0
End If
End Sub

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)
0
Asfero Messages postés 22 Date d'inscription   Statut Membre Dernière intervention  
 
MERCIIIIIIIII
0