Lancer un userform sur une multipage precise

[SSIAP2]

Bonsoir à tous

J'ai creer sur ma page de Accueil un Bouton avec cette macro pour acceder au second onglet de ma multipage mais il reste toujour sur la premiere.

Userform1.Show
UserForm1.MultiPage1.Value = 1

quelqu'un c'est t'il comment je pourais faire svp merci

 

[xhudi69]

Re : Lancer un userform sur une multipage precise

Bonsoir SSIAP2, le Forum,

Astuce: dans VBA tu sélectionne la page, puis sur ta feuille tu appelles ton UserForm, il s'ouvrira sur la page choisie dans VBA.

@+

 

[Eric C]

Re : Lancer un userform sur une multipage precise

Bonsoir le forum
Bonsoir SSIAP2, xhudi69

Ta page d'appel doit être préalablement définie dans l'initialisation de ton USF.
Ensuite lorsque tu cliques sur ton Bouton, la page définie s'affiche.
Cordialement

 

[SSIAP2]

Re : Lancer un userform sur une multipage precise

Bonjour eric c et x hudi69 merci pour pour votre intervention mais vous m'avez mal compris je souhaite associer les boutons sur ma feuil1 aux page de ma multipage.

exemple bouton 1 ouvre sur la page 1 Bouton 2 sur la page ect.

dans l'exemple que j'ai mis sa fonctionne de facon un peu aleatoire.

 

[SSIAP2]

Re : Lancer un userform sur une multipage precise

Rebonjour à tous

une solution proposer par jean marcel

dans un module

Public PageSélection As Byte
Sub Page1()
    PageSélection = 0
    UserForm1.Show
End Sub
Sub Page2()
    PageSélection = 1
    UserForm1.Show
End Sub

Sub Page3()
    PageSélection = 2
    UserForm1.Show
End Sub

Sub Page4()
    PageSélection = 3
    UserForm1.Show
End Sub

Private Sub UserForm_Initialize()
    MultiPage1.Value = PageSélection

End Sub

et tous cela fonctionne parfaitement merci à tous de votre aide.

 

[Hamadou]

Bonjour ! Je suis depuis une semaine sur mon code par rapport au userform multipage, lors que le lance le userform multipage2 nommé Client le classeur se ferme et redémarre automatiquement

 

[Hamadou]

Voilà le fichier

 

[Lolote83]

Bonjour @Hamadou

Voilà le fichier

???????????????????
Cordialement
@+ Lolote83

 

[patricktoulon]

bonjour à tous
on peut t'amuser a se faire une fonction Show perso
dans exemple qui suit on gère le modal et l'index de page du multipage

en haut de module userform (après les eventuelles déclarations bien evidemment) tu colle ça

Public Sub ShowOnPage(Optional modale As Long = 1, Optional indexpage As Long = 1)
    With UserForm1
        If indexpage > .MultiPage1.Pages.Count Then Exit Sub
        .MultiPage1.Value = indexpage - 1
        .Show modale
    End With
End Sub

testons ça dans un module

Sub test()
UserForm1.ShowOnPage indexpage:=2' affiche le userform en modal et sur la page 2 du multipage
'UserForm1.ShowOnPage 0,2' affiche le userform en non modal et sur la page 2 du multipage
End Sub

un module userform est un module classe avant d'être un object Msform
apprenez avous en servir comme tel
ca aide a se faire des preconfig avant l'affichage

l'argumentation
modale par defaut(si omis) on est a true
indexpage par defaut on est a 1( en base1) donc la page 0 (la premiere quoi)

voila bonne journée

 

[ChTi160]

Bonjour le Fil
Donc pour être plus précis lol

indexpage:=2

Affichera la troisième feuille du multipage !
Bon je sort !
Cordialement
Jean marie

 

[patricktoulon]

oui tu a raison jean-marie
j'en perd la bouboul

 

[patricktoulon]

Bonjour le Fil
Donc pour être plus précis lol

indexpage:=2

Affichera la troisième feuille du multipage !
Bon je sort !
Cordialement
Jean marie

salo!! salo!! salo!! tu m'a tropmpé c'est faux
ca affiche bien la feuille 2 soit l'index 1
salo!! VA!!!

 

[ChTi160]

Re
J'avais pas vu le -1 mais pourquoi pas passer de 0 a x plutôt que d'ôter 1?
Trois pages soit de 0 à 2
Mdr
Jean marie

 

[patricktoulon]

re
ben comme ca tu utilise l'index de page tu est moins perdu
tout simplement
le pire c'est que j'ai reagi 100 ans plus tard
disons que ca correspond au titre original des captions

 

[ChTi160]

Re
Non pas "l'index" car index de 0 à x
Peut être l'ordre !
Jean matie