Multipage

[biloute91]

Bonjour,

J'ai un USF1 dans lequel il y a un combobox . A partir du choix de la combobox j'appelle un autre USF2 dans lequel il y a un multipage avec 10 pages. Le nom de chaque page correspond au choix possible de la combobox.
Je souhaite lorsque je selectionne un nom dans la combobox,en cliquant sur un bouton cela ouvre le USF2 sur la bonne page et que les autres pages ne soient pas visibles.

En esperant avoir été clair dans mes explications

Merci pour votre aide

 

[Pierrot93]

Re : Multipage

Bonsoir,

regarde le code ci-dessous sil il peut t'aider :

Dim p As Page
For Each p In Me.MultiPage1.Pages
    If p.Name <> UserForm1.ComboBox1.Value Then p.Visible = False
Next p

sans fichier difficile de t'en dire plus...

bonne soirée
@+

 

[YANN-56]

Re : Multipage

Bonsoir Biloute, Pierrot et à ceux qui passeront par là

Une autre façon que j'utilise:

En premier dans les propriétés du MultiPage:

Style = 2-FmStyleNone (Pas d'onglets)

Dans ton USF:

Private Sub ComboBox1_Change()
UserForm2.MultiPage1.Value = UserForm1.ComboBox1.ListIndex
End Sub

Bonne soirée

YANN-56

 

[skoobi]

Re : Multipage

Bonjour biloute91,

En pièce jointe un exemple.

Edit: bonsoir Yann-56, Pierrot

 

[biloute91]

Re : Multipage

Bonjour à tous et merci pour vos reponses.
La methode de skoobi fonctionne parfaitemment !

Encore merci

Bonne soirée