USF de navigation

G

G'Claire

Guest

• 1 Janvier 2005

• #2

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

 

Vote positif 0 Vote négatif

S

Stephane

Guest

• 1 Janvier 2005

• #3

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 ???

 

Vote positif 0 Vote négatif

G

G'Claire

Guest

• 1 Janvier 2005

• #4

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

 

Vote positif 0 Vote négatif

S

Stephane

Guest

• 1 Janvier 2005

• #5

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.

 

Pièces jointes

• navig.zip

  9.8 KB · Affichages: 29
• navig.zip

  9.8 KB · Affichages: 30
• navig.zip

  9.8 KB · Affichages: 29

Vote positif 0 Vote négatif

M

Mytå

Guest

• 2 Janvier 2005

• #6

Bonsoir le Forum

Essaye la pièce jointe

Mytå

 

Pièces jointes

• navig.zip

  11.9 KB · Affichages: 31
• navig.zip

  11.9 KB · Affichages: 29
• navig.zip

  11.9 KB · Affichages: 30

Vote positif 0 Vote négatif

S

Stephane

Guest

• 2 Janvier 2005

• #7

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.

 

Vote positif 0 Vote négatif

E

Eric C

Guest

• 2 Janvier 2005

• #8

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


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

 

Pièces jointes

• FeuilleSansBtn.zip

  10.1 KB · Affichages: 40

Vote positif 0 Vote négatif

S

Stephane

Guest

• 2 Janvier 2005

• #9

Bonsoir,

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

A plus . Steph.

 

Vote positif 0 Vote négatif