Code multipage qui bloque

bonjour a tous et toutes

j'ai ce code qui fonctionne bien pour que le clic sur sur un "spinbutton" puisse naviguer de page en page sur un multipage

ce code fonctionne mais jusque la page 4 et s'arrete, hors j'ai 10 pages dans le multipage

la propriété est bien réglée sur 9

Private Sub SpinButton1_Change()
    Application.EnableEvents = False
    Select Case SpinButton1.Value
    Case 0: MultiPage1.Value = 0
        Label1.Visible = True
        Label2.Visible = False
    Case 1: MultiPage1.Value = 1
        Label1.Visible = False
        Label2.Visible = False
    Case 2: MultiPage1.Value = 2
        Label1.Visible = False
        Label2.Visible = False
    Case 3: MultiPage1.Value = 3
        Label1.Visible = False
        Label2.Visible = False
    Case 4: MultiPage1.Value = 4
        Label1.Visible = False
        Label2.Visible = True
    Case 5: MultiPage1.Value = 5
        Label1.Visible = False
        Label2.Visible = True
    Case 6: MultiPage1.Value = 6
        Label1.Visible = False
        Label2.Visible = True
    Case 7: MultiPage1.Value = 7
        Label1.Visible = False
        Label2.Visible = True
    Case 8: MultiPage1.Value = 8
        Label1.Visible = False
        Label2.Visible = True
    Case 9: MultiPage1.Value = 9
        Label1.Visible = False
        Label2.Visible = True

    End Select

    Label222.Caption = "Page " & SpinButton1.Value + 1 & " sélectionnée"
    Application.EnableEvents = True
End Sub

Merci

Bonjour,

Chez moi ça fonctionne (Excel 2007) la sélection passe bien d'un onglet à l'autre et sur les 10

bonjour Theze

merci de ta réponse, mais chez moi ca veux pas aller plus loin que la 4ème page

j'ai fureter le net et j'ai trouvé ceci qui fonctionne, c'est ce qui se nomme une réduction de code

Private Sub SpinButton1_Change()
    Dim p%
    p = SpinButton1.Value
    If p = -1 Then p = 10
    If p = 10 Then p = 0
    MultiPage1.Value = p
    SpinButton1.Value = p
End Sub

mais du coup comment puis faire pour que le label 222 puisse prendre le nom de la page sélectionnée par le clic sur le spinbuton

Label222.Caption = "Page " & SpinButton1.Value + 1 & " sélectionnée

"

la ça me mets Page 1 sélectionnnée eu lieu de CUISINES sélectionnée

comme ceci il n'y a que la 1ère page qui est nommée

Label222.Caption = Me.MultiPage1.Pages.Item(0).Caption

Merci a toi

bonjour Theze et le forum

j'essai plusieurs code mais chacun ne prends ne donne que le nom d'une seule page dans le Label

j'ai essayer avec une boucle et pas mieux

With Me.MultiPage1
    For i = 0 To .Pages.Count - 1
    Nom = .Pages(i).Caption
    Label222.Caption = Nom
    Next

End With

le label est sur l'userform et pas dans le multipage

Bonjour,

vous n'étiez pas loin...

Label222.Caption = "C'est la page " & MultiPage1.SelectedItem.Name & " qui est activée"

@ bientôt

LouReeD

bonjour Loureed

merci de ta réponse mais ca persiste a écrire page 1, 2,3,4 etc ... dans le label au lieu du caption des pages

le label n'est pas sur le multipage

il y a 10 pages sur ce multipage

chaque page est nommée et s'initialise du contenu des feuilles qui sont sur C: dans un listbox


bonjour

d'accord j'ai compris, il n'y que la caption des page qui est renommé pas son nom

Lab_page.Caption = MultiPage1.SelectedItem.Name

mais du coup comment puis faire pour que le label 222 puisse prendre le nom de la page sélectionnée par le clic sur le spinbuton

Code: Tout sélectionner

Label222.Caption = "Page " & SpinButton1.Value + 1 & " sélectionnée

"

la ça me mets Page 1 sélectionnnée eu lieu de CUISINES sélectionnée

comme ceci il n'y a que la 1ère page qui est nommée

Code: Tout sélectionner

Label222.Caption = Me.MultiPage1.Pages.Item(0).Caption

Si entre deux, le nom du label change...

@ bientôt

LouReeD

bonsoir Loureed

non le label ne changera plus il restera Lab_page car c'est cela qu'il désigne

Merci a toi et Theze et le forum

Rechercher des sujets similaires à "code multipage qui bloque"