XL 2016 Cliquer sur cellule pour aller directement sur un onglet

BenEro · 20 Janvier 2021

Bonjour, je suis en train de réaliser un fichier pour comptabiliser un nombre de tours réalisés par l'ensemble des classes d'un établissement scolaire dans le cadre d'une marche solidaire..

J'ai besoin de vos lumières sur plusieurs questions :
1.
Sur la page d'accueil, je voudrais pouvoir cliquer sur la classe concernée "3PM" par exemple et aller directement sur l'onglet de la classe "3PM" et bien sûr pour retourner à l'accueil grâce à un clic sur une cellule "Accueil" depuis l'onglet de la classe "3PM".
Je dois réaliser autant de feuille qu'il y a de classe. Est-ce fastidieux ?

2.Puis,
Je souhaite extraire et afficher sur la page d'accueil les 3 meilleurs valeurs inscrites en V40 dans chaque onglet classe.

3.Enfin,
Je souhaite extraire les 3 meilleurs valeurs de l'ensemble des personnes de l'établissement qui auront participé (V4:V39) sur chaque onglet classe.

Je vous serais très reconnaissant de m'aider dans cette entreprise. Je bidouille avec Excel... mais là, ça me dépasse.

Dranreb · 20 Janvier 2021

Bonsoir.
Pour le 1er point, dans le module ThisWorkbook :

VB:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   On Error Resume Next
   If VarType(Target.Value) = vbString Then Application.Goto Me.Worksheets(Target.Value).[A1]
   End Sub

BenEro · 20 Janvier 2021

Dranreb à dit:
Bonsoir.
Pour le 1er point, dans le module ThisWorkbook :

VB:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next If VarType(Target.Value) = vbString Then Application.Goto Me.Worksheets(Target.Value).[A1] End Sub

Merci pour ta réponse très rapide mais il y a 2 problèmes :
Le 1er est que je suis nul dans ce domaine et que je ne comprends pas tout. Comment vais-je pouvoir l'utiliser pour chacune des onglets que je vais créer car je ne vois pas dans la formule que tu as donnée, le lien qui me permets de cliquer sur 3ème PM et d'arriver sur l'onglet 3ème PM. Mais je te re-dis, je suis nul...
Le 2ème est que si j'ai bien trouvé le chemin pour copier cette formule, j'ai peur d'en supprimer une autre que j'utilise sur les onglets classe et je crains qu'il n'y ait conflit.

Dranreb · 20 Janvier 2021

La procédure, qui doit être mise impérativement dans le module ThisWorkbook, est exécutée quelle que soit la feuille où la cellule est sélectionnée.

BenEro · 20 Janvier 2021

Dranreb à dit:
La procédure, qui doit être mise impérativement dans le module ThisWorkbook, est exécutée quelle que soit la feuille où la cellule est sélectionnée.

C'est justement cela que je ne comprends pas... je veux pouvoir cliquer sur la cellule 3ème PM (A11 de l'onglet Accueil) et arriver sur l'onglet 3ème PM. Avec ta procédure, je ne pense pas que j'y parviendrai. Mais je me trompe sûrement.
Et j'ai déjà une procédure dans thisworkbook qui me permet d'indiquer l'heure lorsque je double-clique sur n'importe quelle cellule. Peut-on les additionner ?

Dranreb · 20 Janvier 2021

Si ce n'est pas une Workbook_SheetSelectionChange oui, sinon il faut marier les deux codes.
La procédure tente d'atteindre la cellule A1 de la feuille dont le nom est porté dans la cellule sélectionnée.
Donc elle va vers cette feuille quelle que soit la feuille active au moment de la sélection.

sylvanu · 20 Janvier 2021

Bonjour BenEro, Dranreb,
Pour le premier point, il est peut être plus simple d'utiliser des liens hypertextes.
Appeler la cellule 3ème PM/A1 par ex Sh3emePM, 2nde TU/A1 Sh2ndeTU et Accueil/A1 Accueil.
En Accueil A11 faire Inserer liens hypertextes, cliquez sur Nom définis Sh3emePM.
Idem pour A13 avec Sh2ndeTU.
Sur les cellules A1 de chaque feuille faire Inserer liens qui pointent vers Accueil. On revient donc sur Accueil en cliquant sur A1 Nom Prénoms.
Voir PJ.

XL 2016 Cliquer sur cellule pour aller directement sur un onglet

BenEro

XLDnaute Junior

Pièces jointes

Dranreb

XLDnaute Barbatruc

BenEro

XLDnaute Junior

Dranreb

XLDnaute Barbatruc

BenEro

XLDnaute Junior

Dranreb

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires