Changer de pages dans multipage

Version imprimable

18/05/2007, 17h22
husamus156

Changer de pages dans multipage

Salut jai un Multipage
avec 2 pages

MyInsertParamFrm = nom du form
MultiPage1 = nom du multi page
page1 = nom du page1
page2 = nom du page2

J'aimerai que quand le form se load que je puisse selectionné quel page a affiché merci pour votre aide

Husam

bonjour

Tu peux Tester

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub AppelUserform()
    Dim Reponse As Variant
    Dim NbPages As Integer
 
    NbPages = UserForm1.MultiPage1.Pages.Count
 
    Reponse = InputBox("Quelle page voulez vous atteindre ?" & vbCrLf & _
        "(Le contrôle contient " & NbPages & " pages)", , 1)
 
    'Vérifie si l'utilisateur à appuyé sur la touche "Annul"
    'ou sur la croix de fermeture
    If VarType(Reponse) = vbBoolean Then Exit Sub
 
    'Vérifie s'il s'agit d'une donnée numérique
    If Not IsNumeric(Reponse) Then Exit Sub
 
    'Vérifie si le numéro de page est cohérent
    If Reponse < 1 Or Reponse > NbPages Then Exit Sub
 
    'La première page correspond à l'index 0
    UserForm1.MultiPage1.Value = Reponse - 1
    UserForm1.Show
End Sub

michel

21/05/2007, 16h31
husamus156

Merci Beaucoup Michel :D
Ca marche très bien :)

Cest le .Value que je ne savais pas qui permettait de changer de page

Husam