Bonjour,
Dans mon programme j'ai mis des boucles if pour dire si on choisie une expression precise dans notre zone de liste tel onglet va s'ouvrir . mais l'onglet que je ouvrir ne s'ouvre pas pourtant j'ai tout mentionné dans mes multipages et il n y a pas de message d'erreur.Je ne comprends rien
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
If selec.Value = "x" Then
With Worksheets("..")
 
afficherdate.Value = ""
co.Value = ""
equipe.Value = ""
 
 
 
With MultiPage1
.Pages(0).Visible = True
.Pages(1).Visible = True
.Pages(2).Visible = False
.Pages(3).Visible = False
.Pages(4).Visible = False
.Pages(5).Visible = False
.Pages(6).Visible = False
.Pages(7).Visible = False
 
MultiPage1.Value = 2
 
End With
end with
Merci