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