Case a Cocher avec VBA

[spitfire378]

Bonjour a tous, je cherche a comprendre le fonctionnement d'une case a cocher avec vba

Pour le moment j'ai intégré sur une feuille une case a cocher, et j'aimerai que si la case est cochée, un msg indique a l'utilisateur qu'elle l'est et inversement. (Apres je pousserai un peu plus mon code....😛)

J'ai alors créé ce code que j'ai affecté a ma case cochée

sub casecochee()

if checkbox1.value = true then
msgbox ("Case cochée")
else
msgbox ("Case non cochée")
end if

end sub

J'ai supposé que ma case a cocher s'appellait checkbox1 dans la mesure ou il n'y en a qu'une. Enfin voila ca ne marche pas, si vous pouviez m'aider merci d'avance.

 

[tototiti2008]

Re : Case a Cocher avec VBA

Bonjour spitfire,

Avec quelle barre d'outils as-tu créé ta checkbox ?

 

[spitfire378]

Re : Case a Cocher avec VBA

La barre formulaire 😕

 

[Guest]

Re : Case a Cocher avec VBA

Bonjour SpitFire, TotoTiti,

voici une macro pour case à cocher formulaire:

Sub MaMacro()
Dim shp As Shape
Set shp = Feuil1.Shapes("Case à cocher 2")
If shp.DrawingObject.Value = 1 Then
MsgBox ("Case cochée")
Else
MsgBox ("Case non cochée")
End If
End Sub

Où Case à cocher 2 est le nom qui apparaît à gauche de la barre de formule quant on sélectionne la case.

A bientôt

 

[spitfire378]

Re : Case a Cocher avec VBA

C'est super, je teste ca merci a vous. 🙂