XL 2016 Passer d'une page à une autre d'un UserForm multipage avec un bouton commande

[hamza.arif]

Bonjour,

Après qlqs échecs je me tourne vers vous

Contexte : Je souhaite créer un UserForm Multipage où chaque page est une catégorie de données à remplir par l'utilisateur.

Objectif : Je veux pouvoir passer d'une page (disons Page1) de l'UF à une autre page (disons Page2) à l'aide d'un bouton (disons CommandeButton1), une fois que l'utilisateur a rempli les cases de la Page1.

Voici ce que j'ai essayé en plaçant CommandButton1 dans la page1 :

Private Sub CommandButton1_Click()
    Load Page2
    Page2.Show
End Sub

Mais cela ne fonctionne pas (erreur d'exécution 424 : Objet requis).

Avez vous des pistes de solution svp ?

 

[fanch55]

Bonjour,

Private Sub CommandButton1_Click()
    With Me.MultiPage1
        .Value = IIf(.Value = .Pages.Count - 1, 0, .Value + 1)
    End With
End Sub

 

[patricktoulon]

re
bonjour

Private Sub plus_Click()
    With Me.MultiPage1
        .Value =application.min(.Value+1, .Pages.Count - 1)
    End With
End Sub

Private Sub moins_Click()
    With Me.MultiPage1
        .Value =application.max(.Value-1, 0)
    End With
End Sub

 

[soan]

Bonjour,

C'est marrant je tombe sur la même demande sur un autre forum

Je suis nouveau, on a le droit de faire ça sur ce forum ?

pas exactement : ça s'appelle du "crossposting", ou encore du "multipost", et éthiquement parlant, c'est plutôt très mal perçu par les contributeurs : ils ont l'impression d'avoir bossé pour rien sur l'exo du demandeur si celui-ci a déjà obtenu une solution valable sur un autre forum !

en plus, bien souvent, le demandeur n'avertit pas qu'il a obtenu une solution ailleurs ➯ les contributeurs continuent à chercher inutilement une solution à un exo déjà résolu !​

soan