J'ai créé un fichier statistique (que je compléterais encore) et pour lequel
j'ai fait plusieurs graphiques et tableaux (notamment par rapport de tableau
croisé dynamique).
Mes interlocuteurs se retrouvent face à une multitude d'onglets.
Je souhaite donc créer un permier onglet Sommaire avec des boutons de
commandes permettant d'aller directement sur l'onglet qui m'intéresse. J'ai
déjà vu ça et c'est pratique en fonction de ce que l'on recherche. De plus
je souhaite mettre sur chaque onglet un bouton de retour sommaire.
Problème : je ne sais pas comment faire ...
J'avais pensé utiliser la fonction liens hypertextes mais les graphiques
n'apparaissent pas dans le choix des onglets ...
Et comment y intégré un tel lien d'ailleurs (pour le retour sommaire).
J'ai essayé de créer des boutons de commande mais je ne sais pas comment les
programmer.
Si quelqu'un accepte de me guider, je l'en remercie sincèrement d'avance.
oui tu as raison, cette barre est inactive, mais la macro (Macro1)se charge tout de même de créer les boutons "Menu" sur chacune des feuilles, non ?
isabelle
Bonsoir,
Je n'ai pas de message d'erreur. En fait, il ne se passe rien sur ces feuilles lorsque j'active le mode création de la barre d'outils Contrôles. Les différentes options (bouton de commande, zone de liste, ...) sont inactives.
Jean-Christophe "isabelle" a écrit dans le message de news: %
bonjour Jean-Christophe,
je ne rencontre pas ce problème, quel que soit le type de feuille, est ce que la macro te donne un message d'erreur ?
isabelle
Re bonjour !
Cela marche en effet et je suis en train de construire mes boutons de commande. Merci pour cette aide. Me reste un souci : je n'arrive pas à installer des boutons sur mes graphiques (issus des tableaux croisés dynamiques). Est-ce normal ? Comment faire ?
Merci encore à tous.
"Jean-Christophe HESDIN" a écrit dans le message de news: 4726d76d$0$21148$
Merci. J'essaie dès que j'ai 5 mn et je vous dis quoi.
"isabelle" a écrit dans le message de news:
bonjour Jean-Christophe,
en supposant qu'il existe une feuille nommé "Menu"
à copier sur un module standard :
Sub Macro1() For Each f In Sheets If f.Name <> "Menu" Then x = x + 1 Sheets(f.Name).Select ActiveSheet.Buttons.Add(0, 0, 80, 20).Select Selection.Caption = "Menu" Selection.OnAction = "zaza" On Error Resume Next Application.Goto Range("A1") Sheets("Menu").Range("A" & x) = f.Name End If Next End Sub
Sub zaza() Sheets("Menu").Select End Sub
à copier sur la page code de la feuille "Menu" :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) x = Range("A65536").End(xlUp).Row Set isect = Application.Intersect(Target, Range("A1:A" & x)) If Not isect Is Nothing Then Sheets(Target.Value).Select End Sub
isabelle
Bonsoir à tous,
J'ai créé un fichier statistique (que je compléterais encore) et pour lequel j'ai fait plusieurs graphiques et tableaux (notamment par rapport de tableau croisé dynamique). Mes interlocuteurs se retrouvent face à une multitude d'onglets. Je souhaite donc créer un permier onglet Sommaire avec des boutons de commandes permettant d'aller directement sur l'onglet qui m'intéresse. J'ai déjà vu ça et c'est pratique en fonction de ce que l'on recherche. De plus je souhaite mettre sur chaque onglet un bouton de retour sommaire. Problème : je ne sais pas comment faire ... J'avais pensé utiliser la fonction liens hypertextes mais les graphiques n'apparaissent pas dans le choix des onglets ... Et comment y intégré un tel lien d'ailleurs (pour le retour sommaire). J'ai essayé de créer des boutons de commande mais je ne sais pas comment les programmer.
Si quelqu'un accepte de me guider, je l'en remercie sincèrement d'avance.
Jean-Christophe
bonjour Jean-Christophe,
oui tu as raison, cette barre est inactive, mais la macro (Macro1)se charge tout de même de créer les boutons "Menu" sur chacune des feuilles, non ?
isabelle
Bonsoir,
Je n'ai pas de message d'erreur. En fait, il ne se passe rien sur ces
feuilles lorsque j'active le mode création de la barre d'outils Contrôles.
Les différentes options (bouton de commande, zone de liste, ...) sont
inactives.
Jean-Christophe
"isabelle" <i@v> a écrit dans le message de news:
%23e98cZwGIHA.2268@TK2MSFTNGP02.phx.gbl...
bonjour Jean-Christophe,
je ne rencontre pas ce problème, quel que soit le type de feuille,
est ce que la macro te donne un message d'erreur ?
isabelle
Re bonjour !
Cela marche en effet et je suis en train de construire mes boutons de
commande.
Merci pour cette aide.
Me reste un souci : je n'arrive pas à installer des boutons sur mes
graphiques (issus des tableaux croisés dynamiques).
Est-ce normal ? Comment faire ?
Merci encore à tous.
"Jean-Christophe HESDIN" <jean-christophe.hesdin@club-internet.fr> a
écrit dans le message de news:
4726d76d$0$21148$7a628cd7@news.club-internet.fr...
Merci.
J'essaie dès que j'ai 5 mn et je vous dis quoi.
"isabelle" <i@v> a écrit dans le message de news:
OSpJlJrGIHA.4272@TK2MSFTNGP06.phx.gbl...
bonjour Jean-Christophe,
en supposant qu'il existe une feuille nommé "Menu"
à copier sur un module standard :
Sub Macro1()
For Each f In Sheets
If f.Name <> "Menu" Then
x = x + 1
Sheets(f.Name).Select
ActiveSheet.Buttons.Add(0, 0, 80, 20).Select
Selection.Caption = "Menu"
Selection.OnAction = "zaza"
On Error Resume Next
Application.Goto Range("A1")
Sheets("Menu").Range("A" & x) = f.Name
End If
Next
End Sub
Sub zaza()
Sheets("Menu").Select
End Sub
à copier sur la page code de la feuille "Menu" :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = Range("A65536").End(xlUp).Row
Set isect = Application.Intersect(Target, Range("A1:A" & x))
If Not isect Is Nothing Then Sheets(Target.Value).Select
End Sub
isabelle
Bonsoir à tous,
J'ai créé un fichier statistique (que je compléterais encore) et pour
lequel j'ai fait plusieurs graphiques et tableaux (notamment par
rapport de tableau croisé dynamique).
Mes interlocuteurs se retrouvent face à une multitude d'onglets.
Je souhaite donc créer un permier onglet Sommaire avec des boutons de
commandes permettant d'aller directement sur l'onglet qui m'intéresse.
J'ai déjà vu ça et c'est pratique en fonction de ce que l'on
recherche. De plus je souhaite mettre sur chaque onglet un bouton de
retour sommaire.
Problème : je ne sais pas comment faire ...
J'avais pensé utiliser la fonction liens hypertextes mais les
graphiques n'apparaissent pas dans le choix des onglets ...
Et comment y intégré un tel lien d'ailleurs (pour le retour sommaire).
J'ai essayé de créer des boutons de commande mais je ne sais pas
comment les programmer.
Si quelqu'un accepte de me guider, je l'en remercie sincèrement
d'avance.
oui tu as raison, cette barre est inactive, mais la macro (Macro1)se charge tout de même de créer les boutons "Menu" sur chacune des feuilles, non ?
isabelle
Bonsoir,
Je n'ai pas de message d'erreur. En fait, il ne se passe rien sur ces feuilles lorsque j'active le mode création de la barre d'outils Contrôles. Les différentes options (bouton de commande, zone de liste, ...) sont inactives.
Jean-Christophe "isabelle" a écrit dans le message de news: %
bonjour Jean-Christophe,
je ne rencontre pas ce problème, quel que soit le type de feuille, est ce que la macro te donne un message d'erreur ?
isabelle
Re bonjour !
Cela marche en effet et je suis en train de construire mes boutons de commande. Merci pour cette aide. Me reste un souci : je n'arrive pas à installer des boutons sur mes graphiques (issus des tableaux croisés dynamiques). Est-ce normal ? Comment faire ?
Merci encore à tous.
"Jean-Christophe HESDIN" a écrit dans le message de news: 4726d76d$0$21148$
Merci. J'essaie dès que j'ai 5 mn et je vous dis quoi.
"isabelle" a écrit dans le message de news:
bonjour Jean-Christophe,
en supposant qu'il existe une feuille nommé "Menu"
à copier sur un module standard :
Sub Macro1() For Each f In Sheets If f.Name <> "Menu" Then x = x + 1 Sheets(f.Name).Select ActiveSheet.Buttons.Add(0, 0, 80, 20).Select Selection.Caption = "Menu" Selection.OnAction = "zaza" On Error Resume Next Application.Goto Range("A1") Sheets("Menu").Range("A" & x) = f.Name End If Next End Sub
Sub zaza() Sheets("Menu").Select End Sub
à copier sur la page code de la feuille "Menu" :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) x = Range("A65536").End(xlUp).Row Set isect = Application.Intersect(Target, Range("A1:A" & x)) If Not isect Is Nothing Then Sheets(Target.Value).Select End Sub
isabelle
Bonsoir à tous,
J'ai créé un fichier statistique (que je compléterais encore) et pour lequel j'ai fait plusieurs graphiques et tableaux (notamment par rapport de tableau croisé dynamique). Mes interlocuteurs se retrouvent face à une multitude d'onglets. Je souhaite donc créer un permier onglet Sommaire avec des boutons de commandes permettant d'aller directement sur l'onglet qui m'intéresse. J'ai déjà vu ça et c'est pratique en fonction de ce que l'on recherche. De plus je souhaite mettre sur chaque onglet un bouton de retour sommaire. Problème : je ne sais pas comment faire ... J'avais pensé utiliser la fonction liens hypertextes mais les graphiques n'apparaissent pas dans le choix des onglets ... Et comment y intégré un tel lien d'ailleurs (pour le retour sommaire). J'ai essayé de créer des boutons de commande mais je ne sais pas comment les programmer.
Si quelqu'un accepte de me guider, je l'en remercie sincèrement d'avance.
Jean-Christophe
isabelle
voici l'exemple,
http://cjoint.com/?kEsiBKMXmE
isabelle
Bonsoir,
Je n'ai pas de message d'erreur. En fait, il ne se passe rien sur ces feuilles lorsque j'active le mode création de la barre d'outils Contrôles. Les différentes options (bouton de commande, zone de liste, ...) sont inactives.
Jean-Christophe "isabelle" a écrit dans le message de news: %
bonjour Jean-Christophe,
je ne rencontre pas ce problème, quel que soit le type de feuille, est ce que la macro te donne un message d'erreur ?
isabelle
Re bonjour !
Cela marche en effet et je suis en train de construire mes boutons de commande. Merci pour cette aide. Me reste un souci : je n'arrive pas à installer des boutons sur mes graphiques (issus des tableaux croisés dynamiques). Est-ce normal ? Comment faire ?
Merci encore à tous.
"Jean-Christophe HESDIN" a écrit dans le message de news: 4726d76d$0$21148$
Merci. J'essaie dès que j'ai 5 mn et je vous dis quoi.
"isabelle" a écrit dans le message de news:
bonjour Jean-Christophe,
en supposant qu'il existe une feuille nommé "Menu"
à copier sur un module standard :
Sub Macro1() For Each f In Sheets If f.Name <> "Menu" Then x = x + 1 Sheets(f.Name).Select ActiveSheet.Buttons.Add(0, 0, 80, 20).Select Selection.Caption = "Menu" Selection.OnAction = "zaza" On Error Resume Next Application.Goto Range("A1") Sheets("Menu").Range("A" & x) = f.Name End If Next End Sub
Sub zaza() Sheets("Menu").Select End Sub
à copier sur la page code de la feuille "Menu" :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) x = Range("A65536").End(xlUp).Row Set isect = Application.Intersect(Target, Range("A1:A" & x)) If Not isect Is Nothing Then Sheets(Target.Value).Select End Sub
isabelle
Bonsoir à tous,
J'ai créé un fichier statistique (que je compléterais encore) et pour lequel j'ai fait plusieurs graphiques et tableaux (notamment par rapport de tableau croisé dynamique). Mes interlocuteurs se retrouvent face à une multitude d'onglets. Je souhaite donc créer un permier onglet Sommaire avec des boutons de commandes permettant d'aller directement sur l'onglet qui m'intéresse. J'ai déjà vu ça et c'est pratique en fonction de ce que l'on recherche. De plus je souhaite mettre sur chaque onglet un bouton de retour sommaire. Problème : je ne sais pas comment faire ... J'avais pensé utiliser la fonction liens hypertextes mais les graphiques n'apparaissent pas dans le choix des onglets ... Et comment y intégré un tel lien d'ailleurs (pour le retour sommaire). J'ai essayé de créer des boutons de commande mais je ne sais pas comment les programmer.
Si quelqu'un accepte de me guider, je l'en remercie sincèrement d'avance.
Jean-Christophe
voici l'exemple,
http://cjoint.com/?kEsiBKMXmE
isabelle
Bonsoir,
Je n'ai pas de message d'erreur. En fait, il ne se passe rien sur ces
feuilles lorsque j'active le mode création de la barre d'outils Contrôles.
Les différentes options (bouton de commande, zone de liste, ...) sont
inactives.
Jean-Christophe
"isabelle" <i@v> a écrit dans le message de news:
%23e98cZwGIHA.2268@TK2MSFTNGP02.phx.gbl...
bonjour Jean-Christophe,
je ne rencontre pas ce problème, quel que soit le type de feuille,
est ce que la macro te donne un message d'erreur ?
isabelle
Re bonjour !
Cela marche en effet et je suis en train de construire mes boutons de
commande.
Merci pour cette aide.
Me reste un souci : je n'arrive pas à installer des boutons sur mes
graphiques (issus des tableaux croisés dynamiques).
Est-ce normal ? Comment faire ?
Merci encore à tous.
"Jean-Christophe HESDIN" <jean-christophe.hesdin@club-internet.fr> a
écrit dans le message de news:
4726d76d$0$21148$7a628cd7@news.club-internet.fr...
Merci.
J'essaie dès que j'ai 5 mn et je vous dis quoi.
"isabelle" <i@v> a écrit dans le message de news:
OSpJlJrGIHA.4272@TK2MSFTNGP06.phx.gbl...
bonjour Jean-Christophe,
en supposant qu'il existe une feuille nommé "Menu"
à copier sur un module standard :
Sub Macro1()
For Each f In Sheets
If f.Name <> "Menu" Then
x = x + 1
Sheets(f.Name).Select
ActiveSheet.Buttons.Add(0, 0, 80, 20).Select
Selection.Caption = "Menu"
Selection.OnAction = "zaza"
On Error Resume Next
Application.Goto Range("A1")
Sheets("Menu").Range("A" & x) = f.Name
End If
Next
End Sub
Sub zaza()
Sheets("Menu").Select
End Sub
à copier sur la page code de la feuille "Menu" :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = Range("A65536").End(xlUp).Row
Set isect = Application.Intersect(Target, Range("A1:A" & x))
If Not isect Is Nothing Then Sheets(Target.Value).Select
End Sub
isabelle
Bonsoir à tous,
J'ai créé un fichier statistique (que je compléterais encore) et pour
lequel j'ai fait plusieurs graphiques et tableaux (notamment par
rapport de tableau croisé dynamique).
Mes interlocuteurs se retrouvent face à une multitude d'onglets.
Je souhaite donc créer un permier onglet Sommaire avec des boutons de
commandes permettant d'aller directement sur l'onglet qui m'intéresse.
J'ai déjà vu ça et c'est pratique en fonction de ce que l'on
recherche. De plus je souhaite mettre sur chaque onglet un bouton de
retour sommaire.
Problème : je ne sais pas comment faire ...
J'avais pensé utiliser la fonction liens hypertextes mais les
graphiques n'apparaissent pas dans le choix des onglets ...
Et comment y intégré un tel lien d'ailleurs (pour le retour sommaire).
J'ai essayé de créer des boutons de commande mais je ne sais pas
comment les programmer.
Si quelqu'un accepte de me guider, je l'en remercie sincèrement
d'avance.
Je n'ai pas de message d'erreur. En fait, il ne se passe rien sur ces feuilles lorsque j'active le mode création de la barre d'outils Contrôles. Les différentes options (bouton de commande, zone de liste, ...) sont inactives.
Jean-Christophe "isabelle" a écrit dans le message de news: %
bonjour Jean-Christophe,
je ne rencontre pas ce problème, quel que soit le type de feuille, est ce que la macro te donne un message d'erreur ?
isabelle
Re bonjour !
Cela marche en effet et je suis en train de construire mes boutons de commande. Merci pour cette aide. Me reste un souci : je n'arrive pas à installer des boutons sur mes graphiques (issus des tableaux croisés dynamiques). Est-ce normal ? Comment faire ?
Merci encore à tous.
"Jean-Christophe HESDIN" a écrit dans le message de news: 4726d76d$0$21148$
Merci. J'essaie dès que j'ai 5 mn et je vous dis quoi.
"isabelle" a écrit dans le message de news:
bonjour Jean-Christophe,
en supposant qu'il existe une feuille nommé "Menu"
à copier sur un module standard :
Sub Macro1() For Each f In Sheets If f.Name <> "Menu" Then x = x + 1 Sheets(f.Name).Select ActiveSheet.Buttons.Add(0, 0, 80, 20).Select Selection.Caption = "Menu" Selection.OnAction = "zaza" On Error Resume Next Application.Goto Range("A1") Sheets("Menu").Range("A" & x) = f.Name End If Next End Sub
Sub zaza() Sheets("Menu").Select End Sub
à copier sur la page code de la feuille "Menu" :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) x = Range("A65536").End(xlUp).Row Set isect = Application.Intersect(Target, Range("A1:A" & x)) If Not isect Is Nothing Then Sheets(Target.Value).Select End Sub
isabelle
Bonsoir à tous,
J'ai créé un fichier statistique (que je compléterais encore) et pour lequel j'ai fait plusieurs graphiques et tableaux (notamment par rapport de tableau croisé dynamique). Mes interlocuteurs se retrouvent face à une multitude d'onglets. Je souhaite donc créer un permier onglet Sommaire avec des boutons de commandes permettant d'aller directement sur l'onglet qui m'intéresse. J'ai déjà vu ça et c'est pratique en fonction de ce que l'on recherche. De plus je souhaite mettre sur chaque onglet un bouton de retour sommaire. Problème : je ne sais pas comment faire ... J'avais pensé utiliser la fonction liens hypertextes mais les graphiques n'apparaissent pas dans le choix des onglets ... Et comment y intégré un tel lien d'ailleurs (pour le retour sommaire). J'ai essayé de créer des boutons de commande mais je ne sais pas comment les programmer.
Si quelqu'un accepte de me guider, je l'en remercie sincèrement d'avance.
