EXCEL VB COULEUR
Résolu
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.
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.
Configuration: Windows XP Firefox 3.0.10
6 réponses
-
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) -
Salut,
je voulais dire que le chiffre 5 soit écrit en couleur disons bleu par exemple ?
Merci -
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) -
Salut
juste un 5 en noir disons
Merci -
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) -
MERCIIIIIIIII