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

Feuille menu avec liens hypertextes vers les autres feuilles

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion JDO
  • 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
J

JDO

XLDnaute Nouveau
Bonjour,

Je ne connais rien à VBA ... mais j'essaie. J'ai encore un peu de mal mais j'aimerais y arriver.
J'ai acheté un livre. Je trouve une macro qui permettrait de créer une feuille "menu" dans laquelle apparaîtraient en lien hypertexte toutes les feuilles de mon fichier.

Je crois la comprendre mais
1 - Je la lance par un raccourci : est-ce la méthode ? Cela peut-il expliquer une erreur ?
2 - Elle me renvoie une "erreur 13" or je ne vois pas de définition de variable

Merci d'avance de m'aider à trouver la faille mais surtout de m'expliquer.


Sub Liens_Hypertextes()

Application.ScreenUpdating = False

Worksheets("Menu").Select
Columns("B.B").Hyperlinks.Delete
Columns("B.B").ClearContents

Range("B3").Select

For Each Feuille In Worksheets
If Feuille.Name <> "Menu" Then
Emplacement = "'" & Feuille.Name & "'!A1"

Worksheets("Menu").Hyperlinks.Add Anchor:=Selection, Adresse:="", SubAdresse:=Emplacement, TextToDisplay:=Feuille.Name

ActiveCell.Offset(1, 0).Select
End If
Next Feuille
Application.ScreenUpdating = True
End Sub
 
Trier par date Trier par votes
Re : Feuille menu avec liens hypertextes vers les autres feuilles

Bonsoir à tous


Et avec ces modifs ? Cela fonctionne déjà beaucoup mieux, non?
Pour les explications, c'est tout simple: le VBA s'écrit en anglais pas en français 😉
Tu comprendras en trouvant quels changements j'ai fait dans ton code 😉
Code: 
Sub Liens_Hypertextes()
Dim Feuille As Worksheet
Dim Emplacement As String
Application.ScreenUpdating = False
   
Worksheets("Menu").Columns("B:B").ClearContents
Range("B3").Select

For Each Feuille In Worksheets
    If Feuille.Name <> "Menu" Then
        Emplacement ="'" & Feuille.Name & "'!A1"
        Worksheets("Menu").Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Emplacement, TextToDisplay:=Feuille.Name
        ActiveCell.Offset(1, 0).Select
    End If
Next Feuille
Application.ScreenUpdating = True
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Feuille menu avec liens hypertextes vers les autres feuilles

N'aurais-je pas zappé quelque chose de fondamental ?
Je pense à un module à installer avant ou quelque chose comme ça ?
Le fait que la macro corrigée ne fonctionne pas chez moi me ferait penser à ça.
 
Vote positif 0 Vote négatif
Re : Feuille menu avec liens hypertextes vers les autres feuilles

Re

Si elle fonctionne, refais un copier/coller du code VBA, tu verras que cela fonctionne
Je te remets le code corrigé ici
Code: 
Sub Liens_Hypertextes()
Dim Feuille As Worksheet
Dim Emplacement As String
Application.ScreenUpdating = False
   
Worksheets("Menu").Columns("B:B").ClearContents
Worksheets("Menu").Activate
Range("B3").Select

For Each Feuille In Worksheets
    If Feuille.Name <> "Menu" Then
        Emplacement = "'" & Feuille.Name & "'!A1"
        Worksheets("Menu").Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Emplacement, TextToDisplay:=Feuille.Name
        ActiveCell.Offset(1, 0).Select
    End If
Next Feuille
Application.ScreenUpdating = True
End Sub

Une de tes erreurs était d'avoir francisé la syntaxe ci-dessous
Worksheets("Menu").Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Emplacement, TextToDisplay:=Feuille.Name
Cliquez pour agrandir...
en cette syntaxe non fonctionnelle
Worksheets("Menu").Hyperlinks.Add Anchor:=Selection, Adresse:="", SubAdresse:=Emplacement, TextToDisplay:=Feuille.Name
Cliquez pour agrandir...
L'autre était ici:
Worksheets("Menu").Columns("B.B")
Cliquez pour agrandir...
au lieu de
Worksheets("Menu").Columns("B:B")
Cliquez pour agrandir...
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Feuille menu avec liens hypertextes vers les autres feuilles

