Module de classe - Intercepter les événements d'un ActiveX sans passer par UserForm

Version imprimable

20/08/2016, 14h25
Guiral

Module de classe - Intercepter les événements d'un ActiveX sans passer par UserForm

Bonjour à tous,

J’ai créé un module de classe pour manipuler et paramétrer une ListBox réutilisable dans chacune de mes feuilles.
Je n’utilise pas de UserForm, mais un ActiveX OLEObject, pour avoir plus de propriétés de mise en forme.

Code:

MaFeuille.OLEObjects.Add(ClassType:="Forms.ListBox.1")

Tout fonctionne parfaitement bien, au petit détail près que je ne sais pas comment intercepter les événements de l’objet.
Il me faudrait au moins détecter le clic…

J’ai pas mal cherché, mais toutes les solutions passent par les événements des UserForm, ce que je ne souhaite pas.

Qui saurait me proposer une piste ?

Guiral

Bonjour
Fais cette petite expérience (même pas besoin d'un module de classe):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub CommandButton1_Click() With ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListBox.1") .Name = "toto" End With End Sub Private Sub CommandButton2_Click() toto.Activate 'très important la première fois For i = 1 To 10 toto.AddItem i Next End Sub Private Sub toto_Click() MsgBox toto.ListIndex End Sub
1) la ligne qui dit toto.activate est loin d'être ici superflue
2) tu as ta solution, mais : quel est le besoin de créer ce contrôle dynamiquement ? (je le vois mal). Dis-nous

Bonjour Unparia,

Merci pour ta solution, ça fonctionne effectivement très bien dans le module de la feuille active.
J’ai testé comme ceci, c’est nickel :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub Création_ListBox_Dans_Feuille_Courante()
 
    Dim i As Variant
 
    With ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListBox.1")
        .Name = "ListBoxTest"
        For i = 1 To 10
            .Object.AddItem i
        Next i
        .Activate
    End With
 
End Sub
 
Private Sub ListBoxTest_Click()
  MsgBox ListBoxTest.ListIndex
End Sub

En revanche, je ne parviens pas à affecter le bouton dans mon module de classe.
Ci-dessous le code, épuré de tout ce qui ne nous intéresse pas :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
 
Private clLstRef As OLEObject
 
Private Sub class_Initialize()
'
' Initialise la liste déroulante en vérifiant si l'objet existe  dans la feuille active (Worksheet_SelectionChange)
' Si oui, on le réutilise, si non on le crée.
' L'objet est de type "Forms.ListBox" son nom sera "lstRéférentiel"
' Une fois créé, il ne sera pas supprimé de façon à être réutilisé plus rapidement.
' Déclaré global au module de classe de la feuille permet de maintenir l'instance active pour tous les événements.
'
' =======================================================================================
 
    ' Tente d'affecter l'objet s'il existe.
    ' Si oui, sortie inconditionnelle,
    ' Si non, débranchement sur erreur pour création de l'objet et initialisation de ses valeurs
    On Error GoTo class_Initialize_CreerListe
    Set clLstRef = ActiveSheet.OLEObjects("lstRéférentiel")
    GoTo class_Initialize_Exit
 
' Création de l'objet Forms.ListBox
class_Initialize_CreerListe:
 
    Err.Clear
    On Error GoTo class_Initialize_Err
 
    ' La liste n'existe pas, on la crée, avec des valeurs par défaut
    Set clLstRef = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListBox.1")
    clLstRef.Name = "lstRéférentiel"
 
    ' Charge les valeurs initiales de paramètrage de la liste
    With clLstRef
		' ...
		' valeurs 
		' ...
    End With
 
class_Initialize_Exit:
    Exit Sub
 
class_Initialize_Err:
    MsgBox Error$, , "Erreur n° " & Err
    Resume class_Initialize_Exit
 
End Sub
 
Private Sub class_Terminate()
End Sub
 
