J'ai un classeur Excell avec 31 feuille, et j'aimerais ajouter une 32 ieme
feuille sur laquelle je mettrais des boutons qui permettrais de renvoyer
directement à une des 31 autre feuille, est ce possible? si oui comment
dois-je m'y prendre?
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
ThierryP
Bonjour hebus30,
Barre d'outils Formulaire-> Bouton Avec ceci, à répéter 31 fois, de bouton1 à bouton31, en remplaçant Feuil1 par Feuil2 etc... Sub Bouton1_QuandClic() Sheets("Feuil1").Select End Sub A coller dans un module standard
Sur chaque feuille, un bouton "Retour" avec une proc : sub retour() sheets("Feuil32").select end sub A coller dan un module standard
@+ thierryp
J'ai un classeur Excell avec 31 feuille, et j'aimerais ajouter une 32 ieme feuille sur laquelle je mettrais des boutons qui permettrais de renvoyer directement à une des 31 autre feuille, est ce possible? si oui comment dois-je m'y prendre?
-- @+ thierryp
Bonjour hebus30,
Barre d'outils Formulaire-> Bouton
Avec ceci, à répéter 31 fois, de bouton1 à bouton31, en remplaçant
Feuil1 par Feuil2 etc...
Sub Bouton1_QuandClic()
Sheets("Feuil1").Select
End Sub
A coller dans un module standard
Sur chaque feuille, un bouton "Retour"
avec une proc :
sub retour()
sheets("Feuil32").select
end sub
A coller dan un module standard
@+ thierryp
J'ai un classeur Excell avec 31 feuille, et j'aimerais ajouter une 32 ieme
feuille sur laquelle je mettrais des boutons qui permettrais de renvoyer
directement à une des 31 autre feuille, est ce possible? si oui comment
dois-je m'y prendre?
Barre d'outils Formulaire-> Bouton Avec ceci, à répéter 31 fois, de bouton1 à bouton31, en remplaçant Feuil1 par Feuil2 etc... Sub Bouton1_QuandClic() Sheets("Feuil1").Select End Sub A coller dans un module standard
Sur chaque feuille, un bouton "Retour" avec une proc : sub retour() sheets("Feuil32").select end sub A coller dan un module standard
@+ thierryp
J'ai un classeur Excell avec 31 feuille, et j'aimerais ajouter une 32 ieme feuille sur laquelle je mettrais des boutons qui permettrais de renvoyer directement à une des 31 autre feuille, est ce possible? si oui comment dois-je m'y prendre?
-- @+ thierryp
ChrisV
Bonjour Hebus30,
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 Application.ScreenUpdating = True End Sub
ChrisV
"hebus30" a écrit dans le message de news:
J'ai un classeur Excell avec 31 feuille, et j'aimerais ajouter une 32 ieme feuille sur laquelle je mettrais des boutons qui permettrais de renvoyer directement à une des 31 autre feuille, est ce possible? si oui comment dois-je m'y prendre?
Bonjour Hebus30,
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
Application.ScreenUpdating = True
End Sub
ChrisV
"hebus30" <hebus30@discussions.microsoft.com> a écrit dans le message de
news: 7EE84E58-8A26-4B4C-9DBB-81A7865945E8@microsoft.com...
J'ai un classeur Excell avec 31 feuille, et j'aimerais ajouter une 32 ieme
feuille sur laquelle je mettrais des boutons qui permettrais de renvoyer
directement à une des 31 autre feuille, est ce possible? si oui comment
dois-je m'y prendre?
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 Application.ScreenUpdating = True End Sub
ChrisV
"hebus30" a écrit dans le message de news:
J'ai un classeur Excell avec 31 feuille, et j'aimerais ajouter une 32 ieme feuille sur laquelle je mettrais des boutons qui permettrais de renvoyer directement à une des 31 autre feuille, est ce possible? si oui comment dois-je m'y prendre?
Pounet95
Bonjour, Il existe une liste déroulante qui permet ceci : dans la barre d'affichage des onglets, à gauche, tout à gauche sur le symbole représentant une diode ( flèche avec barre verticale au bout ) et un clic droit dessus, non ???? -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ Conseillé : http://dj.joss.free.fr/netiquet.htm (charte, nétiquette, conseils, abréviations, souriettes...) http://www.excelabo.net/mpfe/connexion.php (connexion, conseils...)
"hebus30" a écrit dans le message de news:
J'ai un classeur Excell avec 31 feuille, et j'aimerais ajouter une 32 ieme feuille sur laquelle je mettrais des boutons qui permettrais de renvoyer directement à une des 31 autre feuille, est ce possible? si oui comment dois-je m'y prendre?
Bonjour,
Il existe une liste déroulante qui permet ceci :
dans la barre d'affichage des onglets, à gauche, tout à gauche sur le
symbole représentant une diode
( flèche avec barre verticale au bout ) et un clic droit dessus, non ????
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)
"hebus30" <hebus30@discussions.microsoft.com> a écrit dans le message de
news: 7EE84E58-8A26-4B4C-9DBB-81A7865945E8@microsoft.com...
J'ai un classeur Excell avec 31 feuille, et j'aimerais ajouter une 32 ieme
feuille sur laquelle je mettrais des boutons qui permettrais de renvoyer
directement à une des 31 autre feuille, est ce possible? si oui comment
dois-je m'y prendre?
Bonjour, Il existe une liste déroulante qui permet ceci : dans la barre d'affichage des onglets, à gauche, tout à gauche sur le symbole représentant une diode ( flèche avec barre verticale au bout ) et un clic droit dessus, non ???? -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ Conseillé : http://dj.joss.free.fr/netiquet.htm (charte, nétiquette, conseils, abréviations, souriettes...) http://www.excelabo.net/mpfe/connexion.php (connexion, conseils...)
"hebus30" a écrit dans le message de news:
J'ai un classeur Excell avec 31 feuille, et j'aimerais ajouter une 32 ieme feuille sur laquelle je mettrais des boutons qui permettrais de renvoyer directement à une des 31 autre feuille, est ce possible? si oui comment dois-je m'y prendre?
hebus30
Merci beaucoup ThierryP, ca marche tres bien et ca simplifie la navigation dans le classeur, encor une question, si je veux imprimer une page sur la quelle il y a un bouton, mais que je ne veux pas que le bouton apparaisse lors de l'impression, c'est possible?si oui, comment? d'avance merci
Bonjour hebus30,
Barre d'outils Formulaire-> Bouton Avec ceci, à répéter 31 fois, de bouton1 à bouton31, en remplaçant Feuil1 par Feuil2 etc... Sub Bouton1_QuandClic() Sheets("Feuil1").Select End Sub A coller dans un module standard
Sur chaque feuille, un bouton "Retour" avec une proc : sub retour() sheets("Feuil32").select end sub A coller dan un module standard
@+ thierryp
J'ai un classeur Excell avec 31 feuille, et j'aimerais ajouter une 32 ieme feuille sur laquelle je mettrais des boutons qui permettrais de renvoyer directement à une des 31 autre feuille, est ce possible? si oui comment dois-je m'y prendre?
-- @+ thierryp
Merci beaucoup ThierryP, ca marche tres bien et ca simplifie la navigation
dans le classeur, encor une question, si je veux imprimer une page sur la
quelle il y a un bouton, mais que je ne veux pas que le bouton apparaisse
lors de l'impression, c'est possible?si oui, comment?
d'avance merci
Bonjour hebus30,
Barre d'outils Formulaire-> Bouton
Avec ceci, à répéter 31 fois, de bouton1 à bouton31, en remplaçant
Feuil1 par Feuil2 etc...
Sub Bouton1_QuandClic()
Sheets("Feuil1").Select
End Sub
A coller dans un module standard
Sur chaque feuille, un bouton "Retour"
avec une proc :
sub retour()
sheets("Feuil32").select
end sub
A coller dan un module standard
@+ thierryp
J'ai un classeur Excell avec 31 feuille, et j'aimerais ajouter une 32 ieme
feuille sur laquelle je mettrais des boutons qui permettrais de renvoyer
directement à une des 31 autre feuille, est ce possible? si oui comment
dois-je m'y prendre?
Merci beaucoup ThierryP, ca marche tres bien et ca simplifie la navigation dans le classeur, encor une question, si je veux imprimer une page sur la quelle il y a un bouton, mais que je ne veux pas que le bouton apparaisse lors de l'impression, c'est possible?si oui, comment? d'avance merci
Bonjour hebus30,
Barre d'outils Formulaire-> Bouton Avec ceci, à répéter 31 fois, de bouton1 à bouton31, en remplaçant Feuil1 par Feuil2 etc... Sub Bouton1_QuandClic() Sheets("Feuil1").Select End Sub A coller dans un module standard
Sur chaque feuille, un bouton "Retour" avec une proc : sub retour() sheets("Feuil32").select end sub A coller dan un module standard
@+ thierryp
J'ai un classeur Excell avec 31 feuille, et j'aimerais ajouter une 32 ieme feuille sur laquelle je mettrais des boutons qui permettrais de renvoyer directement à une des 31 autre feuille, est ce possible? si oui comment dois-je m'y prendre?
-- @+ thierryp
hebus30
merci beaucoup, ca marche aussi tres bien et c'est plus rapide, du coup j'ai fait un mix de la solution de ThierryP et la tienne, j'ai rajouté un bouton "menu" sur chaque feuille afin de revenir au sommair que ta solution a créer, mai je voudrais que se bouton ne soit pas imprimer quand j'imprime une feuille comment puis-je faire?
Bonjour Hebus30,
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 Application.ScreenUpdating = True End Sub
ChrisV
"hebus30" a écrit dans le message de news:
J'ai un classeur Excell avec 31 feuille, et j'aimerais ajouter une 32 ieme feuille sur laquelle je mettrais des boutons qui permettrais de renvoyer directement à une des 31 autre feuille, est ce possible? si oui comment dois-je m'y prendre?
merci beaucoup, ca marche aussi tres bien et c'est plus rapide, du coup j'ai
fait un mix de la solution de ThierryP et la tienne, j'ai rajouté un bouton
"menu" sur chaque feuille afin de revenir au sommair que ta solution a créer,
mai je voudrais que se bouton ne soit pas imprimer quand j'imprime une
feuille comment puis-je faire?
Bonjour Hebus30,
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
Application.ScreenUpdating = True
End Sub
ChrisV
"hebus30" <hebus30@discussions.microsoft.com> a écrit dans le message de
news: 7EE84E58-8A26-4B4C-9DBB-81A7865945E8@microsoft.com...
J'ai un classeur Excell avec 31 feuille, et j'aimerais ajouter une 32 ieme
feuille sur laquelle je mettrais des boutons qui permettrais de renvoyer
directement à une des 31 autre feuille, est ce possible? si oui comment
dois-je m'y prendre?
merci beaucoup, ca marche aussi tres bien et c'est plus rapide, du coup j'ai fait un mix de la solution de ThierryP et la tienne, j'ai rajouté un bouton "menu" sur chaque feuille afin de revenir au sommair que ta solution a créer, mai je voudrais que se bouton ne soit pas imprimer quand j'imprime une feuille comment puis-je faire?
Bonjour Hebus30,
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 Application.ScreenUpdating = True End Sub
ChrisV
"hebus30" a écrit dans le message de news:
J'ai un classeur Excell avec 31 feuille, et j'aimerais ajouter une 32 ieme feuille sur laquelle je mettrais des boutons qui permettrais de renvoyer directement à une des 31 autre feuille, est ce possible? si oui comment dois-je m'y prendre?
ThierryP
Content d'avoir fait un heureux... Pour ne pas imprimer le bouton, click droit dessus->Propriétés->PrintObject : mettre à false
@+ thierryp
Merci beaucoup ThierryP, ca marche tres bien et ca simplifie la navigation dans le classeur, encor une question, si je veux imprimer une page sur la quelle il y a un bouton, mais que je ne veux pas que le bouton apparaisse lors de l'impression, c'est possible?si oui, comment? d'avance merci
Bonjour hebus30,
Barre d'outils Formulaire-> Bouton Avec ceci, à répéter 31 fois, de bouton1 à bouton31, en remplaçant Feuil1 par Feuil2 etc... Sub Bouton1_QuandClic() Sheets("Feuil1").Select End Sub A coller dans un module standard
Sur chaque feuille, un bouton "Retour" avec une proc : sub retour() sheets("Feuil32").select end sub A coller dan un module standard
@+ thierryp
J'ai un classeur Excell avec 31 feuille, et j'aimerais ajouter une 32 ieme feuille sur laquelle je mettrais des boutons qui permettrais de renvoyer directement à une des 31 autre feuille, est ce possible? si oui comment dois-je m'y prendre?
-- @+ thierryp
-- @+ thierryp
Content d'avoir fait un heureux...
Pour ne pas imprimer le bouton, click droit
dessus->Propriétés->PrintObject : mettre à false
@+ thierryp
Merci beaucoup ThierryP, ca marche tres bien et ca simplifie la navigation
dans le classeur, encor une question, si je veux imprimer une page sur la
quelle il y a un bouton, mais que je ne veux pas que le bouton apparaisse
lors de l'impression, c'est possible?si oui, comment?
d'avance merci
Bonjour hebus30,
Barre d'outils Formulaire-> Bouton
Avec ceci, à répéter 31 fois, de bouton1 à bouton31, en remplaçant
Feuil1 par Feuil2 etc...
Sub Bouton1_QuandClic()
Sheets("Feuil1").Select
End Sub
A coller dans un module standard
Sur chaque feuille, un bouton "Retour"
avec une proc :
sub retour()
sheets("Feuil32").select
end sub
A coller dan un module standard
@+ thierryp
J'ai un classeur Excell avec 31 feuille, et j'aimerais ajouter une 32 ieme
feuille sur laquelle je mettrais des boutons qui permettrais de renvoyer
directement à une des 31 autre feuille, est ce possible? si oui comment
dois-je m'y prendre?
Content d'avoir fait un heureux... Pour ne pas imprimer le bouton, click droit dessus->Propriétés->PrintObject : mettre à false
@+ thierryp
Merci beaucoup ThierryP, ca marche tres bien et ca simplifie la navigation dans le classeur, encor une question, si je veux imprimer une page sur la quelle il y a un bouton, mais que je ne veux pas que le bouton apparaisse lors de l'impression, c'est possible?si oui, comment? d'avance merci
Bonjour hebus30,
Barre d'outils Formulaire-> Bouton Avec ceci, à répéter 31 fois, de bouton1 à bouton31, en remplaçant Feuil1 par Feuil2 etc... Sub Bouton1_QuandClic() Sheets("Feuil1").Select End Sub A coller dans un module standard
Sur chaque feuille, un bouton "Retour" avec une proc : sub retour() sheets("Feuil32").select end sub A coller dan un module standard
@+ thierryp
J'ai un classeur Excell avec 31 feuille, et j'aimerais ajouter une 32 ieme feuille sur laquelle je mettrais des boutons qui permettrais de renvoyer directement à une des 31 autre feuille, est ce possible? si oui comment dois-je m'y prendre?
J'ai un classeur Excell avec 31 feuille, et j'aimerais ajouter une 32 ieme feuille sur laquelle je mettrais des boutons qui permettrais de renvoyer directement à une des 31 autre feuille, est ce possible? si oui comment dois-je m'y prendre?
"hebus30" <hebus30@discussions.microsoft.com> a écrit dans le message de
news: 7EE84E58-8A26-4B4C-9DBB-81A7865945E8@microsoft.com...
J'ai un classeur Excell avec 31 feuille, et j'aimerais ajouter une 32 ieme
feuille sur laquelle je mettrais des boutons qui permettrais de renvoyer
directement à une des 31 autre feuille, est ce possible? si oui comment
dois-je m'y prendre?
J'ai un classeur Excell avec 31 feuille, et j'aimerais ajouter une 32 ieme feuille sur laquelle je mettrais des boutons qui permettrais de renvoyer directement à une des 31 autre feuille, est ce possible? si oui comment dois-je m'y prendre?
