Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Déclencher un événement quand on clique une checkBox créée par m ac

3 réponses
Avatar
tintin
Bonjour,

J'ai créé une checkbox :

Set MaCb = WS_RPT1.OLEObjects.Add(ClassType:="Forms.CheckBox.1",
Link:=False, DisplayAsIcon:=False, Left:=0, Top:=25, Width:=120,
Height:=18.75)

Elle prend le .Name : CheckBox1

J'ai défini dans le même module une procédure :

Public Sub CheckBox1_Change()
MsgBox ("coucou")
End Sub

Pourquoi est-ce qu'elle n'est pas appellée quand on clique la checkbox ?
Que faut-il faire exactement pour y arriver ?

Merci de votre aide !
Martin

3 réponses

Avatar
Daniel.C
Bonjour.
Mets l'évènement CheckBox1_Change() dans le code de la feuille, pas dans un
module.
Cordialement.
Daniel
"tintin" a écrit dans le message de news:

Bonjour,

J'ai créé une checkbox :

Set MaCb = WS_RPT1.OLEObjects.Add(ClassType:="Forms.CheckBox.1",
Link:úlse, DisplayAsIcon:úlse, Left:=0, Top:%, Width:0,
Height:.75)

Elle prend le .Name : CheckBox1

J'ai défini dans le même module une procédure :

Public Sub CheckBox1_Change()
MsgBox ("coucou")
End Sub

Pourquoi est-ce qu'elle n'est pas appellée quand on clique la checkbox ?
Que faut-il faire exactement pour y arriver ?

Merci de votre aide !
Martin



Avatar
tintin
Merci de ta réponse.
Le problème c'est que la feuille est créée dynamiquement, peu avant la
checkbox...
Comment puis-je faire pour ajouter le code ?

A+
Martin


Bonjour.
Mets l'évènement CheckBox1_Change() dans le code de la feuille, pas dans un
module.
Cordialement.
Daniel
"tintin" a écrit dans le message de news:

Bonjour,

J'ai créé une checkbox :

Set MaCb = WS_RPT1.OLEObjects.Add(ClassType:="Forms.CheckBox.1",
Link:úlse, DisplayAsIcon:úlse, Left:=0, Top:%, Width:0,
Height:.75)

Elle prend le .Name : CheckBox1

J'ai défini dans le même module une procédure :

Public Sub CheckBox1_Change()
MsgBox ("coucou")
End Sub

Pourquoi est-ce qu'elle n'est pas appellée quand on clique la checkbox ?
Que faut-il faire exactement pour y arriver ?

Merci de votre aide !
Martin








Avatar
Philippe.R
Bonsoir tintin,
Une piste avec :
http://frederic.sigonneau.free.fr/code/VBE/AjoutBoutonPlusCodeParVBA.txt
ou
http://frederic.sigonneau.free.fr/code/VBE/AjoutFeuilleEtCode.txt
--
http://www.excelabo.net/mpfe/connexion.php
Avec plaisir
Philippe.R
"tintin" a écrit dans le message de
news:
Merci de ta réponse.
Le problème c'est que la feuille est créée dynamiquement, peu avant la
checkbox...
Comment puis-je faire pour ajouter le code ?

A+
Martin


Bonjour.
Mets l'évènement CheckBox1_Change() dans le code de la feuille, pas dans
un
module.
Cordialement.
Daniel
"tintin" a écrit dans le message de
news:

Bonjour,

J'ai créé une checkbox :

Set MaCb = WS_RPT1.OLEObjects.Add(ClassType:="Forms.CheckBox.1",
Link:úlse, DisplayAsIcon:úlse, Left:=0, Top:%, Width:0,
Height:.75)

Elle prend le .Name : CheckBox1

J'ai défini dans le même module une procédure :

Public Sub CheckBox1_Change()
MsgBox ("coucou")
End Sub

Pourquoi est-ce qu'elle n'est pas appellée quand on clique la checkbox
?
Que faut-il faire exactement pour y arriver ?

Merci de votre aide !
Martin