Sub WithEvent d'un module de classe ne fonctionne pas sur un multipage

Question

Débutante en programmation VBA et surtout autodidacte, je rencontre un soucis dans mon code concernant l'application d'une Procédure WithEvents présent dans un module de classe. J'ai dans un userform plusieurs option button dans le Userform lui-même mais également dans un multipage. Mon userform final doit comporter pas loin d'une centaine de d'option button notamment dans ce multipage au travers de différentes frames d'étapes/questions. J'ai donc cherché à coder une routine unique qui s'appliquerait a l'ensemble de ces contrôles lors de leur évènement click. En ayant descendu de nombreux postes sur le sujet ces derniers jours, j'ai réussi à progresser dans mon code. 1. J'ai appris a utiliser les modules de classes (même si j'ai encore du mal a comprendre la structure des éléments appelés) et j'ai donc réussi à créer ma classe et à instancier mes contrôles dedans. 2. J'ai réussi a programmer l'évènement click pour ces contrôles y compris avec des Options Buttons inséré dans des frames en récupérant le parent de mon contrôle grâce à une fonction Jusque là tout fonctionne à merveille. En revanche, quand j'ai ajouté le multipages et ai inséré mes contrôles dedans (directement ou au travers de frames), VBA me retourne une erreur "Propriété ou méthode non géré par cet objet" sur cette ligne, située dans mon module de classe : Set GetParentForm(Opt).bouton = Button_i Private Sub Opt_Click() Set GetParentForm(Opt).bouton = Button_i RaiseEvent Click End Sub J'ai vu une ou deux réponses qui abordait le sujet directement dans les fichiers de réponses sur d'autres postes... mais je ne les ai pas compris, et n'ai donc pas réussi à les appliquer à mon code, mais il semble donc que ça soit possible. De plus : la fonction que j'ai empruntée indique bien les Page et Multipage dans les types possibles de parents, je ne comprends donc pas pourquoi cela ne fonctionne pas. (J'ai aussi essayé avec des options buttons situés dans une frame, elle même dans une autre, pensant que c'était la cascade de contrôle qui ne fonctionnait pas, mais non ça marche aussi de cette manière là.) Est-ce que quelqu'un aurait une idée pour me débloquer, ou pourrait m'aider à comprendre ce qui ne fonctionne pas avec mon code (et surtout pourquoi) ? J'ai testé pas mal de chose, en essayant de boucler différemment si le parent était une page ou un multipage, en essayant de combiner une fonction similaire sur le parent.parent....mais là je sèche. Je vous remercie par avance pour le temps que vous prendrez pour m'aider dans ma quête. PS : Ci-dessous les codes complets des modules et du userform de mon fichier de test. Module du userform :(dont le nom est UF1 si jamais) Public WithEvents bouton As Cl_Opt Private Sub bouton_Click() If Me.Controls(bouton.name) = True Then Me.Controls(bouton.name).ForeColor = RGB(255, 0, 0) End Sub Private Sub UserForm_Initialize() Dim OB As Object Dim i As Integer On Error Resume Next For i = 1 To 5 Set OB = Me.Controls.Item("OptionButton" & i) If Not OB Is Nothing Then Dim Opt As Object Set Opt = New Cl_Opt Set Opt.init(Opt) = OB End If Next End Sub Module de classe nommé : Cl_Opt Option Explicit Public Button_i As Object Public Event Click() Public WithEvents Opt As MSForms.OptionButton Public Property Set init(ByVal instance As Object, ByVal contrôle As Object) Set Button_i = instance Set Opt = contrôle End Property Public Property Get name() As String name = Opt.name End Property Private Sub Opt_Click() Set GetParentForm(Opt).bouton = Button_i RaiseEvent Click End Sub Private Function GetParentForm(pControl As Control) As Object If TypeOf pControl.Parent Is Frame Or TypeOf pControl.Parent Is Page Or TypeOf pControl.Parent Is MultiPage Then Set GetParentForm = GetParentForm(pControl.Parent) Else Set GetParentForm = pControl.Parent End If End Function...

galopin01 · Accepted Answer

