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 Un "sommaire' de feuille...

Un "sommaire' de feuille...

9 réponses
Avatar
STEPHANE-LALUT
Bonjour,

Avec 15 feuilles dans un classeur, cela fini par être fastidieux...
Ne connaîtriez vous pas un moyen de faire un "SOMMAIRE" sur une seizième
feuille. 15 Cellules reprenant l'entête de chaque feuille,,on clique sur la
cellule "X" et ...hop on se retrouve directement sur la feuille "X".

Cela me serait bien utile merci de votre aide.

Stéphane.
Signaler un problème avec ce contenu

9 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
isabelle
bonjour Stéphane,

fait un click droit sur les flèches de déplacement d'onglet au bas à
gauche, ou bien:

Sub Sommaire()
For Each f In Sheets
x = x + 1
Cells(x, 1) = f.Name
ActiveSheet.Hyperlinks.Add Anchor:Îlls(x, 1), Address:="", SubAddress:= _
"" & f.Name & "!A1", TextToDisplay:="" & f.Name & "!A1"
Next
End Sub

isabelle


Bonjour,

Avec 15 feuilles dans un classeur, cela fini par être fastidieux...
Ne connaîtriez vous pas un moyen de faire un "SOMMAIRE" sur une seizième
feuille. 15 Cellules reprenant l'entête de chaque feuille,,on clique sur la
cellule "X" et ...hop on se retrouve directement sur la feuille "X".

Cela me serait bien utile merci de votre aide.

Stéphane.




Avatar
STEPHANE-LALUT
Bonjour et Merci Isabelle,

Mais ou dois-je recopier cette magnifique prose? je n'y connait rien en VBA.

Un petit complément d'information serait le bienvenu...ou alors dit moi la
rubrique que je dois consulter dans l'aide Excel.

Stéphane.




"isabelle" a écrit dans le message de news:
%230gD%
bonjour Stéphane,

fait un click droit sur les flèches de déplacement d'onglet au bas à
gauche, ou bien:

Sub Sommaire()
For Each f In Sheets
x = x + 1
Cells(x, 1) = f.Name
ActiveSheet.Hyperlinks.Add Anchor:Îlls(x, 1), Address:="", SubAddress:=
_
"" & f.Name & "!A1", TextToDisplay:="" & f.Name & "!A1"
Next
End Sub

isabelle


Bonjour,

Avec 15 feuilles dans un classeur, cela fini par être fastidieux...
Ne connaîtriez vous pas un moyen de faire un "SOMMAIRE" sur une seizième
feuille. 15 Cellules reprenant l'entête de chaque feuille,,on clique sur
la cellule "X" et ...hop on se retrouve directement sur la feuille "X".

Cela me serait bien utile merci de votre aide.

Stéphane.




Avatar
isabelle
re bonjour Stéphane,

appuit sur les touches Atl+F11 pour ouvrir la fenêtre visual basic
fait un clic droit sur le projet(ton classeur) dans l'arborescence à
gauche et sélectionne insertion, module
une page blanche sera ouverte dès lors à droite et c'est là que tu colle
la macro. une fois fait tu peut fermer visual basic
à l'enregistrement de ton classeur ce module avec la macro seront saugarder.

isabelle


Bonjour et Merci Isabelle,

Mais ou dois-je recopier cette magnifique prose? je n'y connait rien en VBA.

Un petit complément d'information serait le bienvenu...ou alors dit moi la
rubrique que je dois consulter dans l'aide Excel.

Stéphane.




"isabelle" a écrit dans le message de news:
%230gD%

bonjour Stéphane,

fait un click droit sur les flèches de déplacement d'onglet au bas à
gauche, ou bien:

Sub Sommaire()
For Each f In Sheets
x = x + 1
Cells(x, 1) = f.Name
ActiveSheet.Hyperlinks.Add Anchor:Îlls(x, 1), Address:="", SubAddress:=
_
"" & f.Name & "!A1", TextToDisplay:="" & f.Name & "!A1"
Next
End Sub

isabelle



Bonjour,

Avec 15 feuilles dans un classeur, cela fini par être fastidieux...
Ne connaîtriez vous pas un moyen de faire un "SOMMAIRE" sur une seizième
feuille. 15 Cellules reprenant l'entête de chaque feuille,,on clique sur
la cellule "X" et ...hop on se retrouve directement sur la feuille "X".

Cela me serait bien utile merci de votre aide.

Stéphane.









Avatar
STEPHANE-LALUT
Re merci Isabelle,

J'ai tout fait comme tu as dit...dans ma nouvelle feuille j'ai le "sommaire"
de toute les feuilles de mon classeur (le nom de la feuille et en fin de nom
!A, ex OUIOUI!A), et si je clique dessus j'ai "référence non valide"...

Une idée peut-être...

Stéphane.


"isabelle" a écrit dans le message de news:

re bonjour Stéphane,

