Discussion :

[needlesurfer]

Bonjour à tous,

Je travaille sur une feuille et je suis incapable de vérifier si ma checkbox est cochée ou non. J'imagine que c'est simple mais ce que j'ai trouvé à maintenant ne marche pas. Je me demandais si vous sauriez identifier ce qui cloche dans mon code.

disons que je crée la checkbox via vba:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub makecheckbox()
 
With ActiveCell
    With ActiveSheet.CheckBoxes.Add(Left:=.Left + 2, Top:=.Top + 2, Width:=.Width - 4, Height:=.Height - 3)
        .Name = "editcheck"
        .Characters.Text = "Edit"
    End With
End With
 
End Sub

et qu'ensuite je fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub testcheckbox()
 
If ActiveSheet.CheckBoxes("editcheck") = True Then
MsgBox "the value is true"
Else
MsgBox "the value is false"
End If
 
End Sub

Il retourne toujours "the value is false", cochée ou non.

j'ai aussi essayé activesheet.shapes("editcheck") = true ainsi que activesheet.checkboxes("editcheck").value = true mais ça ne marche pas.

Voyez-vous ce qui cloche?
merci

[Basicnav]

essaie avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub testcheckbox()
 
If ActiveSheet.CheckBoxes("editcheck").Value = True Then
MsgBox "the value is true"
Else
MsgBox "the value is false"
End If
 
End Sub

tu n'as pas préciser .value dans ton if.

[ESVBA]

La case à cocher peut avoir 3 valeurs :

• coché
• non coché
• grisée

donc il ne faut pas la comparer à Vrai/Faux.

La case à cocher à la valeur "1" si elle est cochée.


Complément d'information...

Oui, il vaut mieux mettre la propriété ".Value" comme le suggère "Basicnav" ( un voisin d'ailleur, bonjour le voisin).

Il n'y a plus aucun doute sur ce que fera VBA.

Mais dans ce cas c'est la propriété par défaut.

ESVBA

[needlesurfer]

La case à cocher peut avoir 3 valeurs :

• coché
• non coché
• grisée

donc il ne faut pas la comparer à Vrai/Faux.

La case à cocher à la valeur "1" si elle est cochée.

ESVBA

Une petite expression québecoise: dévellopez.com c'est vraiment la coche!

Ben le voilà le bobo, comme pr04860 et ESVBA ont fait remarquer c'est pas true ou false c'est 1 ou -4146, allez savoir pour le -4146...

Quoi que si vous savez pourquoi la valeur retournée est -4146 et non 0 éclairez-moi .

Merci pour votre aide.

Au sujet de .value, j'avais déjà essayé mais le résultat était malheureusement le même...

merci encore!

[Zourik0]

Bonjour,

J'utilise la même formule que vous sauf que j'aimerai vérifier non pas une mais deux cases à cocher en même temps.
Avec quelque chose du genre : Si "Case à cocher 1" et "Case à cocher 2"=1, alors
MsgBox "..."

J'ai essayer pas mal de chose mais je n'arrive pas à résoudre ce problème...
J'espère que j'aurai une réponse étant donnée que le problème a été résolu il y a bien longtemps.