Ton fichier est clairement insuffisant. 90 % voire plus des demandeurs postes des fichiers professionnels : Il suffit de les anonymiser un peu et pour le reste on s'en fiche que tu vendes des nougats ou des lessiveuses nucléaires. Pas de nom ou des noms bidons. Pas de N° de Téléphone ou d'adresse mails Pas de carte bleu ni de mot de passe pour le compte en banque. Pas de logo ni de N° Siret et en principe pour le reste ça pose pas de problème. Connaitre le parent n'offre à priori aucun intérêt. Quant au multipage ou aux frames, ils n'offrent qu'un intérêt secondaire (esthétique) Tout le secret est dans le nommage de tes objets. Pour un si petit nombre d'objets un codage très simple consiste à nommer tes objets sous la forme Ob001 (ou Ob0001),Ob002, Ob003... Ensuite il y a plusieurs modes de gestion possibles selon le nombre de séries différentes et les quantités d'objets dans chaque série, Il peut également y avoir des groupes de séries. et certains autres qui n'appartiendrons à aucune série et aucun groupe... Donc il faut prévoir dès la construction la hiérarchie de tes "Ob" Ceux qui sont gérés dans le module de classe seront gérés avec le préfixe "Ob" Les autres s'il y en a reste, garderont leur nom natif ou autre peu importe... Tous les autres pourraient être gérés simplement par leur N° d'ordre, sachant que les groupes de série (la page du multipage) pourrait être gérés par le premier digit : Ob1001, Ob1002, Ob2001... en supposant que le nombre de page n'excède pas 10... Pour les séries (Frames) S'il n'y en a jamais plus de 10 par pages le 2 ème digit peut convenir. Quand aux Ob eux même s'ils sont plus nombreux, on peut leur accorder 2 Digits. On le voit beaucoup de chose dépendent de la hiérarchisation de ces "Ob" Si les regroupements peuvent devenir plus nombreux on peut accorder 2 digits aux séries par exemple... et seulement 1 au dernier rang. D'autres combinaisons peuvent être envisagées avec une numérotation plus complexe. Enfin on peut encore affiner la gestion avec le Tag de chaque "Ob" La gestion de cette hiérarchie est rendue très simple simple par l'examen du nom du "Ob" : Si Mid(NomOb,3,1) = 0 alors on est sur la première pas du multipage, Si Mid(NomOb,4,1) = 0 alors on est sur la première frame de cette page, Mais cela ne peut se faire sans un bon aperçu de la hiérarchie de choix... C'est pour cela qu'un classeur un peu documenté est plus important que le travail que tu as déjà effectué sur ce multipage... Enfin il n'est pas nécessaire que chaque groupe ou sous-groupe soient connu d'avance : il suffit que -pour chacun- on ait un très bon ordre d'idée du nombre maximum d'item potentiel pour chaque groupe d'objet en particulier si l'un d'eux peux excéder 10. Il faut aussi connaitre avec précision quel sera l'argument décisionnel utilisé une fois que l'élément est identifié. Est-ce que ce sera une table, un Array, un dictionnaire, est-ce que cela sera géré par un Tag ? Il faut enfin savoir dès le début si le nombre d "Ob" est appelé à évoluer fréquemment ou si on contraire il est très figé. Ya que toi et le classeur que tu nous joindras qui puisse nous aider à concevoir quelque chose de fonctionnel... Cela suppose clairement que tous tes Ob soient documentées dans une Table qui doit permettre de les répartir en page / Frame / et Nb d'options de choix s'il y en a plusieurs. L'exemple joint gère un mini multipage et une dizaine de "Ob" mais ça ne serait pas différent s'il y en avait 80 ou 150 avec de nombreuses pages et de nombreux frames. Après la hiérarchisations des uns et des autres c'est juste pour le confort d'exploitation après : Comment et ou on récupère les résultats. Dans cet exemple simpliste on n'a même pas renommé les boutons aussi on se contente de lire leur n° Mid(ObName,9) cela suffit largement pour savoir ce qu'on veut et prendre une décision… A+...

Bizarre · Answer

Un fichier représentatif est essentiel afin de tester d'éventuelles solutions. Bizz...

eriiic · Answer

Je ne pratique pas vraiment les modules de classe mais j'ai quand même fait un pas à pas. Private Sub Opt_Click() Set GetParentForm(Opt).bouton = Button_i RaiseEvent Click c'est quoi cette propriété .bouton ? GetParentForm(Opt) retourne un objet, par exemple Page, qui n'a pas cette propriété. Il faudrait sans doute la créer dans le module de classe. Sinon (presque) tous les objets possèdent la propriété Tag à ta dispo pour mettre une chaine. Tu pourrais t'en servir pour passer une info. Moins beau que de la créer mais si ça peut dépanner... eric PS : créer une propriété https://tissotemmanuel.developpez.com/articles/vba/modules-de-classe/#LIV-A-2...

saboh12617 · Answer

Pour rebondir sur ce que dit Eric, il semble en effet que tu ais fait une typo sur ta propriété ".bouton" qui est en minuscule donc non incluse de base dans les propriétés d'un UF.

