XL 2016 Cliquer sur cellule pour aller directement sur un onglet

BenEro

XLDnaute Junior
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.
 

Pièces jointes

  • SOP2024_Marche_Course.xls
    46 KB · Affichages: 9

Dranreb

XLDnaute Barbatruc
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

XLDnaute Junior
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.
 

BenEro

XLDnaute Junior
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Supporter XLD
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.
 

Pièces jointes

  • SOP2024_Marche_Course.xls
    46.5 KB · Affichages: 5

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 010
Membres
101 866
dernier inscrit
XFPRO