Ajout de pages à un multipage par spin button

Bonjour, je veux pouvoir ajouter dans un user form, des pages à un multipage, avec un spinbutton

voilà ce que j'ai tapé :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub SpinButton1_SpinUp()   Label14.Caption = Label14.Caption + 1   Dim Pge As Page 'Ajoute une page Set Pge = MultiPage1.Pages.Add() Pge.Caption = "Pge" End Sub

---

Impossible de faire tourner ce code, quand je tente, j'ai d'abord une erreur Automation "La connexion à la bibliothèque de types ou d'objets pour le traitement à distance a été perdue. Appuyez sur OK pour supprimer la référence dans la boite de dialogue"

Déjà là... je ne vois pas du tout de quoi il parle...

Si je ré-appuie sur mon spin button, excel plante


EDIT : La finalité de l'opération serait de dupliquer totalement la page (elles seront toutes identiques)

Bonjour
Impossible de reproduire le problème.
Voila le code que j'ai utilisé et qui fonctionne très bien:

Code:

---

1 2 3 4 5 6

Private Sub SpinButton1_SpinUp() Dim Pge As Page 'Ajoute une page Set Pge = MultiPage1.Pages.Add() Pge.Caption = "Pge" & MultiPage1.Pages.Count + 1 'donne un N° à la page End Sub

---

Peut-être un problème de bibliothèque. Essaye de compiler le projet : menu Débogage/Compiler

aucun changement après avoir compilé... J'imagine mal un problème de référence vu que je n'utilise que des fonctions VBA "de base" donc les références nécessaires doivent être faites par défaut.

Je vais essayer avec un tabstrip plutot, et revenir vers vous en cas de problème


edit : pas de problème avec un tabstrip, je le regretterais presque vu que je n'en ait jamais utilisé et ne sais pas du tout comment y faire le mappage des contrôles entre les différentes tabs

edit 2 : J'ai pu utiliser finalement un multipage en copiant collant tout mon projet dans un nouveau... j'ai constaté finalement que le problème venait du fait que le spin button et le multipage sont dans des frames séparées