Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Lien Alpha vers une feuille dans un classeur

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion apdf
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

apdf

XLDnaute Occasionnel
Bonjours

Je suis a la recherche d'un code VBA pour faire un lien alpha vers les divers onglets du même non
Ci joint mon fichier qui sera plus parlant.

Merci d'avance
 

Pièces jointes

Trier par date Trier par votes
Re : Lien Alpha vers une feuille dans un classeur

Bonjour,

Code: 
Private Sub Worksheet_Activate()
  For i = 2 To Sheets.Count
   nf = Sheets(i).Name
   ActiveSheet.Hyperlinks.Add Anchor:=Cells(9, i + 1), Address:="", SubAddress:="'" & _
      nf & "'" & "!A1", TextToDisplay:=nf
  Next i
End Sub

JB
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Lien Alpha vers une feuille dans un classeur

Bonjours

Je voudrais finaliser mon code que JB ma fait et que je remercie et salut au passage.
Comment je pourrais garder la police de ma ligne "9" alpha qui se trouve sur la page "Accueil" à "16"?
Et j'aimerais faire un lien vers ma page d'accueil à chaque onglet.

Je vous remercie d'avance de votre aide
 
Vote positif 0 Vote négatif
Re : Lien Alpha vers une feuille dans un classeur

Bonjour,


Code: 
Private Sub Worksheet_Activate()
  For i = 2 To Sheets.Count
   nf = Sheets(i).Name
   ActiveSheet.Hyperlinks.Add Anchor:=Cells(9, i + 1), Address:="", SubAddress:="'" & _
      nf & "'" & "!A1", TextToDisplay:=nf
  Next i
  Cells(9, "C").Resize(, 26).Font.Size = 16
End Sub

JB
 
Vote positif 0 Vote négatif
Re : Lien Alpha vers une feuille dans un classeur

re,

OK j'ai trouvé voila le code!

Code: 
Private Sub Worksheet_Activate()
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        Sheets(1).Name & "!A1", TextToDisplay:=Sheets(1).Name

End Su
 
Vote positif 0 Vote négatif
Re : Lien Alpha vers une feuille dans un classeur

Re,

Suite au code de JB qui marche très bien je cherche a faire un petite modif, que les liens alpha "A,B,C, ect.." soit valable uniquement pour les onglet Alpha soit de la feuille2 à 27 avec ce code.

Code: 
Private Sub Worksheet_Activate()
  For i = 2 To Sheets.Count
   nf = Sheets(i).Name
   ActiveSheet.Hyperlinks.Add Anchor:=Cells(9, i + 1), Address:="", SubAddress:="'" & _
      nf & "'" & "!A1", TextToDisplay:=nf
  Next i
  Cells(9, "C").Resize(, 26).Font.Size = 16
End Sub

Je vous remercie d'avance
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
XL 2021 ajouter un lien hypertexte au presse-papier
Réponses
6
Affichages
535
NitroX38X
N
  • Résolu(e)
Microsoft 365 Pointer vers une Ligne/Case selon une sélection
Réponses
10
Affichages
370
Magnio
D
  • Résolu(e)
XL 2016 Classeur en page web
2
Réponses
15
Affichages
638
TooFatBoy
B
  • Résolu(e)
XL 2019 Macro pour copier des cellules d'une feuille de barèmes
Réponses
6
Affichages
319
berru76
B
M
  • Question Question
Microsoft 365 Récupération des plages nommées des fichiers dans un répertoire
Réponses
8
Affichages
365
dysorthographie
D
  • Résolu(e)
XL 2016 Alimenter une combobox sur une feuille de calcul
Réponses
11
Affichages
388
dgil37
D
A
  • Résolu(e)
Microsoft 365 Enregistrer une nouvelle donnée dans un tableau
Réponses
14
Affichages
635
Alain 79
A
  • Question Question
Microsoft 365 Classeur xlsm en partage
Réponses
4
Affichages
321
JJ68
C
  • Résolu(e)
XL 2021 Recherche et affichage d'une valeur dans une colonne
Réponses
13
Affichages
274
Constantin
C
  • Résolu(e)
XL 2021 Code vba pour filtres automatiques sans le nom de l'onglet
Réponses
4
Affichages
198
sylvanu
  • Résolu(e)
XL 2019 Problème de copie de plages non contiguës vers une autre feuille en VBA
Réponses
9
Affichages
449
flc13090
D
  • Résolu(e)
Microsoft 365 récupérer des données d'une feuille excel d'un classeur A pour les incrémenter automatiquement sur le classeur B
Réponses
10
Affichages
451
TooFatBoy
J
  • Question Question
XL 2021 remplissage colonne avec noms composant une équipe selon choix dans menu déroulant
Réponses
14
Affichages
320
JiM08
J
D
  • Question Question
XL 2021 Récap excel toutes versions si possible
Réponses
12
Affichages
352
job75
  • Question Question
XL 2019 Avec l'aide de l'IA j'ai exporter tous les onglets ayant un code, les modules, les USF, etc. Mais*... ?
Réponses
3
Affichages
633
anthoYS
  • Résolu(e)
XL 2021 Mise en place d'une formule pour completer un un tableau par action en fonction d'un nom.
Réponses
5
Affichages
430
Hecatonchire
H
T
  • Question Question
Microsoft 365 Recherche d'un formule
2
Réponses
18
Affichages
527
Tibewan
T
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
525
TooFatBoy
D
  • Question Question
XL 2019 Application.run
Réponses
4
Affichages
481
dadaze
D
N
  • Résolu(e)
Microsoft 365 Lien vers une feuille du classeur
Réponses
2
Affichages
602
Nathan027
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…