Public Sub Affiche(paramètres...)
' Affiche la liste déroulante en regard du curseur actif (ActiveCell) dans la feuille active
' =======================================================================================
 
    ' Affecte les valeurs calculées en fonction de la cellule active
    With clLstRef
		' ...
		' valeurs 
		' ...
 		.Visible = True
        .Activate
    End With
 
End Sub
 
Public Sub Masque()
' Masque la liste dans la feuille active
' =======================================================================================
 
    With clLstRef
        .ListFillRange = ""
        .LinkedCell = ""
        .Visible = False
    End With
 
End Sub

Pour ne pas être trop long, je reviens dans un autre message pour détailler les raisons de ce choix de passer par un module de classe.

Amicalement,

Guiral

21/08/2016, 08h41
Guiral

A la question de savoir pourquoi vouloir manipuler une ListBox dynamiquement :

Parce que je suis confronté à la demande d’utilisateurs ayant besoin de saisir un nombre de données élémentaires parfois très importants.
Pour exemple, l’un de mes derniers projets mettait en œuvre plus de 700 données unitaires, faisant appel à plus de 50 référentiels distincts.
Avec naturellement, interactions conditionnelles entre ces données, faisant parfois appel à des référentiels hiérarchiques, multi-colonnes, etc.

Dans ces conditions, enfermer l’utilisateur dans une succession de fiches de saisies à répétition (UserForm) devient une contrainte perçue comme très lourde.
Avec de plus (encore une fois…) le sentiment que la technique impose ses propres règles au détriment des besoins du métier : C’est rebutant…
Pour moi, ce n’est pas mieux, puisque cela m’oblige à consacrer la plus grande partie de mon code à la gestion d’innombrables contrôles au détriment de l’attention portée aux données.
Données qui sont pourtant l’essentiel du but poursuivi.

J’ai donc trouvé la solution en organisant les données dans les feuilles comme dans un grand formulaire, où l’utilisateur peut naviguer où et comme il le souhaite.
Il peut de plus me demander de restructurer les lignes, sections et colonnes à volonté, de manière à ce que leur présentation corresponde au plus près de sa vision métier à lui.
Selon les besoins, je peux même lui offrir des feuilles sous formes de tables, sans limitation du nombre de lignes.
De mon côté, les choses deviennent beaucoup plus simples : Je n’utilise plus qu’une seule ListBox que je réadapte dynamiquement à la donnée de la cellule active (ou de la colonne, s’il s’agit d’un tableau)

J’ai donc créé un module ordinaire, dans lequel je vérifie toute les conditions requises (positions, dimensions, plages référentielles mono ou multi-colonnes, contrôles de saisie, etc.) en fonction de la cellule active.
Certes, cela me fait beaucoup de choses à vérifier dans Worksheet_SelectionChange, mais bien construit, avec des Range correctement nommés, ça se gère très correctement.

L’étape suivante consisterait à abandonner les paramètres, procédures et fonctions du module standard, au profit d’un paramétrage par propriétés et méthodes dans un module de classe.
Pour l’utilisateur, ça ne changerait rien, puisque tout fonctionne déjà très bien.
Mais pour moi, ça me permettrait d’être encore plus performant dans la gestion et maintenance de mon code, devenu plus fonctionnel et quelque part, plus élégant.

Voili-voilou…

Amicalement,

Guiral.
21/08/2016, 11h51
unparia

Citation:

Je n’utilise plus qu’une seule ListBox que je réadapte dynamiquement

J'entends bien et approuve. Une seule (que l'on déplace et recharge en tant que souhaité) est plus intelligent.
Mais pourquoi, alors, la créer dynamiquement et non en mode création ? En jouant avec sa propriété Visible on ne l'affiche que lorsque voulu et avec les propriétés que l'on veut, quant on le veut.
Et pourquoi une Classe pour une seule ListBox ? Un simple module suffirait, si l'on veut y placer son code. Il suffirait d'y mettre des procédures Private appelées par une procédure Public (celle appelée depuis la feuille concernée) et de lui passer le(s) paramètre(s) nécessaires. Et cela éviterait d'avoir à déclarer dans la classe les évènements de ce type de contrôle (surtout pour UN SEUL) et certaines de ses propriétés.
21/08/2016, 12h38
Quentin77170

