MultiPage - Passer d'une page à l'autre

Bonjour,

Après de nombreuses recherche je me tourne vers vous.
J'ai une mulitpage avec un nombre X d'onglets que je détermine dans mon Userform_Initialize.

J'aimerais pouvoir passer d'un onglets à l'autre en cliquant sur les onglets.
Une idée ?

J'ai réussi à faire ce code qui marche une fois mais après il y a une erreur quand je relance l'userform :

Private Sub MultiPage1_Change()
For i = 0 To Me.MultiPage1.Count - 1

If Me.MultiPage1.SelectedItem(i) = True Then
Me.MultiPage1.Value = 1
End If

Next i

End Sub

Merci d'avance

Bonjour

Fil cloturé ?

J'aimerais pouvoir passer d'un onglets à l'autre en cliquant sur les onglets.

Les onglets de l'userform ?

Sans un fichier....

Cordialement

Il s'agissait de passer d'un onglet à l'autre dans ma multipage. comme ici :

Oui c'est vrai que je n'ai pas forcé sur le post désolé.
Oui j'ai réussi finalement avec le code suivant :

Private Sub MultiPage1_Change()
For i = 0 To Me.MultiPage1.Count - 1

If Me.MultiPage1.SelectedItem(i) = True Then
Me.MultiPage1.Value = 1
End If

Next i

End Sub

Le code n'est pas parfait car il faut cliquer plusieurs fois parfois.

Le fichier :

Le code n'est pas parfait car il faut cliquer plusieurs fois parfois.

pas trop compris. quel est le but poursuivi avec le multipage change ?

Crdlt

Edit : Je ferais déjà ceci dans votre userfrom N3_Ouvrage

- Supprimer l'onglet "page 2" dans l'userform
- modifier ces lignes dans la Private Sub UserForm_Initialize()

'Ajout du bon nombre de âge de la multipage en fonction de résultat
For i = 0 To Me.MultiPage1.Count - 1
        Me.MultiPage1.Pages(i).Caption = "Ouvrage " & i + 1
Next i
If resultat > Me.MultiPage1.Count - 1 Then
    For i = 2 To resultat - 1
        Set pge = Me.MultiPage1.Pages.Add
            Me.MultiPage1.Pages(i).Caption = "Ouvrage " & i + 1
    Next i
End If

et les remplacer par ceci

'Ajout du bon nombre de âge de la multipage en fonction de résultat
For i = 0 To resultat - 1 'Me.MultiPage1.Count
    If i > 0 Then Set pge = Me.MultiPage1.Pages.Add
    Me.MultiPage1.Pages(i).Caption = "Ouvrage " & i + 1
Next i

Après reste à savoir ce que vous voulez faire avec le Multipage1_Change (je l'ai désactivé)

Cordialement

le Multipage_change permet de changer d'onglets dès que je clique sur un des onglets que je souhaite

le nombre d'ouvrage est forcément supérieur à 2 ou égale à 2 mais pas en dessous. Donc je ne voyais pas utile de faire ce que tu m'as proposé mais j'admet que ça fait vraiment plus propre et claire.

le nombre d'ouvrage est forcément supérieur à 2 ou égale à 2 mais pas en dessous. Donc je ne voyais pas utile de faire ce que tu m'as proposé mais j'admet que ça fait vraiment plus propre et claire.

Cela ne sert à rien de créer des lignes et des boucles inutilement quand cela peut se faire avec une seule.

le Multipage_change permet de changer d'onglets dès que je clique sur un des onglets que je souhaite

Changer d'onglets ??? . Ce code sert seulement si on a des actions particulières à faire. Genre ajouter les infos de la page dans les feuilles.

Comme c'est actuellement cela ne sert pas. Là vous pouvez le désactiver.
Le click sur les onglets ne pose plus de problème

Oui c'est sur que ca prend du temps et de la place pour rien

Ah ok je pensais qu'il fallait un code pour passer d'une page à l'autre

Ah ok je pensais qu'il fallait un code pour passer d'une page à l'autre

Non du tout. Cela sert uniquement si vous voulez envoyer des infos de la page active dans les feuilles.

D'accord, merci pour les infos !