Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Feuilles reliées à un sommaire par liens hypertextes

Feuilles reliées à un sommaire par liens hypertextes

5 réponses
Avatar
Ronano
J'ai Excel 2000 et je suis vite débordé quand je créé 5 ou 10 feuilles:
tous ces onglets, çà n'est vraiment pas pratique. Aussi, je créé
parfois une feulle "SOMMAIRE" qui recense toutes les autres feuilles,
avec un lien hypertexte pour chaque feuille. Et réciproquement, la
cellule A1 de chaque feuille contient un lien hypertexte "SOMMAIRE".

Existe-il une macro qui permette de faire çà plus rapidement ?

--
Ronano
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
Jean LANNELUCQ
Un petit utilitaire de grande qualité te permet de faire cela
automatiquement, ne t'en prive surtout pas. Tu peux le télécharger à
l'adresse suivante : http://j-walk.com/ss/pup/pup5

Jean

In article ,
says...
J'ai Excel 2000 et je suis vite débordé quand je créé 5 ou 10 feu illes:
tous ces onglets, çà n'est vraiment pas pratique. Aussi, je créé
parfois une feulle "SOMMAIRE" qui recense toutes les autres feuilles,
avec un lien hypertexte pour chaque feuille. Et réciproquement, la
cellule A1 de chaque feuille contient un lien hypertexte "SOMMAIRE".

Existe-il une macro qui permette de faire çà plus rapidement ?




Avatar
Gaetan Mourmant
Bonjour,

Il y a toujours le clic droit sur les boutons de déplacement entre les
feuilles pour faire apparaître plus de feuilles.

Sinon :
http://perso.wanadoo.fr/frederic.sigonneau/code/Feuilles/CreerSommaireFeuilles.txt

Bon courage.

--
Gaetan Mourmant
www.polykromy.com
=> Formation sur les fonctions avancées d'Excel :
www.polykromy.com/cd/bonus_cd.html

"Ronano" wrote in message
news:
J'ai Excel 2000 et je suis vite débordé quand je créé 5 ou 10 feuilles:
tous ces onglets, çà n'est vraiment pas pratique. Aussi, je créé
parfois une feulle "SOMMAIRE" qui recense toutes les autres feuilles,
avec un lien hypertexte pour chaque feuille. Et réciproquement, la
cellule A1 de chaque feuille contient un lien hypertexte "SOMMAIRE".

Existe-il une macro qui permette de faire çà plus rapidement ?

--
Ronano



Avatar
Gaetan Mourmant
Après test, il semblerait que des noms de feuilles avec espaces ne
fonctionnent pas pour le lien hypertexte.

Voici une proposition de changement :

Sub ListFeuil()
'ChrisV, mpfe
Application.ScreenUpdating = False
Dim nom_lien As String
Set nSht = Sheets.Add(Before:=Sheets(1))
On Error GoTo GesErr
DebProc:
nSht.Name = "Sommaire"
[A1] = "Liste des onglets du classeur"
With Selection.Font
.Bold = True
.Size = 12
End With
For i = 2 To Sheets.Count
nSht.Cells(i, 1).Value = Sheets(i).Name
If InStr(Sheets(i).Name, " ") <> 0 Then nom_lien = "'" &
Sheets(i).Name & "'" Else nom_lien = Sheets(i).Name
With Worksheets(nSht.Name)
ActiveSheet.Hyperlinks.Add Anchor:=.Cells(i, 2), _
Address:="", SubAddress:=nom_lien & "!A1", _
TextToDisplay:="Lien vers " & Sheets(i).Name
End With
Next i
With Rows("1:1")
.RowHeight = 40
.VerticalAlignment = xlCenter
End With
[E2].Activate
ActiveWindow.DisplayGridlines = False
Exit Sub
GesErr:
Application.DisplayAlerts = False
Sheets("Sommaire").Delete
Application.DisplayAlerts = True
GoTo DebProc
End Sub

Bon courage.

--
Gaetan Mourmant
www.polykromy.com
=> Formation sur les fonctions avancées d'Excel :
www.polykromy.com/cd/bonus_cd.html

"Gaetan Mourmant" wrote in message
news:T7Mxc.718259$
Bonjour,

