choix onglet

[a10]

bonjour

j'ai un classeur avec beucoup d'onglet (classe par ordre alphabétique)

y a t il un racourci clavier pour retrouver ou aller à l'onglet ?

a+

 

[Modeste]

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?

 

[a10]

Re : choix onglet

bonjour

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

a+

 

[a10]

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+

 

[poilamonnez]

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

@+

 

[MJ13]

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.

 

[Si...]

Re : choix onglet

salut

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

 

[MJ13]

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 :

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

 

[Staple1600]

Re : choix onglet

Bonjour à tous

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

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

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

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]

 

[MJ13]

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 .

 

[Staple1600]

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

 

[Si...]

Re : choix onglet

re

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

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

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

 

[R@chid]

Re : choix onglet

Bonjour @ tous,
un petit essai si ça marche


@ + +

 

[job75]

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+

 

[job75]

Re : choix onglet

Re,

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

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+