Ci-après je me suis permis de simplifier un peu ta fonction GetParentForm, qui je suppose doit te renvoyer ton UserForm.

~~Comme on peut le voir dans l'espion, les propriétés de l'objet retourné ne comprennent pas de "bouton"~~. Tu as bien une propriété bouton, mais que doit-elle contenir ?

La chose s'en rapprochant le plus étant les "OptionButtonX". Je ne sais pas exactement ce que tu souhaites faire mais je te conseille de regarder de ce coté.

Le code :

Private Function GetParentForm(pControl As Control) As Object
    If TypeOf pControl.Parent Is MSForms.UserForm Then
        Set GetParentForm = pControl.Parent
    Else
        Set GetParentForm = GetParentForm(pControl.Parent)
    End If

End Function

saboh12617 · Answer

Ah, je viens de comprendre le .bouton réfère a l'attribut bouton que tu as ajouté a ton UF1, de type de ta classe custom… Et tu veux lui attribuer la valeur "Button_i" qui est un objet… Un des boutons que je mentionnais ?

C'est assez confus ton code, on voit que tu débutes avec la programmation orientée objet (c'est bien !) mais de fait il est vraiment difficile de comprendre ce que tu veux faire.

Peux tu détailler le processus que tu comptes accomplir et je vais essayer de t'aider à écrire ta classe correctement.

Edit : si tu retires le "set" dans

Private Sub Opt_Click()
GetParentForm(Opt).bouton = Button_i
RaiseEvent Click

tu n'as plus d'erreur.

galopin01 · Answer

Comprend moi bien : Pour un petit nombre d'Ob (100 est un petit nombre) Une numérotation simple Ob1, Ob2, Ob82 est la plupart du temps bien suffisante.

Après le multipage et les Frame c'est du cosmétique (pour l'utilisateur)

Après pour la programmation on a besoin de savoir exactement ce qu'on programme : Pour organiser le traitement du retour d'info. Dans bien des cas cette numérotation simple peut être suffisante il suffit de créer une fonction "décodeur" qui traitera de la même manière les Ob entre 20 et 30 qui ont le Tag "A" c'est juste un problème de sélect cas NumRetour... Tu as vu dans mon exemple que les Frame et le multipage étaient ignorés.

Pas de blabla, juste un organigramme qui associe quelque chose ou un traitement à chaque "Ob" Si des regroupements peuvent être faits selon les pages, très bien mais limite on s'en fout du moment qu'on sait à quelle question répond chaque "ObNum" et comment on affecte chaque coche à une action, un prix, une valeur... vers une cible" (la plupart du temps un tableau ou une BD)

galopin01 · Answer

Je ne sais pas votre blabla est bien peu parlant pour moi. D'autant que je suis assez convaincu que vous regardez le problème par le petit bout de la lorgnette...

C'est un problème qu'on retrouve souvent chez les débutants qui affectionne beaucoup le couplage colonnes / boutons soit pour les masquer ou les démasquer soit pour y établir des relations de valeur.

N'utilisez pas de boucle utilisez quand c'est possible des fonctions directes : Avec des tags "lettres" il est possibles d'adresser facilement 26 colonnes : Chaque lettre ayant une valeur "Asc" de 65 à 90 (pour les majuscules) il est facile de traduire cette valeur avec un décalage quelconque... Il existe même des algo capables de gérer plus de colonne (650) avec 2 lettres... Mais on en reparlera quand on en saura un peu plus sur ce classeur.

Il est aussi possible de stocker des valeur multiples dans un tag... et de les lire avec Mid !

En résumé ne vous souciez pas du UserForm pour l'instant. Préparez une table BD suffisamment hiérarchisée pour concevoir le Userform en groupes, séries et autres sous-divisions si nécessaire et une arborescence décisionnelle (qui indique clairement quel type de retour vous attendez pour chaque groupe de questions :

Oui/non, Vrai/Faux, F/M

Une valeur parmi plusieurs proposées.

Une ou plusieurs réponses parmi une liste

Une évaluation de certains choix parmi une liste

Autres...

En clair présentez plutôt la problématique que la manière compliqué ou vous envisagez de la résoudre.

Ayez à l'esprit l'idée que avec votre présentation j'en viens même à douter que vous ayez réellement besoin d'un UserForm !

A+

galopin01 · Answer

Ton projet est bien trop avancé à mon gout aussi je préfère passer la main. Si quelqu'un d'autre veut se lancer la place est chaude ! Bonne continuation. A+...