choix onglet

Modeste

XLDnaute Barbatruc

• 18 Avril 2015

• #2

Re : choix onglet

Bonjour a10,

Avec tes deux bouts de phrase, difficile de déterminer ce que tu sais et ce que tu as déjà essayé!?
Tu as essayé le clic droit sur les flèches à gauche du premier onglet?

 

Vote positif 0 Vote négatif

A

a10

XLDnaute Impliqué

• 18 Avril 2015

• #3

Re : choix onglet

bonjour

j'ai essayé le clic sur les flèches qui sont en bas à gauche.

a+

 

Vote positif 0 Vote négatif

A

a10

XLDnaute Impliqué

• 18 Avril 2015

• #4

Re : choix onglet

Bonjour,

Les flèches ne sont pas suffisantes soit je me déplace de 1 onglet soit je vais aux extrémités.

a+

 

Vote positif 0 Vote négatif

P

poilamonnez

XLDnaute Junior

• 18 Avril 2015

• #5

Re : choix onglet

Bonjour,
Comme l'as déjà dit Modeste un Click "DROIT" sur les petites flèches du bas donne la liste des feuilles et ont peut sélectionner celle qu'on désire

@+

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 18 Avril 2015

• #6

Re : choix onglet

Bonjour à tous

Outre ce qui a été précisé, mais avec un grand nombre, on aura une liste déroulante.

Sinon, il y a le Ctrl + Page Up et page Down pour se déplacer assez rapidement. Mais, bon, cela dépend du nombre d'onglets.

Ou encore ce fichier à tester.

 

Pièces jointes

• Liste_Onglets.xlsm

  28.2 KB · Affichages: 54

Dernière édition: 18 Avril 2015

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 18 Avril 2015

• #7

Re : choix onglet

salut

un exemple avec un Usf (Modal à false pour l'avoir sur toutes les feuilles).

 

Pièces jointes

• Aller à (Usf).xlsm

  25.3 KB · Affichages: 56

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 19 Avril 2015

• #8

Re : choix onglet

Re

Merci Si.. 🙂 pour ce fichier, mais cela serait mieux qu'il soit développer à l'ouverture.

Sinon, un autre code que j'ai eu du mal à trouver mais que je me rappellais que cela existait 😱:

Code:

Sub Liste_feuilles()
   If ActiveWorkbook.Sheets.Count < 17 Then
      Application.CommandBars("Workbook tabs").ShowPopup 500, 200
   Else
      Application.CommandBars("Workbook tabs").Controls("Plus de feuilles...").Execute
   End If
End Sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Avril 2015

• #9

Re : choix onglet

Bonjour à tous

[prosélytisme assumé pour l'emploi de la loupe du forum]

MJ13 à dit:

Sinon, un autre code que j'ai eu du mal à trouver mais que je me rappellais que cela existait 😱:

Code:

Sub Liste_feuilles()
   If ActiveWorkbook.Sheets.Count < 17 Then
      Application.CommandBars("Workbook tabs").ShowPopup 500, 200
   Else
      Application.CommandBars("Workbook tabs").Controls("Plus de feuilles...").Execute
   End If
End Sub

Cliquez pour agrandir...

Et pourtant cela dormait tranquillement dans les archives du forum
Par exemple dans ce fil, choisi totalement pas au hasard 😉
https://www.excel-downloads.com/thr...te-de-toutes-les-feuilles-du-classeur.130310/

NB: On en trouve même trace en 2003, ça nous rajeunit pas 😉

[/prosélytisme assumé pour l'emploi de la loupe du forum]

 

Dernière édition: 19 Avril 2015

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 19 Avril 2015

• #10

Re : choix onglet

Re, Bonjour JM

Et alors, pourquoi, tu ne l'as pas proposé avant 😉. Hein, tu ne t'en rappellais plus 🙂.

Mais j'ai beaucoup cherché dans mon pense bête, sur le net avec les mots popup, commandbars, liste feuille mais pas de trace de ton post 😕.

Mais ne t'inquiète pas, je vais le rajouter dans mon pense bête 🙂.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Avril 2015

• #11

Re : choix onglet

Bonjour MJ13

MJ13
je ne m'adressais pas à toi en particulier 😉
(relis mon précédent message après son édition 😉)

EDITION: Bonjour Si...
Très jolie , ton extrusion 😉

 

Dernière édition: 19 Avril 2015

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 19 Avril 2015

• #12

Re : choix onglet

re

MJ13 à dit:

Re
Merci Si.. 🙂 pour ce fichier, mais cela serait mieux qu'il soit développer à l'ouverture.

Cliquez pour agrandir...

il suffit d'ajouter une instrusion (n'est-ce pas Staple 😉)

VB:

Private Sub UserForm_Initialize()
  Dim n As Byte
  For n = 1 To Sheets.Count: Cf.AddItem Sheets(n).Name: Next
  Cf.DropDown   '<----------------------------------------------- celle là
End Sub

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 19 Avril 2015

• #13

Re : choix onglet

Bonjour @ tous,
un petit essai si ça marche 🙂


@ + +

 

Pièces jointes

• A10.xlsm

  14.1 KB · Affichages: 66

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Avril 2015

• #14

Re : choix onglet

Bonjour à tous,

R@chid je n'ai pas du tout compris comment tu as pu construire le lien hypertexte sur la forme.

Perso je mettrais un lien hypertexte sur une cellule (B1), voir le fichier joint.

A+

 

Pièces jointes

• A10(1).xlsm

  12.8 KB · Affichages: 35

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Avril 2015

• #15

Re : choix onglet

Re,

job75 à dit:

R@chid je n'ai pas du tout compris comment tu as pu construire le lien hypertexte sur la forme.

Cliquez pour agrandir...

OK j'ai compris comment tu as fait :

- définir d'abord le nom "Aller" par =Base!A1

- créer le lien hypertexte sur le nom défini "Aller"

- modifier le nom "Aller" par =INDIRECT("'"&Base!$A$1&"'!A1")

A+

 

Vote positif 0 Vote négatif