appuit sur les touches Atl+F11 pour ouvrir la fenêtre visual basic
fait un clic droit sur le projet(ton classeur) dans l'arborescence à
gauche et sélectionne insertion, module
une page blanche sera ouverte dès lors à droite et c'est là que tu colle
la macro. une fois fait tu peut fermer visual basic
à l'enregistrement de ton classeur ce module avec la macro seront
saugarder.

isabelle


Bonjour et Merci Isabelle,

Mais ou dois-je recopier cette magnifique prose? je n'y connait rien en
VBA.

Un petit complément d'information serait le bienvenu...ou alors dit moi
la rubrique que je dois consulter dans l'aide Excel.

Stéphane.




"isabelle" a écrit dans le message de news:
%230gD%

bonjour Stéphane,

fait un click droit sur les flèches de déplacement d'onglet au bas à
gauche, ou bien:

Sub Sommaire()
For Each f In Sheets
x = x + 1
Cells(x, 1) = f.Name
ActiveSheet.Hyperlinks.Add Anchor:Îlls(x, 1), Address:="", SubAddress:=
_
"" & f.Name & "!A1", TextToDisplay:="" & f.Name & "!A1"
Next
End Sub

isabelle



Bonjour,

Avec 15 feuilles dans un classeur, cela fini par être fastidieux...
Ne connaîtriez vous pas un moyen de faire un "SOMMAIRE" sur une seizième
feuille. 15 Cellules reprenant l'entête de chaque feuille,,on clique sur
la cellule "X" et ...hop on se retrouve directement sur la feuille "X".

Cela me serait bien utile merci de votre aide.

Stéphane.










Avatar
isabelle
c'est sur quel version d'excel ?

isabelle

Re merci Isabelle,

J'ai tout fait comme tu as dit...dans ma nouvelle feuille j'ai le "sommaire"
de toute les feuilles de mon classeur (le nom de la feuille et en fin de nom
!A, ex OUIOUI!A), et si je clique dessus j'ai "référence non valide"...

Une idée peut-être...

Stéphane.


"isabelle" a écrit dans le message de news:


re bonjour Stéphane,

appuit sur les touches Atl+F11 pour ouvrir la fenêtre visual basic
fait un clic droit sur le projet(ton classeur) dans l'arborescence à
gauche et sélectionne insertion, module
une page blanche sera ouverte dès lors à droite et c'est là que tu colle
la macro. une fois fait tu peut fermer visual basic
à l'enregistrement de ton classeur ce module avec la macro seront
saugarder.

isabelle



Bonjour et Merci Isabelle,

Mais ou dois-je recopier cette magnifique prose? je n'y connait rien en
VBA.

Un petit complément d'information serait le bienvenu...ou alors dit moi
la rubrique que je dois consulter dans l'aide Excel.

Stéphane.




"isabelle" a écrit dans le message de news:
%230gD%


bonjour Stéphane,

fait un click droit sur les flèches de déplacement d'onglet au bas à
gauche, ou bien:

Sub Sommaire()
For Each f In Sheets
x = x + 1
Cells(x, 1) = f.Name
ActiveSheet.Hyperlinks.Add Anchor:Îlls(x, 1), Address:="", SubAddress:=
_
"" & f.Name & "!A1", TextToDisplay:="" & f.Name & "!A1"
Next
End Sub

isabelle




Bonjour,

Avec 15 feuilles dans un classeur, cela fini par être fastidieux...
Ne connaîtriez vous pas un moyen de faire un "SOMMAIRE" sur une seizième
feuille. 15 Cellules reprenant l'entête de chaque feuille,,on clique sur
la cellule "X" et ...hop on se retrouve directement sur la feuille "X".

Cela me serait bien utile merci de votre aide.

Stéphane.













Avatar
ChrisV
Bonjour Stéphane,

Sub zaza()
Dim i As Integer
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
On Error Resume Next
Sheets("Sommaire").Delete
Sheets.Add(Before:=Sheets(1)).Name = "Sommaire"
[A1] = "Liste des onglets du classeur"
For i = 2 To Sheets.Count
ActiveSheet.Hyperlinks.Add Anchor:Îlls(i, 1), _
Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", _
TextToDisplay:="Lien vers " & Sheets(i).Name
Next i
End Sub


ChrisV


"STEPHANE-LALUT" a écrit dans le message de
news: 42a084a2$0$166$
Bonjour,

Avec 15 feuilles dans un classeur, cela fini par être fastidieux...
Ne connaîtriez vous pas un moyen de faire un "SOMMAIRE" sur une seizième
feuille. 15 Cellules reprenant l'entête de chaque feuille,,on clique sur
la cellule "X" et ...hop on se retrouve directement sur la feuille "X".

Cela me serait bien utile merci de votre aide.

Stéphane.



Avatar
STEPHANE-LALUT
Excel 2003
Stéphane.

"isabelle" a écrit dans le message de news:

c'est sur quel version d'excel ?

isabelle

Re merci Isabelle,

J'ai tout fait comme tu as dit...dans ma nouvelle feuille j'ai le
"sommaire" de toute les feuilles de mon classeur (le nom de la feuille et
en fin de nom !A, ex OUIOUI!A), et si je clique dessus j'ai "référence
non valide"...

Une idée peut-être...

