Macro VBA et case à cocher excel 2003

Bilja

XLDnaute Nouveau
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
 

Pièces jointes

  • Macro et Case à Cocher.xls
    28 KB · Affichages: 249

Pierrot93

XLDnaute Barbatruc
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 :
Code:
Option Explicit
Private Sub CheckBox1_Click()
If CheckBox1 Then MsgBox "Merci d'avoir sélectionné B"
End Sub
bonne journée
@+
 

kjin

XLDnaute Barbatruc
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
 

Pièces jointes

  • bilja.xls
    38 KB · Affichages: 179
  • bilja.xls
    38 KB · Affichages: 191
  • bilja.xls
    38 KB · Affichages: 182
G

Guest

Guest
Re : Macro VBA et case à cocher excel 2003

Bonjour Bilja,

Pierrot,:) Kjin:)

Puisque c'est fait:

Code:
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+
 

Discussions similaires

Réponses
5
Affichages
392