Intéresse-toi aux déclarations "WithEvents" :)
21/08/2016, 13h13
Guiral

Citation:

Envoyé par Quentin77170

Intéresse-toi aux déclarations "WithEvents"

Yes, j'y ai pensé, mais j'ai du louper un truc, je n'y parviens pas...
Si tu as une idée, je prends.

Guiral.
21/08/2016, 13h41
Guiral

Citation:

Envoyé par unparia

… En jouant avec sa propriété Visible on ne l'affiche que lorsque voulu et avec les propriétés que l'on veut, quand on le veut.

C’est ce que je fais.
Je l’ai même précisé en commentaire en tête du code.
Sur ajout d’une nouvelle feuille, le programme crée une seule et unique fois la ListBox qui n’existe pas encore.
Ensuite, elle reste persistante et on joue exclusivement avec .Visible True et False.

Citation:

Envoyé par unparia

Et pourquoi une Classe pour une seule ListBox ?

Parce qu’il faut bien commencer par quelque chose.
Si je sais faire pour un objet, je saurai pour tous les autres, que je pourrais ensuite grouper dans une collection dédiée.

Citation:

Envoyé par unparia

Un simple module suffirait, si l'on veut y placer son code.

Exact, c’est ce que j’ai actuellement : Ca fonctionne très bien.

Citation:

Envoyé par unparia

Et cela éviterait d'avoir à déclarer dans la classe les évènements de ce type de contrôle (surtout pour UN SEUL) et certaines de ses propriétés.

Un seul contrôle aujourd’hui, autant que voulus demain…
Avec non pas les propriétés du contrôle (ça ne serait effectivement d’aucun intérêt), mais mes propriétés à moi : mises en forme, contrôles de saisie, tests sur valeurs, types de données, affichages d’aides contextuelles, etc.

Cela dit, il est effectivement possible que je renonce à terme à cette idée de module de classe.
Seulement pour le savoir, je veux expérimenter.

Et pour l’instant, ce qui me préoccupe, même si c’est idiot, c’est ce point purement technique d’interception du clic dans l’objet…

Amicalement,

Guiral.

Je trouve que tu vas te compliquer la vie en voulant la "simplifier", mais si tu y tiens, voilà le mécanisme à mettre en oeuvre :
Tu dois alors mettre ton/tes contrôles dans une variable publique (un module normal, donc)
Si tu en as plusieurs, tu peux utiliser une collection ou un tableau.
Exemple avec un tableau :
depuis ton code actif (celui de ta feuille) :
Code:

1 2 ReDim Preserve meslistboxes(1 To nb) Set mestextboxes(nb).TextBoxEvents = telle_listbox_créée
Dans un module normal :

Code:

Public mestextboxes() As New telle_classe

et dans ta classe telle_classe :
Code:

1 2 3 4 5 Public WithEvents TextBoxEvents As MSForms.ListBox ' et tes évènements y sont alors reconnus (depuis le module de classe) Private Sub TextBoxEvents_nom_évènement .... ....... 'tes instructions End Sub

22/08/2016, 07h19
Guiral

Ah ouais, effectivement…
… Là, je comprends beaucoup mieux ce que tu essayais de me dire.
Si pour piloter mon module de classe j’ai besoin d’un module ordinaire, autant tout laisser dans le module ordinaire !

Question élégance, c’aurait été aussi distingué qu’une jolie fille avec un poil de barbe au menton…
Je crois que tu as raison, je vais m’en tenir à ma solution actuelle, qui de toute manière fonctionne très bien.

Si tu penses qu’il n’existe donc pas d’autres solutions, je te laisse le soin de clôturer le fil comme « Résolu. »
En te remerciant pour tes lumières, elles m’ont fait gagner du temps.

Amicalement,

Guiral.