Bonjour à toutes et à tous,
Je débute en Vba et j'ai encore quelques difficultés à simplifier mes codes, en voici un exemple.
Ce code me permet de rendre visible ou pas les pages d'un UserForm Multipages :
Comment le rendre plus simple car là il est un peu long n'est-ce pas?
Je vous remercie par avance pour l'aide que vous pourrez m'apporter.
Je débute en Vba et j'ai encore quelques difficultés à simplifier mes codes, en voici un exemple.
Ce code me permet de rendre visible ou pas les pages d'un UserForm Multipages :
Comment le rendre plus simple car là il est un peu long n'est-ce pas?
Je vous remercie par avance pour l'aide que vous pourrez m'apporter.
VB:
Private Sub MultiPage1_Change()
With Me
Select Case .MultiPage1.Value
Case 0 'Correspond à la page 1
MultiPage1.Pages(1).Visible = False
MultiPage1.Pages(2).Visible = False
MultiPage1.Pages(3).Visible = False
MultiPage1.Pages(4).Visible = False
MultiPage1.Pages(5).Visible = False
Case 1 'Correspond à la page 2
MultiPage1.Pages(0).Visible = False
MultiPage1.Pages(2).Visible = False
MultiPage1.Pages(3).Visible = False
MultiPage1.Pages(4).Visible = False
MultiPage1.Pages(5).Visible = False
Case 2 'Correspond à la page 3
MultiPage1.Pages(0).Visible = False
MultiPage1.Pages(1).Visible = False
MultiPage1.Pages(3).Visible = False
MultiPage1.Pages(4).Visible = False
MultiPage1.Pages(5).Visible = False
Case 3 'Correspond à la page 4
MultiPage1.Pages(0).Visible = False
MultiPage1.Pages(1).Visible = False
MultiPage1.Pages(2).Visible = False
MultiPage1.Pages(4).Visible = False
MultiPage1.Pages(5).Visible = False
Case 4 'Correspond à la page 5
MultiPage1.Pages(0).Visible = False
MultiPage1.Pages(1).Visible = False
MultiPage1.Pages(2).Visible = False
MultiPage1.Pages(3).Visible = False
MultiPage1.Pages(5).Visible = False
Case 5 'Correspond à la page 6
MultiPage1.Pages(0).Visible = False
MultiPage1.Pages(1).Visible = False
MultiPage1.Pages(2).Visible = False
MultiPage1.Pages(3).Visible = False
MultiPage1.Pages(4).Visible = False
End Select
.Repaint
End With
End Sub