Sujet Précédent Sujet Suivant

EXCEL VB COULEUR

Résolu/Fermé
Asfero Messages postés 22 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 19 mai 2009 - 12 mai 2009 à 14:04
Asfero Messages postés 22 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 19 mai 2009 - 12 mai 2009 à 15:24
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.
A voir également:

6 réponses

Réponse 1 / 6
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 076
12 mai 2009 à 14:21
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
Réponse 2 / 6
Asfero Messages postés 22 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 19 mai 2009
12 mai 2009 à 14:30
Salut,

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

Merci
0
Réponse 3 / 6
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 076
12 mai 2009 à 14:40
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
Réponse 4 / 6
Asfero Messages postés 22 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 19 mai 2009
12 mai 2009 à 14:47
Salut

juste un 5 en noir disons

Merci
0

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

Posez votre question
Réponse 5 / 6
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 076
12 mai 2009 à 15:18
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
Réponse 6 / 6
Asfero Messages postés 22 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 19 mai 2009
12 mai 2009 à 15:24
MERCIIIIIIIII
0

Discussions similaires

sertissage des cables rj45
lekludo -
brupala -

7 réponses