Re,
ça ne fonctionne plus lorsque je transpose cette solution sur un autre fichier.
J'ai un message d'erreur:
je n'ai jamais vu cette erreur jusqu'ici
je ne comprends pas, la seule différence avec le fichier test est que dans le fichier pro, mon userform a un nom.
Donc, dans ma procédure commune, j'ai modifier une ligne puis que la procédure commune générait l'erreur
et que la ligne For Each Ctrl In Me.MultiPage1.Pages(Opt.Parent.Name).Controls était surlignais en jaune.
À la place de For Each Ctrl In Me.MultiPage1.Pages(Opt.Parent.Name).Controls, j'ai mis
For Each Ctrl In "NomduUserform".MultiPage1.Pages(Opt.Parent.Name).Controls
(je n'ai pas mis de guillemets, ici c'est juste pour illustrer mon souci !)
C'est pareil, à nouveau erreur 430.
J'ai à nouveau essayé avec
For Each Ctrl In Userform.MultiPage1.Pages(Opt.Parent.Name).Controls
Idem, erreur 430
Est-ce que ça vous parle?
Merci d'avance ,
Siga