Pb de checkbox aec excel vb

butters9547 Messages postés 244 Statut Membre -  
butters9547 Messages postés 244 Statut Membre -
Bonjour,
je voudrais savoir si il serait possible que lorsque je coche mes checkbox, s'affiche "oui" ou "non" nan le tableau excel au lieu de "vrai" ou "faux".
un 2eme petit soucis, c'est lorsque je coche mes fameuses chackbox ^^, il s'affiche effectivement vrai ou faux mais si je les coches pas du tout elles affichent "faux". alors je voudrais savoir si il est possible qu'elles affichent quelque chose seulement si elles sont coché.
j'espère avoir été un peu clair et merci de votre aide
voici mon code au cas ou :

https://www.cjoint.com/?gpq4JEg4ls

merci ^^
A voir également:

6 réponses

Mike-31 Messages postés 19572 Date d'inscription   Statut Contributeur Dernière intervention   5 140
 
Salut,

Tu éffaces le controlSource de ta Checkbox et tu saisis ce code pour la checkbox1 qui affichera en Cellule B15 Oui lorsqu'elle est cochée et Non lorsqu'elle est décochée

Private Sub CheckBox1_Click()
If CheckBox1 = True Then [B15] = "Oui"
If CheckBox1 = False Then [B15] = "Non"
End Sub

Le code ci-dessous n'affiche rien lorsqu'elle est décochée

Private Sub CheckBox1_Click()
If CheckBox1 = True Then [B15] = "Oui"
If CheckBox1 = False Then [B15] = ""
End Sub

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)
0
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   4 730
 
bonjour

Il me semble que ton code fonctionnes mais en changeant ainsi
        .Range("D" & reponse) = CDate(Txtdatearrive)
        .Range("E" & reponse) = IIf(CheckBox1, "Oui", "")

afin d'avoir une date correcte et seulement les "Oui" affichés
0
butters9547 Messages postés 244 Statut Membre 6
 
oki merci,
mais ce que je vouidrais c'est que si je coche la checbox "vrai" cela m'affiche "oui" et idem pour la checkbox "faux". et qui si je ne coche rien cela ne m'affiche rien

merci ^^
0
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   4 730
 
bonjour

Désolé je n'avais pas tout compris mais alors, il suffit de faire :
        .Range("E" & reponse) = IIf(CheckBox1, "Oui", IIf(CheckBox2, "Non", ""))

et tu continues sur les autres.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
butters9547 Messages postés 244 Statut Membre 6
 
merci
j'essaye sa plus tard (car la taf oblige :s) et je te dis

merci beaucoup en tout cas
0
butters9547 Messages postés 244 Statut Membre 6
 
0