j'ai un classeur de travail excel constitué d'une feuille en-tête
récapitulative et de x feuilles correspondant à des fiches matériaux.
J'ai crée une macro automatique qui me permet de remettre à jours ma feuille
en-tête qui contient un tableau résumant le contenu de mes x fiches.
Dans ce tableau, la première colonne contient le nom des fiches (qui est le
nom du matériau) et je voudrais en automatique faire un lien hypertexte vers
la feuille correspondante.
Pour le moment j'ai cela mais le lien hypertexte ne fonctionne pas :
' creation des liens
For i = 3 To n - 1
Cells(i, 2).Hyperlinks.Add , Anchor:=Selection,
Address:="sheets(Cells(i, 2).Value)", ScreenTip:="aller à la feuille",
TextToDisplay:=Cells(i,2).Value
Next i
Auparavant ma macro récupére le nom de la feuille et le met dans ma
cellule
: d'où l'affichage du texte "Cells(i,2).Value" sur mon lien (affichage qui
marche bien).
J'ai tout essayé sur le champ Adress que je veux faire pointer vers la
feuille "Cells(i,2).Value" mais rien n'y fait (même avec un champ Subadress)
je ne maitrise pas VBA et l'aide est assez obscure : je dois faire une
erreur de syntaxe quelque part.
HELP, please !!
Merci
PS : j'ai bien trouvé cela :
http://groups.google.fr/group/microsoft.public.fr.excel/browse_thread/thread/7fb459dee7ed6260/d34d2009bb2ad717?lnk=st&q=macro+lien+hypertexte+vers+feuille+excel&rnum=9&hl=fr#d34d2009bb2ad717
mais je voudrais comprendre comment corriger ma macro ...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JLuc
bobby avait soumis l'idée :
Bonjour,
j'ai un classeur de travail excel constitué d'une feuille en-tête récapitulative et de x feuilles correspondant à des fiches matériaux. J'ai crée une macro automatique qui me permet de remettre à jours ma feuille en-tête qui contient un tableau résumant le contenu de mes x fiches.
Dans ce tableau, la première colonne contient le nom des fiches (qui est le nom du matériau) et je voudrais en automatique faire un lien hypertexte vers la feuille correspondante. Pour le moment j'ai cela mais le lien hypertexte ne fonctionne pas :
' creation des liens For i = 3 To n - 1 Cells(i, 2).Hyperlinks.Add , Anchor:=Selection, Address:="sheets(Cells(i, 2).Value)", ScreenTip:="aller à la feuille", TextToDisplay:Îlls(i,2).Value Next i
Auparavant ma macro récupére le nom de la feuille et le met dans ma cellule : d'où l'affichage du texte "Cells(i,2).Value" sur mon lien (affichage qui marche bien). J'ai tout essayé sur le champ Adress que je veux faire pointer vers la feuille "Cells(i,2).Value" mais rien n'y fait (même avec un champ Subadress)
je ne maitrise pas VBA et l'aide est assez obscure : je dois faire une erreur de syntaxe quelque part. HELP, please !!
Merci
PS : j'ai bien trouvé cela : http://groups.google.fr/group/microsoft.public.fr.excel/browse_thread/thread/7fb459dee7ed6260/d34d2009bb2ad717?lnk=st&q=macro+lien+hypertexte+vers+feuille+excel&rnum=9&hl=fr#d34d2009bb2ad717
mais je voudrais comprendre comment corriger ma macro ...
Si tu sais creer un lien hypertexte directement dans la feuille, refais le en enregistrant une macro. De cette facon tu pourra voir le code ecrit par excel
-- JLuc
bobby avait soumis l'idée :
Bonjour,
j'ai un classeur de travail excel constitué d'une feuille en-tête
récapitulative et de x feuilles correspondant à des fiches matériaux.
J'ai crée une macro automatique qui me permet de remettre à jours ma feuille
en-tête qui contient un tableau résumant le contenu de mes x fiches.
Dans ce tableau, la première colonne contient le nom des fiches (qui est le
nom du matériau) et je voudrais en automatique faire un lien hypertexte vers
la feuille correspondante.
Pour le moment j'ai cela mais le lien hypertexte ne fonctionne pas :
' creation des liens
For i = 3 To n - 1
Cells(i, 2).Hyperlinks.Add , Anchor:=Selection,
Address:="sheets(Cells(i, 2).Value)", ScreenTip:="aller à la feuille",
TextToDisplay:Îlls(i,2).Value
Next i
Auparavant ma macro récupére le nom de la feuille et le met dans ma cellule
: d'où l'affichage du texte "Cells(i,2).Value" sur mon lien (affichage qui
marche bien).
J'ai tout essayé sur le champ Adress que je veux faire pointer vers la
feuille "Cells(i,2).Value" mais rien n'y fait (même avec un champ Subadress)
je ne maitrise pas VBA et l'aide est assez obscure : je dois faire une
erreur de syntaxe quelque part.
HELP, please !!
Merci
PS : j'ai bien trouvé cela :
http://groups.google.fr/group/microsoft.public.fr.excel/browse_thread/thread/7fb459dee7ed6260/d34d2009bb2ad717?lnk=st&q=macro+lien+hypertexte+vers+feuille+excel&rnum=9&hl=fr#d34d2009bb2ad717
mais je voudrais comprendre comment corriger ma macro ...
Si tu sais creer un lien hypertexte directement dans la feuille, refais
le en enregistrant une macro. De cette facon tu pourra voir le code
ecrit par excel
j'ai un classeur de travail excel constitué d'une feuille en-tête récapitulative et de x feuilles correspondant à des fiches matériaux. J'ai crée une macro automatique qui me permet de remettre à jours ma feuille en-tête qui contient un tableau résumant le contenu de mes x fiches.
Dans ce tableau, la première colonne contient le nom des fiches (qui est le nom du matériau) et je voudrais en automatique faire un lien hypertexte vers la feuille correspondante. Pour le moment j'ai cela mais le lien hypertexte ne fonctionne pas :
' creation des liens For i = 3 To n - 1 Cells(i, 2).Hyperlinks.Add , Anchor:=Selection, Address:="sheets(Cells(i, 2).Value)", ScreenTip:="aller à la feuille", TextToDisplay:Îlls(i,2).Value Next i
Auparavant ma macro récupére le nom de la feuille et le met dans ma cellule : d'où l'affichage du texte "Cells(i,2).Value" sur mon lien (affichage qui marche bien). J'ai tout essayé sur le champ Adress que je veux faire pointer vers la feuille "Cells(i,2).Value" mais rien n'y fait (même avec un champ Subadress)
je ne maitrise pas VBA et l'aide est assez obscure : je dois faire une erreur de syntaxe quelque part. HELP, please !!
Merci
PS : j'ai bien trouvé cela : http://groups.google.fr/group/microsoft.public.fr.excel/browse_thread/thread/7fb459dee7ed6260/d34d2009bb2ad717?lnk=st&q=macro+lien+hypertexte+vers+feuille+excel&rnum=9&hl=fr#d34d2009bb2ad717
mais je voudrais comprendre comment corriger ma macro ...
Si tu sais creer un lien hypertexte directement dans la feuille, refais le en enregistrant une macro. De cette facon tu pourra voir le code ecrit par excel
Sub sommaire_hyper_lien() Sheets(1).Select Range("b4").Select For Each i In ActiveWorkbook.Sheets x = i.Name ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & x & "'" & "!A1", TextToDisplay:=x ActiveCell.Offset(1, 0).Select Next i End Sub
Sub sommaire_hyper_lien()
Sheets(1).Select
Range("b4").Select
For Each i In ActiveWorkbook.Sheets
x = i.Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:="'" & x & "'" & "!A1", TextToDisplay:=x
ActiveCell.Offset(1, 0).Select
Next i
End Sub
Sub sommaire_hyper_lien() Sheets(1).Select Range("b4").Select For Each i In ActiveWorkbook.Sheets x = i.Name ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & x & "'" & "!A1", TextToDisplay:=x ActiveCell.Offset(1, 0).Select Next i End Sub
Cordialement JB
bobby
Merci pour la réponse mais j'avais déjà le lien (CF mon PS)
Des idées pour corriger la synthaxe de ma macro (champ address de la fonction hyperlink) ?
pour les nom de feuille contenant un espace il faut mettre des "cotes" avant et après
For i = 3 To n Step -1 Cells(i, 2).Hyperlinks.Add , Anchor:Îlls(i, 2), _ Address:="'" & Cells(i, 2) & "'!A1", ScreenTip:="aller à la feuille", _ TextToDisplay:Îlls(i, 2) Next i
isabelle
Merci pour la réponse mais j'avais déjà le lien (CF mon PS)
Des idées pour corriger la synthaxe de ma macro (champ address de la fonction hyperlink) ?
pour les nom de feuille contenant un espace il faut mettre des "cotes" avant et après
For i = 3 To n Step -1
Cells(i, 2).Hyperlinks.Add , Anchor:Îlls(i, 2), _
Address:="'" & Cells(i, 2) & "'!A1", ScreenTip:="aller à la feuille", _
TextToDisplay:Îlls(i, 2)
Next i
isabelle
Merci pour la réponse mais j'avais déjà le lien (CF mon PS)
Des idées pour corriger la synthaxe de ma macro (champ address de la
fonction hyperlink) ?
pour les nom de feuille contenant un espace il faut mettre des "cotes" avant et après
For i = 3 To n Step -1 Cells(i, 2).Hyperlinks.Add , Anchor:Îlls(i, 2), _ Address:="'" & Cells(i, 2) & "'!A1", ScreenTip:="aller à la feuille", _ TextToDisplay:Îlls(i, 2) Next i
isabelle
Merci pour la réponse mais j'avais déjà le lien (CF mon PS)
Des idées pour corriger la synthaxe de ma macro (champ address de la fonction hyperlink) ?
