Checkbox + macro

[kllmoon]

Je tente de faire quelque chose que je croyais simple. Quand je clique sur une checkbox,
je veux un inputbox qui écris la donnée entrée par l'utilisateur dans la case B90 si la checkbox est décochée
et qui ne fait rien si elle est cochée.

Voici le code que j'ai figuré jusqu'à date :

Sub Caseàcocher68_QuandClic()
If CheckBox68 = FAUX Then
B90 = InputBox("Quelle chambre?")
Else
Exit Sub
End If

End Sub

Problèmes :

1. ma variable IF ne fonctionne pas et l'inputbox apparait peut importe que je coche ou décoche la case
2. Le résultat ne s'écrit pas dans la case B90

 

[ledzepfred]

Re : Checkbox + macro

Bonjour,

Si tu souhaites obtenir des réponses à tes questions, commences donc tes messages par bonjour
et termines-les par merci. Les contributeurs de ce forum ne sont pas des chiens tout de même!

essayes ceci:

Sub Caseàcocher68_QuandClic()
If [COLOR="red"]Caseàcocher68[/COLOR] = [COLOR="Red"]False[/COLOR] Then
[COLOR="red"][[/COLOR]B90[COLOR="red"]].value [/COLOR]= InputBox("Quelle chambre?")
Else
Exit Sub
End If

End Sub

a+

 

[kllmoon]

Re : Checkbox + macro

Pour écrire dans la cellule, ça fonctionne. J'avais essayé avec Range qui fonctionne également. Par contre, la logique est encore ignorée et l'inputbox apparait peut importe que je coche ou décoche la case....

 

[kllmoon]

Re : Checkbox + macro

Ah et bonjour, merci.... fallait pas le prendre ainsi, je fais ceci entre 2 dossiers au travail alors je suis un peu pressé désolé

Je ne comprend pas, en liant ma case à cocher à une cellule, ça m'indique pourtant VRAI et FAUX... Alors pourquoi cette macro m'indique que c'est Faux peut importe??? Je vais manger, un bon dîner m'aidera à me concentrer. Merci d'avance pour vos réponses, c'est très apprécié.

 

[ledzepfred]

Re : Checkbox + macro

et tous les autres sur ce forum tricotent à longueur de journée, c'est pour ça qu'ils ont le temps de dire bonjour et merci!

Sinon, peut-être qu'un fichier nous permettrai de te répondre plus précisement

a+

 

[job75]

Re : Checkbox + macro

Bonsoir à tous,

Il me semble qu'il vaut mieux définir la cellule liée à la Case à cocher, et dans la macro tester la valeur de cette cellule.

A+

 

[kllmoon]

Re : Checkbox + macro

C'est ce que j'ai fait, quand c'est coché ça écrit VRAI et quand ce n'est pas coché ça écrit FAUX... Pourtant ma macro agit comme si cM'était FAUX peut importe.

 

[job75]

Re : Checkbox + macro

Re,

Si la cellule liée est A1, il faut écrire :

If Range("A1") = False Then

C'est ce que vous avez fait ???

A+

 

[kllmoon]

Re : Checkbox + macro

C'est ce que j'ai fait maintenant, gros merci!! Mon problème est résolu.

 

[kllmoon]

Re : Checkbox + macro

Pour des futures références, voici la formule qui fonctionne correctement :

Sub Caseàcocher68_QuandClic()
If Range("A90") = FAUX Then
[B90].Value = "/" & InputBox("Quelle chambre?")
Else
[B90].Value = ""
Exit Sub
End If

End Sub

La case à cocher est liée à la case A90, celle-ci affiche VRAI si la case est cochée et FAUX si elle ne l'est pas.