Macro VBA et case à cocher excel 2003

[Bilja]

Bonjour,
Voilà j'aurais besoin d'un coup de main pour le problème suivant :
Je souhaite créer une macro VBA liée à une case à cocher nommée Case B.
La macro doit s'executer uniquement quand l'utilisateur coche la case B.
La macro ne doit PAS s'executer lorsqu'on décoche la case à cocher B.
La macro consiste à faire afficher un message d'information à l'utilisateur "Merci d'avoir sélectionné B".

Cf fichier joint pour être plus claire.
Merci d'avance

 

[Pierrot93]

Re : Macro VBA et case à cocher excel 2003

Bonjour,

le mieux dans ce cas est encore d'utiliser des objets de la "boîte à outils contrôles" de la barre d'outils vba... ci-dessous un code pour ce type d'objet à utiliser dans le module de la feuille concernée :

Option Explicit
Private Sub CheckBox1_Click()
If CheckBox1 Then MsgBox "Merci d'avoir sélectionné B"
End Sub

bonne journée
@+

 

[kjin]

Re : Macro VBA et case à cocher excel 2003

Bonjour,
A créer une macro, remplaces tes contrôles par des contrôles ActiveX...

Edit : Bonjour Pierrot , même remarque
A+
kjin

 

[Guest]

Re : Macro VBA et case à cocher excel 2003

Bonjour Bilja,

Pierrot,🙂 Kjin🙂

Puisque c'est fait:

Sub CaseB()
On Error Resume Next
If ActiveSheet.Shapes(Application.Caller).DrawingObject.Value = xlOn Then
    MsgBox "Merci d'avoir sélectionné B"
End If
End Sub

A+