Comment affecter le même Event d'une Class sur plusieurs éléments

Question

J'espère que l'un d'entre vous m'aidera à régler mon problème ou me donnera des pistes sur lesquelles avancées. En vous remerciant par avance pour le temps que vous consacrerez à la résolution de celui-ci. Je rencontre donc un problème concernant l'application d'un Event présent dans une Classe sur plusieurs éléments que je crée dynamique dans ma UserForm. Voici une explication de mon programme en VBA : J'ai une UserForm qui est composée d'une MultiPage et deux classes nommées respectivement Classe1 et Classe2. Le code présent dans la UserForm me permet en cliquant sur un bouton présent sur la première page de ma MultiPage, de faire apparaître un nombre de TextBox égal au nombre rentré dans une TextBox elle aussi présente sur la page 1 (index=0) de ma MultiPage. Un nouveau bouton est aussi créé juste après la création des nouvelles TextBox. En cliquant sur ce nouveau bouton, je crée un nombre de nouvelles pages dans ma MultiPage égal au nombre rentré dans la première TextBox qui figure initialement sur ma page 1, et j'assigne chaque nom rentré dans les nouvelles TextBox à la page en lien. Prenons un exemple pour illustrer tout ça. Si je rentre le nombre 2 dans la TextBox présente initialement sur la page 1 de ma MultiPage, et si je clique sur le premier bouton, je crée deux nouvelles TextBox et un nouveau bouton. Je rentre donc des noms dans les nouvelles TextBox, disons A et B, et en cliquant sur le nouveau bouton je vais créer une page nommée A et une autre B dans ma MultiPage. A cela s'ajoute aussi la création d'une nouvelle MultiPage (appelons-la MP2) sur chacune des pages créées (A et B). Si je regarde maintenant ma nouvelle page nommé A, en allant dessus, je vais tomber sur une nouvelle MultiPage avec plein de pages. En regardant uniquement la première page de la MP2 lié à A, je crée aussi 2 ComboBox dessus. Ce que je suis entrain d'essayer de faire c'est de lier les 2 ComboBox sur chaque première page présente sur les nouvelles MultiPage. Ainsi, si je sélectionne le choix 1 dans ma première ComboBox j'obtiens des valeurs liées à ce choix dans la deuxième ComboBox et ainsi de suite. Actuellement, j'arrive à avoir ce résultat mais il est appliqué uniquement sur la page nommé A (si on reprend notre exemple) et non sur la page B. Voici ci-dessous une partie du code de mes deux classes permettant d'arriver à ce résultat. Ici la Classe1 qui permet d'affecter l'Event de la Classe2 sur chaque les ComboBox : Option Explicit Public WithEvents CmdEvents As MSForms.CommandButton Public frm As Object Dim comboxBoxArray() As New Classe2 Private Sub CmdEvents_Click() 'Il s'agit de l'event appliqué au deuxième bouton For i = 1 To nb_blocks 'nb_blocks represente le nombre rentré dans la première TextBox ReDim Preserve comboxBoxArray(1 To nb_blocks) Set comboxBoxArray(i).comboBoxEvents = frm.Controls("MP2" + CStr(i)).Pages(0).combobox1 Set comboxBoxArray(i).frm2 = frm Set combobox1 = Nothing Next i End Sub Comme vous le voyez, je boucle l'Event sur chaque première page de chaque MP2 Ici la Classe2 qui est appelée dans la Classe1 pour faire le lien entre les deux ComboBox : Option Explicit Public WithEvents comboBoxEvents As MSForms.ComboBox Public frm2 As Object Private Sub comboBoxEvents_Change() If frm2.combobox1.Text = "Water based fluids" Then frm2.combobox2.Clear For Each listA_ID In Ws2.Range("FluideEauGlacelf") With frm2.Controls("combobox2") .AddItem listA_ID.Value End With Next listA_ID ElseIf frm2.combobox1.Text = "Oil fluids" Then frm2.combobox2.Clear For Each listB_ID In Ws1.Range("FluideHuile") With frm2.Controls("combobox2") .AddItem listB_ID.Value End With Next listB_ID End If End Sub Malheureusement je ne peux toujours pas poster de photos donc si vous avez des questions sur le fonctionnement de mon progiciel je suis là pour y répondre ...

thev · Accepted Answer

Je pense que vous n'avez nul besoin d'un Event par page. J'ai révisé votre code dans ce sens et utilisé 2 modules de classe comme ils doivent l'être, c'est à dire en gérant les procédures événementielles dans le UserForm...

i20100 · Answer

C'est difficile de voir ou l'erreur se situe sans voir le fichier...

thev · Answer

Je trouve votre construction de classes assez inhabituelle. D'abord il serait approprié de nommer vos modules de classe (Classe1, Classe2) avec des noms parlants pour savoir ce qu'ils représentent exactement et à quoi ils servent. Ensuite pour la gestion de vos événements d'après ce que vous indiquez, la logique aurait été d'avoir : 1- un module de classe "CmdButton" pour gérer les événements de plusieurs éléments liés à un CommandButton, 2- un module de classe "CbxList" pour gérer les événements de plusieurs éléments liés à une ComboBox En tout cas, si on reprend votre logique ,pour déclencher les événements que vous avez définis dans votre UserForm, il faut assigner vos 2 variables objet : CmdEvents, comboBoxEvents aux contrôles correspondants : Set CmdEvents = CommandButton_i Set comboBoxEvents = Combobox_i...

galopin01 · Answer

Les Events ne s'applique pas au multipage mais aux autres objets qu'ils soient dans un multipage ou non. C'est à toi de baptiser tes objets de telle manière que tu saches à quelle page de quel multipage il appartiennent. Tu peux numéroter de 100 à 199 ceux du multipage 1, de 200 à 299 ceux du multipage2... etc et garder les dizaines pour le N° de page de chacun... Donc quand un évènement se déclencha s'il te renvoie 203 c'est que ça se passe sur la page0 du multipage2. A toi d'en déduire la suite... A+...