Stéphane.


"isabelle" a écrit dans le message de news:


re bonjour Stéphane,

appuit sur les touches Atl+F11 pour ouvrir la fenêtre visual basic
fait un clic droit sur le projet(ton classeur) dans l'arborescence à
gauche et sélectionne insertion, module
une page blanche sera ouverte dès lors à droite et c'est là que tu colle
la macro. une fois fait tu peut fermer visual basic
à l'enregistrement de ton classeur ce module avec la macro seront
saugarder.

isabelle



Bonjour et Merci Isabelle,

Mais ou dois-je recopier cette magnifique prose? je n'y connait rien en
VBA.

Un petit complément d'information serait le bienvenu...ou alors dit moi
la rubrique que je dois consulter dans l'aide Excel.

Stéphane.




"isabelle" a écrit dans le message de news:
%230gD%


bonjour Stéphane,

fait un click droit sur les flèches de déplacement d'onglet au bas à
gauche, ou bien:

Sub Sommaire()
For Each f In Sheets
x = x + 1
Cells(x, 1) = f.Name
ActiveSheet.Hyperlinks.Add Anchor:Îlls(x, 1), Address:="",
SubAddress:= _
"" & f.Name & "!A1", TextToDisplay:="" & f.Name & "!A1"
Next
End Sub

isabelle




Bonjour,

Avec 15 feuilles dans un classeur, cela fini par être fastidieux...
Ne connaîtriez vous pas un moyen de faire un "SOMMAIRE" sur une
seizième feuille. 15 Cellules reprenant l'entête de chaque feuille,,on
clique sur la cellule "X" et ...hop on se retrouve directement sur la
feuille "X".

Cela me serait bien utile merci de votre aide.

Stéphane.















Avatar
STEPHANE-LALUT
Bonsoir et MERCI Chris,

La macro fonctionne...et je suis très content.

Merci aussi à Isabelle.

Stéphane.

"ChrisV" a écrit dans le message de news:

Bonjour Stéphane,

Sub zaza()
Dim i As Integer
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
On Error Resume Next
Sheets("Sommaire").Delete
Sheets.Add(Before:=Sheets(1)).Name = "Sommaire"
[A1] = "Liste des onglets du classeur"
For i = 2 To Sheets.Count
ActiveSheet.Hyperlinks.Add Anchor:Îlls(i, 1), _
Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", _
TextToDisplay:="Lien vers " & Sheets(i).Name
Next i
End Sub


ChrisV


"STEPHANE-LALUT" a écrit dans le message
de news: 42a084a2$0$166$
Bonjour,

Avec 15 feuilles dans un classeur, cela fini par être fastidieux...
Ne connaîtriez vous pas un moyen de faire un "SOMMAIRE" sur une seizième
feuille. 15 Cellules reprenant l'entête de chaque feuille,,on clique sur
la cellule "X" et ...hop on se retrouve directement sur la feuille "X".

Cela me serait bien utile merci de votre aide.

Stéphane.







Avatar
Jacquouille
Bonjour
Je ne voudrais pas me mêler de la conversation des grands, mais, au boulot,
j'ai procédé comme suit:
Sur la feuille" récapitulation", j'ai copié l enom de toutes les autres
feuilles, puis j'ai créé un lien hypertexte.
Il ne me reste donc plus qu'à cliquer sur le nom d'un onglet et il s'ouvre.
pour encore améliorer le truc, j'ai sélectionné tous les onglets et j'ai
inscrit en A1 de chaque onglet, le mot "récapitulation" et je lui ai flanqué
un lien toujours hyper-super texte vers la feuille récap. Donc, quand j'ai
fini d'encoder les points sur une feuille, je clique sur A1 et il revient
sur la feuille récap où, comme par hasard, sont les totaux....
Bonne chance.

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"STEPHANE-LALUT" a écrit dans le message de
news: 42a0c8d6$0$171$
Bonsoir et MERCI Chris,

La macro fonctionne...et je suis très content.

Merci aussi à Isabelle.

Stéphane.

"ChrisV" a écrit dans le message de news:

Bonjour Stéphane,

Sub zaza()
Dim i As Integer
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
On Error Resume Next
Sheets("Sommaire").Delete
Sheets.Add(Before:=Sheets(1)).Name = "Sommaire"
[A1] = "Liste des onglets du classeur"
For i = 2 To Sheets.Count
ActiveSheet.Hyperlinks.Add Anchor:Îlls(i, 1), _
Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", _
TextToDisplay:="Lien vers " & Sheets(i).Name
Next i
End Sub


ChrisV


"STEPHANE-LALUT" a écrit dans le message
de news: 42a084a2$0$166$
Bonjour,

Avec 15 feuilles dans un classeur, cela fini par être fastidieux...
Ne connaîtriez vous pas un moyen de faire un "SOMMAIRE" sur une seizième
feuille. 15 Cellules reprenant l'entête de chaque feuille,,on clique sur
la cellule "X" et ...hop on se retrouve directement sur la feuille "X".

Cela me serait bien utile merci de votre aide.

Stéphane.