Lancer un userform sur une multipage precise

xhudi69

XLDnaute Accro

• 10 Mars 2013

• #2

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.

@+

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 10 Mars 2013

• #3

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

 

Pièces jointes

• Appel page X dans Multipage.xls

  29 KB · Affichages: 77

Vote positif 0 Vote négatif

S

SSIAP2

XLDnaute Occasionnel

• 12 Mars 2013

• #4

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.

 

Pièces jointes

• multi.xls

  41.5 KB · Affichages: 58
• multi.xls

  41.5 KB · Affichages: 65
• multi.xls

  41.5 KB · Affichages: 53

Vote positif 0 Vote négatif

S

SSIAP2

XLDnaute Occasionnel

• 12 Mars 2013

• #5

Re : Lancer un userform sur une multipage precise

Rebonjour à tous

une solution proposer par jean marcel

dans un module

Code:

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

Code:

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

End Sub

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

 

Vote positif 0 Vote négatif

H

Hamadou

XLDnaute Nouveau

• 10 Décembre 2023

• #6

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

 

Vote positif 0 Vote négatif

H

Hamadou

XLDnaute Nouveau

• 10 Décembre 2023

• #7

Voilà le fichier

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 10 Décembre 2023

• #8

Bonjour @Hamadou

Voilà le fichier

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Décembre 2023

• #9

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

VB:

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

VB:

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
😉

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 10 Décembre 2023

• #10

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

VB:

indexpage:=2

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Décembre 2023

• #11

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Décembre 2023

• #12

ChTi160 à dit:

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

VB:

indexpage:=2

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 10 Décembre 2023

• #13

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Décembre 2023

• #14

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 10 Décembre 2023

• #15

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

 

Vote positif 0 Vote négatif