Checkbox
Résolu
manuSP
Messages postés
70
Date d'inscription
Statut
Membre
Dernière intervention
-
manuSP Messages postés 70 Date d'inscription Statut Membre Dernière intervention -
manuSP Messages postés 70 Date d'inscription Statut Membre Dernière intervention -
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
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
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)
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)
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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