Bonjour a tous,
Dans le fichier ci-dessous, j'ai crée plusieurs userforms me permettant d’afficher "dynamiquement" de la somme de valeurs renvoyées par des groupes d'optionbuttons ou de checkbox.
Pour cela, j'ai regroupé ces optionsbuttons et checkbox dans un module de classe, et permet le lancement d'une procédure évènementielle lorsqu'un de ces contrôles est sélectionnés.
Après quelque recherche sur le net, j'ai pu trouvé quelquchose qui fonctionne lorsque les optionbuttons/checkbox sont uniquement dans des frames. (cf. userform1)
Par contre lorsque ces contrôles sont dans un multipage, la procédure évènementielle plante... (cf. userform 2). La fonction permettant de retrouver le nom de l'userform s'arrete au nom de la page du mutlipage et non jusqu'au nom de l'userform....
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
je ne comprend pas pourquoi... Quelqu'un pourrait m'éclairer sur la raison de ce plantage ? et m'aider a résoudre ce problème?
merci de votre temps