Checkbox

Résolu
manuSP Messages postés 80 Statut Membre -  
manuSP Messages postés 80 Statut Membre -
Bonjour,

J'ai un petit souci, avec le code ci dessous, car lorsque je coche dans checkbox, au niveau de ma feuille excel ça m'indique VRAI alors que je voudrais voir apparaitre l'intitulé de ma checkbox.

Private Sub CheckBox1_Click()
Range("K3").Value = CheckBox1.Value
End Sub

Merci d'avance

6 réponses

  1. Etpaflechien
     
    Bonjour

    la valeur est toujours VRAI ou FAUX

    si tu veux l'intitulé , utilise
    CheckBox1.Caption
    1
  2. Etpaflechien
     
    Re

    si tu veux l'intitulé quand c'est coché (VRAI) et pas quand c'est décoché (FAUX)

    fais un test sur la valeur de la checkbox
    si c'est VRAI (True) affichage
    si c'est faux (False) mise à vide (="") ou effacage(.delete)
    1
  3. manuSP Messages postés 80 Statut Membre
     
    Bonjour,

    Merci pour le renseignement.
    Par contre j'ai un souci maintenant, si je coche 1 fois dans ma checkbox ça m'inscrit bien l'intitulé dans ma case excel par contre si je décoche l'intitulé reste. est ce qu'il existe un code pour effacer lorsque la case est décochée.?

    Merci
    0
  4. manuSP Messages postés 80 Statut Membre
     
    Re,

    désolé mais vu que je suis débutant, je ne vois pas ou je peux regarder ça.

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

    Posez votre question
  6. Etpaflechien
     
    Voila les quelques lignes:

    Private Sub CheckBox1_Click()

    If CheckBox1.Value = True Then ' si c'est coché
    Range("K3").Value = CheckBox1.Caption 'affichage de l'intitulé
    Else ' si c'est décoché
    Range("K3").Delete ' effacage de la cellule K3
    ' ou Range("K3").Value=""
    End If

    End Sub

    Bon courage pour la suite
    0
  7. manuSP Messages postés 80 Statut Membre
     
    Merci bcp ça fonctionne
    0