USF de navigation

[Stephane]

Bonsoir,
sur la Feuil1 de mon classeur, je voudrais mettre un USF avec 2 boutons de commande permettant d' aller en Feuil2 ou en Feuil3.
Pourriez-vous m'indiquer la méthode à appliquer ?

 

[G'Claire]

Stephane

Dans ton UserForm, tu ajoute

Pour les boutons

Sub NomDuBouton_Click()
Sheet ("Nom de la feuille").activate
end sub

Pour l'autre bouton tu n'as qu'a changer les noms des controls

Salut G'Claire

 

[Stephane]

Merci G' Claire, je l' avais fait mais ou ça bloque ,c' est quand je vais en feuil1, je ne vois pas les boutons. Un petit code aussi en feuil1 pour activer l' USF ???

 

[G'Claire]

Stéphane

Dans tes feuilles

Private Sub CommandButton1_Click()
UserFormChoixFeuille
End Sub

Dans un module :

Sub UserFormChoixFeuille()
UserForm1.Show 0
End Sub

Dans l'userform (Qui est nommé 1, mais vaut mieux donné un nom concret a tes controls):

Private Sub CommandButton1_Click()
Sheets("Feuil1").Activate
End Sub

Private Sub CommandButton2_Click()
Sheets("Feuil3").Activate
End Sub

Bye, G'Claire

 

[Stephane]

G'Claire,
Il me semble bien appliquer ce que tu me dis mais je dois faire une bavure quelque part car je ne vois toujours pas les boutons.
Si tu veux bien me corriger l' erreur dans la pièce jointe, je t' en remercie.

A plus.

 

[Mytå]

Bonsoir le Forum

Essaye la pièce jointe

Mytå

 

[Stephane]

Bonjour à tous.

Merci Myta pour ta correction. Juste une petite question supplémentaire :
Est-il possible d' enlever le bouton afficher userform et d' avoir l'userform qui se place automatiquement sur les pages ?

A plus. Steph.

 

[Eric C]

Bonjour le forum
Bonjour Stéphane, G'Claire & Mytä (Meilleurs voeux à vous tous)


En espérant que cela te dépannera.
@ + Eric C

 

[Stephane]

Bonsoir,

Merci Eric, c' est tout à fait ça.

A plus . Steph.