EXCEL VB COULEUR

Résolu
Asfero Messages postés 22 Statut Membre -  
Asfero Messages postés 22 Statut Membre -
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.
Configuration: Windows XP
Firefox 3.0.10

6 réponses

  1. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
  2. Asfero Messages postés 22 Statut Membre
     
    Salut,

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

    Merci
    0
  3. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
  4. Asfero Messages postés 22 Statut Membre
     
    Salut

    juste un 5 en noir disons

    Merci
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
  7. Asfero Messages postés 22 Statut Membre
     
    MERCIIIIIIIII
    0