Discussion :

[ESTERALIX]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joe.levrai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Pge As MSForms.Page

[ESTERALIX]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joe.levrai]

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

[clementmarcotte]

Bonjour,

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 ?