Excel Downloads
Forum

Précédent   Excel Downloads Forums > Archives > Forum Excel Downloads - Archives


 
 
LinkBack Outils de la discussion
Vieux 25/04/2003, 16h05   #1 (permalink)
Alex
Guest
 
Messages: n/a
Par défaut Checkbox-VBA

Je voudrais savoir comment faire pour afficher ce qu'il ya écrit dans une checkbox dans une cellule d'un tableau excel. En effet, je n'arrive qu'à afficher vrai ou faux lorsque je coche la checkbox.

Merci
 
ANNONCES
Vieux 25/04/2003, 16h13   #2 (permalink)
@Christophe@
Guest
 
Messages: n/a
Par défaut Re: Checkbox-VBA

Bonjour Alex

Voici le genre de code que je te propose de mettre dans ton bouton

Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
Range("A1").Value = CheckBox1.Caption
Else
Range("A1").Value = ""
End If
End Sub

Voila

@Christophe@
 
Vieux 25/04/2003, 16h17   #3 (permalink)
@+Thierry
Guest
 
Messages: n/a
Par défaut Re: Checkbox-VBA

Salut Alex

Normalement un check box est prévue pour récupérer la valeur du "check"... Mais bon si tu veux vraiment répupérer ce que la CheckBox affiche tu fais ceci

Private Sub CommandButton2_Click()
Range("A1") = CheckBox1.Caption
End Sub

Bon Aprem
@+Thierry
 
Vieux 25/04/2003, 16h24   #4 (permalink)
@Christophe@
Guest
 
Messages: n/a
Par défaut Re: Checkbox-VBA

Re

Bonjour @+Thierry, je vois que tu es super actif sur le forum c'est dernier temps, je suis content que le boulot te laisse un peu tranquille.

Par contre Vériland, on ne l'entends plus trop, as tu de c'est nouvelles

Bonne journée XLD

@Christophe@
 
Vieux 25/04/2003, 17h10   #5 (permalink)
@+Thierry
Guest
 
Messages: n/a
Par défaut Re: Checkbox-VBA


Salut @Xtopf@

Messages croisés... Comme çà Alex aura bien la confirmation que Caption est bien la propriété qui lui faut!

Et en prime tu lui indiques comment faire une condition, qui lui montrera que finalement il n'a pas besoin de récupérer le caption si il fait une appli logique....

Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
Range("A1").Value = "La checkbox1 est checkée"
Else
Range("A1").Value = ""La checkbox1 n'est pas checkée"
End If
End sub

Pour Vériland, si si il est toujour bien vivant (voir ici!) et il semble en plein forme !

Bon Aprèm à toi
@+Thierry
 
ANNONCES
 

Liens sociaux

Outils de la discussion

Règles de messages
Vous ne pouvez pas créer de nouvelles discussions
Vous ne pouvez pas envoyer des réponses
Vous ne pouvez pas envoyer des pièces jointes
Vous ne pouvez pas modifier vos messages

Les balises BB sont activées : oui
Les smileys sont activés : oui
La balise [IMG] est activée : oui
Le code HTML peut être employé : non
Trackbacks are oui
Pingbacks are oui
Refbacks are oui


Fuseau horaire GMT +2. Il est actuellement 10h30.


(C) 2006 Excel Downloads