Il y a toujours le clic droit sur les boutons de déplacement entre les
feuilles pour faire apparaître plus de feuilles.

Sinon :

http://perso.wanadoo.fr/frederic.sigonneau/code/Feuilles/CreerSommaireFeuilles.txt


Bon courage.

--
Gaetan Mourmant
www.polykromy.com
=> Formation sur les fonctions avancées d'Excel :
www.polykromy.com/cd/bonus_cd.html

"Ronano" wrote in message
news:
J'ai Excel 2000 et je suis vite débordé quand je créé 5 ou 10 feuilles:
tous ces onglets, çà n'est vraiment pas pratique. Aussi, je créé
parfois une feulle "SOMMAIRE" qui recense toutes les autres feuilles,
avec un lien hypertexte pour chaque feuille. Et réciproquement, la
cellule A1 de chaque feuille contient un lien hypertexte "SOMMAIRE".

Existe-il une macro qui permette de faire çà plus rapidement ?

--
Ronano







Avatar
Daniel.j
Salut Gaetan,
Il faut faire comme cela:
http://dj.joss.free.fr/faq.htm#hyperlienfeuille
Comment ignorer les espaces pour transformer les noms de feuilles en hyperliens ?


--
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm


"Gaetan Mourmant" a écrit dans le message de news:
fnMxc.721016$
| Après test, il semblerait que des noms de feuilles avec espaces ne
| fonctionnent pas pour le lien hypertexte.
|
| Voici une proposition de changement :
|
| Sub ListFeuil()
| 'ChrisV, mpfe
| Application.ScreenUpdating = False
| Dim nom_lien As String
| Set nSht = Sheets.Add(Before:=Sheets(1))
| On Error GoTo GesErr
| DebProc:
| nSht.Name = "Sommaire"
| [A1] = "Liste des onglets du classeur"
| With Selection.Font
| .Bold = True
| .Size = 12
| End With
| For i = 2 To Sheets.Count
| nSht.Cells(i, 1).Value = Sheets(i).Name
| If InStr(Sheets(i).Name, " ") <> 0 Then nom_lien = "'" &
| Sheets(i).Name & "'" Else nom_lien = Sheets(i).Name
| With Worksheets(nSht.Name)
| ActiveSheet.Hyperlinks.Add Anchor:=.Cells(i, 2), _
| Address:="", SubAddress:=nom_lien & "!A1", _
| TextToDisplay:="Lien vers " & Sheets(i).Name
| End With
| Next i
| With Rows("1:1")
| .RowHeight = 40
| .VerticalAlignment = xlCenter
| End With
| [E2].Activate
| ActiveWindow.DisplayGridlines = False
| Exit Sub
| GesErr:
| Application.DisplayAlerts = False
| Sheets("Sommaire").Delete
| Application.DisplayAlerts = True
| GoTo DebProc
| End Sub
|
| Bon courage.
|
| --
| Gaetan Mourmant
| www.polykromy.com
| => Formation sur les fonctions avancées d'Excel :
| www.polykromy.com/cd/bonus_cd.html
|
| "Gaetan Mourmant" wrote in message
| news:T7Mxc.718259$
| > Bonjour,
| >
| > Il y a toujours le clic droit sur les boutons de déplacement entre les
| > feuilles pour faire apparaître plus de feuilles.
| >
| > Sinon :
| >
| http://perso.wanadoo.fr/frederic.sigonneau/code/Feuilles/CreerSommaireFeuilles.txt
| >
| > Bon courage.
| >
| > --
| > Gaetan Mourmant
| > www.polykromy.com
| > => Formation sur les fonctions avancées d'Excel :
| > www.polykromy.com/cd/bonus_cd.html
| >
| > "Ronano" wrote in message
| > news:
| > > J'ai Excel 2000 et je suis vite débordé quand je créé 5 ou 10 feuilles:
| > > tous ces onglets, çà n'est vraiment pas pratique. Aussi, je créé
| > > parfois une feulle "SOMMAIRE" qui recense toutes les autres feuilles,
| > > avec un lien hypertexte pour chaque feuille. Et réciproquement, la
| > > cellule A1 de chaque feuille contient un lien hypertexte "SOMMAIRE".
| > >
| > > Existe-il une macro qui permette de faire çà plus rapidement ?
| > >
| > > --
| > > Ronano
| > >
| >
| >
|
|
Avatar
Gaetan Mourmant
Oui, tu as raison, c'est plus simple et sur comme ca.

