J'ai un bout de VBA qui créé la table des matières d'un classeur Excel.
Sur la première feuille je fais recopier sur chaque cellule A1 A2 ... le
contenu de la cellule A1 de chaque feuille suivante.
Je voudrais maintenant faire en sorte que lorsque l'utilisateur clique sur
l'une des cellules de la table des matières, il soit propulsé dans la
feuille correspondante.
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
Oliv'
notMe que je salut a écrit dans OW2%
Bonjour,
J'ai un bout de VBA qui créé la table des matières d'un classeur Excel. Sur la première feuille je fais recopier sur chaque cellule A1 A2 ... le contenu de la cellule A1 de chaque feuille suivante.
Je voudrais maintenant faire en sorte que lorsque l'utilisateur clique sur l'une des cellules de la table des matières, il soit propulsé dans la feuille correspondante.
Comment faire cela ?
MdA !
Essaye avec cela
Sub LstSheetHyperlink() Set newfeuille = ActiveWorkbook.Sheets.Add(Type:=xlWorksheet) For i = 1 To Sheets.Count newfeuille.Cells(i, 1).Value = Sheets(i).Name With Worksheets(newfeuille.Name) ActiveSheet.Hyperlinks.Add Anchor:=.Cells(i, 1), Address:="", SubAddress:= _ Sheets(i).Name & "!A1" End With Next i End Sub
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
notMe <test@ohyeah.zztop> que je salut a écrit dans
OW2%23uPOcFHA.2984@TK2MSFTNGP15.phx.gbl
Bonjour,
J'ai un bout de VBA qui créé la table des matières d'un classeur
Excel. Sur la première feuille je fais recopier sur chaque cellule A1
A2 ... le contenu de la cellule A1 de chaque feuille suivante.
Je voudrais maintenant faire en sorte que lorsque l'utilisateur
clique sur l'une des cellules de la table des matières, il soit
propulsé dans la feuille correspondante.
Comment faire cela ?
MdA !
Essaye avec cela
Sub LstSheetHyperlink()
Set newfeuille = ActiveWorkbook.Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
newfeuille.Cells(i, 1).Value = Sheets(i).Name
With Worksheets(newfeuille.Name)
ActiveSheet.Hyperlinks.Add Anchor:=.Cells(i, 1), Address:="", SubAddress:= _
Sheets(i).Name & "!A1"
End With
Next i
End Sub
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
J'ai un bout de VBA qui créé la table des matières d'un classeur Excel. Sur la première feuille je fais recopier sur chaque cellule A1 A2 ... le contenu de la cellule A1 de chaque feuille suivante.
Je voudrais maintenant faire en sorte que lorsque l'utilisateur clique sur l'une des cellules de la table des matières, il soit propulsé dans la feuille correspondante.
Comment faire cela ?
MdA !
Essaye avec cela
Sub LstSheetHyperlink() Set newfeuille = ActiveWorkbook.Sheets.Add(Type:=xlWorksheet) For i = 1 To Sheets.Count newfeuille.Cells(i, 1).Value = Sheets(i).Name With Worksheets(newfeuille.Name) ActiveSheet.Hyperlinks.Add Anchor:=.Cells(i, 1), Address:="", SubAddress:= _ Sheets(i).Name & "!A1" End With Next i End Sub
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
notMe
Merci, c'est presque parfait il semble ne manquer qu'un petit encodage du lien : les noms des feuilles comportant un espace donnent des liens non fonctionnels. Et pour finir, je voudrais mettre en libellé de lien non pas le nom de la feuille de destination mais le contenu de la cellule a1 de cette feuille de destination (cerise sur le 'gadeau').
Encore merci d'avance ...
-- Bonjour, Cordialement, Frédéric Michoulier Cornhill France - GIE Services Assurances 50 Allée des Dauphins 38330 St Ismier 04 76 52 60 00 "Oliv'" <(supprimerceci) a écrit dans le message de news:
notMe que je salut a écrit dans OW2%
Bonjour,
J'ai un bout de VBA qui créé la table des matières d'un classeur Excel. Sur la première feuille je fais recopier sur chaque cellule A1 A2 ... le contenu de la cellule A1 de chaque feuille suivante.
Je voudrais maintenant faire en sorte que lorsque l'utilisateur clique sur l'une des cellules de la table des matières, il soit propulsé dans la feuille correspondante.
Comment faire cela ?
MdA !
Essaye avec cela
Sub LstSheetHyperlink() Set newfeuille = ActiveWorkbook.Sheets.Add(Type:=xlWorksheet) For i = 1 To Sheets.Count newfeuille.Cells(i, 1).Value = Sheets(i).Name With Worksheets(newfeuille.Name) ActiveSheet.Hyperlinks.Add Anchor:=.Cells(i, 1), Address:="", SubAddress:= _ Sheets(i).Name & "!A1" End With Next i End Sub
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Merci, c'est presque parfait il semble ne manquer qu'un petit encodage du
lien : les noms des feuilles comportant un espace donnent des liens non
fonctionnels.
Et pour finir, je voudrais mettre en libellé de lien non pas le nom de la
feuille de destination mais le contenu de la cellule a1 de cette feuille de
destination (cerise sur le 'gadeau').
Encore merci d'avance ...
--
Bonjour,
Cordialement,
Frédéric Michoulier
Cornhill France - GIE Services Assurances
50 Allée des Dauphins 38330 St Ismier
04 76 52 60 00
"Oliv'" <(supprimerceci)catteau@ricour-assurances.fr> a écrit dans le
message de news: uFaa7UOcFHA.3912@TK2MSFTNGP15.phx.gbl...
notMe <test@ohyeah.zztop> que je salut a écrit dans
OW2%23uPOcFHA.2984@TK2MSFTNGP15.phx.gbl
Bonjour,
J'ai un bout de VBA qui créé la table des matières d'un classeur
Excel. Sur la première feuille je fais recopier sur chaque cellule A1
A2 ... le contenu de la cellule A1 de chaque feuille suivante.
Je voudrais maintenant faire en sorte que lorsque l'utilisateur
clique sur l'une des cellules de la table des matières, il soit
propulsé dans la feuille correspondante.
Comment faire cela ?
MdA !
Essaye avec cela
Sub LstSheetHyperlink()
Set newfeuille = ActiveWorkbook.Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
newfeuille.Cells(i, 1).Value = Sheets(i).Name
With Worksheets(newfeuille.Name)
ActiveSheet.Hyperlinks.Add Anchor:=.Cells(i, 1), Address:="", SubAddress:=
_
Sheets(i).Name & "!A1"
End With
Next i
End Sub
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Merci, c'est presque parfait il semble ne manquer qu'un petit encodage du lien : les noms des feuilles comportant un espace donnent des liens non fonctionnels. Et pour finir, je voudrais mettre en libellé de lien non pas le nom de la feuille de destination mais le contenu de la cellule a1 de cette feuille de destination (cerise sur le 'gadeau').
Encore merci d'avance ...
-- Bonjour, Cordialement, Frédéric Michoulier Cornhill France - GIE Services Assurances 50 Allée des Dauphins 38330 St Ismier 04 76 52 60 00 "Oliv'" <(supprimerceci) a écrit dans le message de news:
notMe que je salut a écrit dans OW2%
Bonjour,
J'ai un bout de VBA qui créé la table des matières d'un classeur Excel. Sur la première feuille je fais recopier sur chaque cellule A1 A2 ... le contenu de la cellule A1 de chaque feuille suivante.
Je voudrais maintenant faire en sorte que lorsque l'utilisateur clique sur l'une des cellules de la table des matières, il soit propulsé dans la feuille correspondante.
Comment faire cela ?
MdA !
Essaye avec cela
Sub LstSheetHyperlink() Set newfeuille = ActiveWorkbook.Sheets.Add(Type:=xlWorksheet) For i = 1 To Sheets.Count newfeuille.Cells(i, 1).Value = Sheets(i).Name With Worksheets(newfeuille.Name) ActiveSheet.Hyperlinks.Add Anchor:=.Cells(i, 1), Address:="", SubAddress:= _ Sheets(i).Name & "!A1" End With Next i End Sub
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Alain CROS
Bonjour.
Sub Sommaire() Dim I& ActiveWorkbook.Worksheets.Add(Sheets(1)).Name = _ "Sommaire" For I = 2& To Sheets.Count With Sheets(1) .Hyperlinks.Add .Cells(I - 1&, 1&), "", "'" & _ Sheets(I).Name & "'!A1", , Sheets(I).[A1].Text End With Next I End Sub
Alain CROS
"notMe" a écrit dans le message de news: OPu# | Merci, c'est presque parfait il semble ne manquer qu'un petit encodage du | lien : les noms des feuilles comportant un espace donnent des liens non | fonctionnels. | Et pour finir, je voudrais mettre en libellé de lien non pas le nom de la | feuille de destination mais le contenu de la cellule a1 de cette feuille de | destination (cerise sur le 'gadeau'). | | Encore merci d'avance ...
Bonjour.
Sub Sommaire()
Dim I&
ActiveWorkbook.Worksheets.Add(Sheets(1)).Name = _
"Sommaire"
For I = 2& To Sheets.Count
With Sheets(1)
.Hyperlinks.Add .Cells(I - 1&, 1&), "", "'" & _
Sheets(I).Name & "'!A1", , Sheets(I).[A1].Text
End With
Next I
End Sub
Alain CROS
"notMe" <test@ohyeah.zztop> a écrit dans le message de news: OPu#ujPcFHA.3712@TK2MSFTNGP09.phx.gbl...
| Merci, c'est presque parfait il semble ne manquer qu'un petit encodage du
| lien : les noms des feuilles comportant un espace donnent des liens non
| fonctionnels.
| Et pour finir, je voudrais mettre en libellé de lien non pas le nom de la
| feuille de destination mais le contenu de la cellule a1 de cette feuille de
| destination (cerise sur le 'gadeau').
|
| Encore merci d'avance ...
Sub Sommaire() Dim I& ActiveWorkbook.Worksheets.Add(Sheets(1)).Name = _ "Sommaire" For I = 2& To Sheets.Count With Sheets(1) .Hyperlinks.Add .Cells(I - 1&, 1&), "", "'" & _ Sheets(I).Name & "'!A1", , Sheets(I).[A1].Text End With Next I End Sub
Alain CROS
"notMe" a écrit dans le message de news: OPu# | Merci, c'est presque parfait il semble ne manquer qu'un petit encodage du | lien : les noms des feuilles comportant un espace donnent des liens non | fonctionnels. | Et pour finir, je voudrais mettre en libellé de lien non pas le nom de la | feuille de destination mais le contenu de la cellule a1 de cette feuille de | destination (cerise sur le 'gadeau'). | | Encore merci d'avance ...
notMe
Merci pour cette ultime amélioration ! "Alain CROS" a écrit dans le message de news: %
Bonjour.
Sub Sommaire() Dim I& ActiveWorkbook.Worksheets.Add(Sheets(1)).Name = _ "Sommaire" For I = 2& To Sheets.Count With Sheets(1) .Hyperlinks.Add .Cells(I - 1&, 1&), "", "'" & _ Sheets(I).Name & "'!A1", , Sheets(I).[A1].Text End With Next I End Sub
Alain CROS
"notMe" a écrit dans le message de news: OPu# | Merci, c'est presque parfait il semble ne manquer qu'un petit encodage du | lien : les noms des feuilles comportant un espace donnent des liens non | fonctionnels. | Et pour finir, je voudrais mettre en libellé de lien non pas le nom de la | feuille de destination mais le contenu de la cellule a1 de cette feuille de | destination (cerise sur le 'gadeau'). | | Encore merci d'avance ...
Merci pour cette ultime amélioration !
"Alain CROS" <Personne@ICI> a écrit dans le message de news:
%23ArflKScFHA.3712@TK2MSFTNGP12.phx.gbl...
Bonjour.
Sub Sommaire()
Dim I&
ActiveWorkbook.Worksheets.Add(Sheets(1)).Name = _
"Sommaire"
For I = 2& To Sheets.Count
With Sheets(1)
.Hyperlinks.Add .Cells(I - 1&, 1&), "", "'" & _
Sheets(I).Name & "'!A1", , Sheets(I).[A1].Text
End With
Next I
End Sub
Alain CROS
"notMe" <test@ohyeah.zztop> a écrit dans le message de news:
OPu#ujPcFHA.3712@TK2MSFTNGP09.phx.gbl...
| Merci, c'est presque parfait il semble ne manquer qu'un petit encodage
du
| lien : les noms des feuilles comportant un espace donnent des liens non
| fonctionnels.
| Et pour finir, je voudrais mettre en libellé de lien non pas le nom de
la
| feuille de destination mais le contenu de la cellule a1 de cette feuille
de
| destination (cerise sur le 'gadeau').
|
| Encore merci d'avance ...
Merci pour cette ultime amélioration ! "Alain CROS" a écrit dans le message de news: %
Bonjour.
Sub Sommaire() Dim I& ActiveWorkbook.Worksheets.Add(Sheets(1)).Name = _ "Sommaire" For I = 2& To Sheets.Count With Sheets(1) .Hyperlinks.Add .Cells(I - 1&, 1&), "", "'" & _ Sheets(I).Name & "'!A1", , Sheets(I).[A1].Text End With Next I End Sub
Alain CROS
"notMe" a écrit dans le message de news: OPu# | Merci, c'est presque parfait il semble ne manquer qu'un petit encodage du | lien : les noms des feuilles comportant un espace donnent des liens non | fonctionnels. | Et pour finir, je voudrais mettre en libellé de lien non pas le nom de la | feuille de destination mais le contenu de la cellule a1 de cette feuille de | destination (cerise sur le 'gadeau'). | | Encore merci d'avance ...
