pb avec withevents vba

[sefir]

bonjour
le code que j'utilise pour créer dynamiquement des boutons avec un rattachement des évènements click ne fonctionne pas correctement

la classe qui gère les évènements est créée dans un module de classe
la procedure qui fait l'instanciation des objets bouton est créée dans un module standard
l'appel à la procédure fonctionne correctement si elle est dans la feuille où se trouvent les boutons en question
si j'appelle la procédure via un module standard, il n'y a aucun évènement qui se déclenche
pourriez vous me dire pourquoi

je peux mettre à votre disposition le code utilisé
ghanem

[Heureux-oli]

Salut,

VBA est applicable à plein de logiciels !
Et chaque logiciel possède des évènements différents.
Un double clic sur un document Word ne produira jamais rien, puisque ce n'est pas un évènement pris en compte.

Si tu nous donnais un peu plus de renseignement, nous pourrions peut-être t'aideer à trouver une solution.

[sefir]

bonjour
ci-apres le code utilisé
dans le module classe

Code :

1
2
3
4
5
6
7
8
9
Option Explicit
 
Public WithEvents GroupBoutons As MSForms.CommandButton
 
Private Sub GroupBoutons_Click()
 
    MsgBox ("test class")
 
End Sub

dans un module standard

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Sub InitBouton()
Set mybook = ThisWorkbook
Dim Obj As OLEObject
Dim C2 As Classe1
    Set C2 = Nothing
    Set Collect = New Collection
 
    'boucle sur les objets de la Feuil1
    For Each Obj In mybook.Sheets(1).OLEObjects
        'verifie s'il s'agit d'un bouton
        MsgBox ("test")
        If TypeOf Obj.Object Is MSForms.CommandButton Then
            Set C2 = New Classe1
            Set C2.GroupBoutons = Obj.Object
            Collect.Add C2
        End If
 
    Next Obj
 
End Sub

merci pour votre aide