Au passage, j'ai essayé le lien que tu m"as fourni, mais sans réussir à y
parvenir (je suis ensuite passé par le cache de google). La page s'arrête de
se charger à la réponse : "Comment faire des calculs avec les heures
négatives ?"
Est-ce normal ou est-ce seulement mon navigateur ?

--
Gaetan Mourmant
www.polykromy.com
=> Formation sur les fonctions avancées d'Excel :
www.polykromy.com/cd/bonus_cd.html
=> Formation sur Excel-VBA.
www.polykromy.com/vba
"Daniel.j" wrote in message
news:
Salut Gaetan,
Il faut faire comme cela:
http://dj.joss.free.fr/faq.htm#hyperlienfeuille
Comment ignorer les espaces pour transformer les noms de feuilles en
hyperliens ?



--
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm


"Gaetan Mourmant" a écrit dans le message de news:
fnMxc.721016$
| Après test, il semblerait que des noms de feuilles avec espaces ne
| fonctionnent pas pour le lien hypertexte.
|
| Voici une proposition de changement :
|
| Sub ListFeuil()
| 'ChrisV, mpfe
| Application.ScreenUpdating = False
| Dim nom_lien As String
| Set nSht = Sheets.Add(Before:=Sheets(1))
| On Error GoTo GesErr
| DebProc:
| nSht.Name = "Sommaire"
| [A1] = "Liste des onglets du classeur"
| With Selection.Font
| .Bold = True
| .Size = 12
| End With
| For i = 2 To Sheets.Count
| nSht.Cells(i, 1).Value = Sheets(i).Name
| If InStr(Sheets(i).Name, " ") <> 0 Then nom_lien = "'" &
| Sheets(i).Name & "'" Else nom_lien = Sheets(i).Name
| With Worksheets(nSht.Name)
| ActiveSheet.Hyperlinks.Add Anchor:=.Cells(i, 2), _
| Address:="", SubAddress:=nom_lien & "!A1", _
| TextToDisplay:="Lien vers " & Sheets(i).Name
| End With
| Next i
| With Rows("1:1")
| .RowHeight = 40
| .VerticalAlignment = xlCenter
| End With
| [E2].Activate
| ActiveWindow.DisplayGridlines = False
| Exit Sub
| GesErr:
| Application.DisplayAlerts = False
| Sheets("Sommaire").Delete
| Application.DisplayAlerts = True
| GoTo DebProc
| End Sub
|
| Bon courage.
|
| --
| Gaetan Mourmant
| www.polykromy.com
| => Formation sur les fonctions avancées d'Excel :
| www.polykromy.com/cd/bonus_cd.html
|
| "Gaetan Mourmant" wrote in message
| news:T7Mxc.718259$
| > Bonjour,
| >
| > Il y a toujours le clic droit sur les boutons de déplacement entre les
| > feuilles pour faire apparaître plus de feuilles.
| >
| > Sinon :
| >
|
http://perso.wanadoo.fr/frederic.sigonneau/code/Feuilles/CreerSommaireFeuilles.txt

| >
| > Bon courage.
| >
| > --
| > Gaetan Mourmant
| > www.polykromy.com
| > => Formation sur les fonctions avancées d'Excel :
| > www.polykromy.com/cd/bonus_cd.html
| >
| > "Ronano" wrote in message
| > news:
| > > J'ai Excel 2000 et je suis vite débordé quand je créé 5 ou 10
feuilles:

| > > tous ces onglets, çà n'est vraiment pas pratique. Aussi, je créé
| > > parfois une feulle "SOMMAIRE" qui recense toutes les autres
feuilles,

| > > avec un lien hypertexte pour chaque feuille. Et réciproquement, la
| > > cellule A1 de chaque feuille contient un lien hypertexte "SOMMAIRE".
| > >
| > > Existe-il une macro qui permette de faire çà plus rapidement ?
| > >
| > > --
| > > Ronano
| > >
| >
| >
|
|