Discussion :

[Vin_SuFu_R@T]

Bonjour,

Comment supprimer une page d'un multipage a l'aide d'une macro?
J'ai essayé ceci mais sa fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
Private Sub CmdRemove_Click()
Dim Pge As Pages
 
Dim k As Integer
k = UserForm1.MultiPage1.Pages.Count
Set Pge = UserForm1.MultiPage1.Pages.Remove("Flexible Export Line" & k)
 
End Sub

Merci

[Vin_SuFu_R@T]

J'ai trouver mon erreur.
Je ne suis pas reveillé ce matin.

Code :

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

1
2
3
4
5
Private Sub CmdRemove_Click()
Dim k As Integer
k = UserForm1.MultiPage1.Pages.Count
UserForm1.MultiPage1.Pages.Remove (k - 1)
End Sub