Ah joli !
C'est plus un problème d'yeux que de raisonnement. Je ne voyais pas.

Oui oui, en copier/coller ça a fonctionné la seconde fois.
Merci encore.

Je ne regrette pas mon inscription !
Je vais me plonger dans le forum et voir ce que je peux apprendre.
 
Vote positif 0 Vote négatif
Re : Feuille menu avec liens hypertextes vers les autres feuilles

Re

Évidemment, pour que ton code fonctionne il faut qu'il existe une feuille nommée Menu dans ton classeur.

Je viens de retester (il vrai sur une version inférieure à Excel 2010) et cela fonctionne.

La preuve en image:
 
Vote positif 0 Vote négatif
Re : Feuille menu avec liens hypertextes vers les autres feuilles

Oui, je l'avais créée. Ça fonctionne parfaitement.

Du coup, je suis allé voir sur le forum comment insérer un hypertexte et j'ai mis un retour au menu sur chaque feuille.
Je cherche maintenant ( sur le forum ) comment créer un bouton sur la feuille pour générer la mise à jour de la macro.

Plus on apprend, plus ça donne envie d'aller plus loin.
 
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

9
  • Question Question
Microsoft 365 Copier Coller les données (cellules) de plusieurs feuilles d'un classeur vers plusieurs autres feuilles d'un classeur
Réponses
5
Affichages
1 K
92lever
9
  • Question Question
XL 2019 sommaire excel avec liens (vba)
Réponses
3
Affichages
1 K
vaninou
D
  • Question Question
Microsoft 365 Modification d'un code VBA
Réponses
8
Affichages
1 K
Hasco
C
  • Question Question
XL 2016 Excel (sommaire + tri des feuilles ) erreur dans mon VBA
Réponses
1
Affichages
1 K
Cattleya97
C
D
  • Résolu(e)
XL 2019 Ventilation de données vers plusieurs feuilles à partir d'une feuille-source
2
Réponses
15
Affichages
5 K
DJISA
D
I
  • Question Question
XL 2013 feuille bilan sou condition avec autres feuilles à créer
Réponses
6
Affichages
1 K
Identifiant
I
  • Question Question
Rajouter une formule a chaque feuille créer
Réponses
4
Affichages
826
maval
B
  • Question Question
Suivi des modifications d'une cellule dans une feuille vers une autres
Réponses
8
Affichages
1 K
bassmart
B
R
  • Question Question
Macro pour fusionner plusierus feuilles avec collage special transposé
Réponses
4
Affichages
1 K
Raphael35
R
M
  • Question Question
Base de donnée excel avec VBA
Réponses
9
Affichages
1 K
cathodique
0
  • Question Question
Créer une feuille récap de plusieurs feuilles contanant chacune un tableau [resolu]
Réponses
6
Affichages
2 K
080glamspurple080
0
  • Question Question
rendre insivible une feuille graphique avec toutes les autres feuilles
Réponses
4
Affichages
630
cathodique
F
  • Question Question
Creer nouveau classeur avec feuilles selectionnees
2
Réponses
17
Affichages
2 K
Francois73
F
A
  • Question Question
VBA Macro tri onglets
Réponses
1
Affichages
2 K
gilbert_RGI
Y
  • Question Question
Copier une feuille vers un autre classeur puis refermer
Réponses
6
Affichages
989
yakin78
Y
C
  • Question Question
mettre en place un message d'erreur dans le cas d'une création de feuille.
Réponses
1
Affichages
1 K
ERIC S
A
  • Question Question
Sélectionner que les feuilles commençant par...
Réponses
8
Affichages
5 K
Pierrot93
J
  • Question Question
Création d'onglets avec lien hypertexte
Réponses
3
Affichages
1 K
jeanlouispaf
J
O
  • Question Question
extraire toutes les donnees des feuilles sauf une
Réponses
4
Affichages
1 K
olive323
O
O
  • Question Question
Problème avec un script de fusion des valeurs de différentes feuilles d'un classeur.
Réponses
2
Affichages
897
ouf2000
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…