Contrôle Multipage dans Userform

Bonjour à tous

Pouvez-vous m'indiquer la cause du plantage en XL-2010 et 2013 de cette macro qui fonctionnait très bien en XL-2003 ?

Cette macro se situe dans le tutoriel sur les contrôles dans un Userform en VBA Excel.

Ajouter une page par macro et compter le nombre de pages.

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click() Dim Pge As Page   'Ajoute une page Set Pge = MultiPage1.Pages.Add Pge.Caption = "Nouvelle page"   'compte le nombre de pages MsgBox MultiPage1.Pages.Count End Sub

---

Merci pour vos Réponses.

Christophe

Bonjour,

je pense qu'il y a conflit de types de variables (plusieurs Types "Page" existent)

déclare ta variable Pge sans la typer pour voir si c'est bien ça

Code:

---

1 2 3 4

Dim Pge   Set Pge = MultiPage1.Pages.Add ' la suite de ton code

---

si ça fonctionne, tu peux remettre au propre en levant l'ambiguïté :

Code:

---

Dim Pge As MSForms.Page

---

Cela fonctionne merci
Malheureusement je cherche à passer au niveau supérieur avec ceci

Code:

---

1 2 3 4

Dim p2(1 To 150) As MSForms.Page     Set p2(X) = Critères.MultiPage1.Page.Add("p", Sheets("Champs").Cells(1, X).Value)

---

Boucler sur X de 1 à 9 fois

Merci pour la réactivité
Christophe

Un objet Page d'un contrôle Multipage ne peut pas être utilisé pour typer un tableau

que veux-tu faire exactement ?

Créer 9 pages en piochant le caption dans ta feuille Sheets("Champs") à la ligne 1 ?

pourquoi 1 to 150 si tu ne boucles que jusque 9 ?
et pourquoi la valeur "p" pour ton nom de page ? tu veux qu'elles aient toutes le paramètre Name "P" ?

Pour éviter d'allonger le fil :

- montre ton code complet, afin qu'on sache ce que tu souhaites faire
- décris nous toutes les actions qui doivent être réalisées

Bonjour,

Citation:

---

Envoyé par ESTERALIX

Cela fonctionne merci
Malheureusement je cherche à passer au niveau supérieur avec ceci

Dim p2(1 To 150) As MSForms.Page

---

Quelle est la taille de ton écran ? :calim2: