Discussion :

[luko6]

bonjour à tous

je travaille sur un userform contenant un multipage
j'ai un petit problème voici mon code :

Code :

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

1
2
3
If ListBox2.Selected(0) = True Then form_materiel3!MultiPage1.Pages(0).Visible = True
If ListBox2.Selected(1) = True Then form_materiel3!MultiPage1.Pages(1).Visible = True
If ListBox2.Selected(2) = True Then form_materiel3!MultiPage1.Pages(2).Visible = True

ce code marche bien sauf que j'ai besoin de cliquer sur l'onglet pour qu'il s'affiche, j'ai seulement une page grise
je voudrais que l'onglet soit actif
merci de votre aide

[luko6]

re bonjour
j'ai raisonné à l'envers
voici mon code :

Code :

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

1
2
3
If ListBox2.Selected(0) = False Then form_materiel3!MultiPage1.Pages(0).Visible = False
  If ListBox2.Selected(1) = False Then form_materiel3!MultiPage1.Pages(1).Visible = False
  If ListBox2.Selected(2) = False Then form_materiel3!MultiPage1.Pages(2).Visible = False

mercià vous

[mercatog]

une réflextion

Code :

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

1
2
3
Private Sub ListBox2_Click()
If Me.ListBox2.ListIndex > -1 Then Me.MultiPage1.Value = Me.ListBox2.ListIndex
End Sub