sélections d'onglets à partir d'une liste déroulante
20 réponses
ddh
Bonjour =E0 tous
Sous XP et Excel 2002, je voudrais ouvrir les feuilles=20
d'un classeur en utilisant une zone de liste d=E9roulante=20
de la barre d'outils "formulaire". Je voudrais utiliser=20
cette fa=E7on au lieu de celle qui consiste habituellement=20
=E0 cliquer sur l'onglet. Mon but est par la suite de ne=20
plus faire appara=EEtre les onglets du classeur.
Est-il possible de la faire et si oui de quelles fa=E7ons?
Merci pour vos r=E9ponses
PS: c'est mon premier message dans le forum. J'esp=E8re que=20
j'ai respect=E9 la charte. Si ce n'est pas le cas,=20
n'h=E9sitez pas =E0 me le dire
Bonjour Clément Je n'ai pas de "grands projets" à réaliser avec Excel, je rest humble à ce niveau! Je pense que quelquefois, il faut inventer ou essayer d'inventer soi-même l'eau chaude ou l'eau froide pour comprendre les choses. J'ai regardé tes liens, il y pas mal de bonnes choses. Merci
-----Message d'origine----- Bonjour,
Réinventer l'eau chaude non, mais donner plusieur soluces qui ne
répondent
pas exactement aux mêmes critéres font la force de ce groupe,
Ma réponse était en relation avec le "grand projet" qui semble
découler de la question originale, et non des réponses déjà fournies.
Désolé si je n'ai pas été assez clair.
.
Bonjour Clément
Je n'ai pas de "grands projets" à réaliser avec Excel, je
rest humble à ce niveau! Je pense que quelquefois, il
faut inventer ou essayer d'inventer soi-même l'eau chaude
ou l'eau froide pour comprendre les choses.
J'ai regardé tes liens, il y pas mal de bonnes choses.
Merci
-----Message d'origine-----
Bonjour,
Réinventer l'eau chaude non, mais donner plusieur
soluces qui ne
répondent
pas exactement aux mêmes critéres font la force de ce
groupe,
Ma réponse était en relation avec le "grand projet" qui
semble
découler de la question originale, et non des réponses
déjà fournies.
Bonjour Clément Je n'ai pas de "grands projets" à réaliser avec Excel, je rest humble à ce niveau! Je pense que quelquefois, il faut inventer ou essayer d'inventer soi-même l'eau chaude ou l'eau froide pour comprendre les choses. J'ai regardé tes liens, il y pas mal de bonnes choses. Merci
-----Message d'origine----- Bonjour,
Réinventer l'eau chaude non, mais donner plusieur soluces qui ne
répondent
pas exactement aux mêmes critéres font la force de ce groupe,
Ma réponse était en relation avec le "grand projet" qui semble
découler de la question originale, et non des réponses déjà fournies.
La création d'un classeur faisait apparaître une page blanche, avec un titre, "Contenu du classeur", sans quadrillage, conçue comme un sommaire de bouquin.
Il y avait en bas un bouton "Ajouter" qui permettait de choisir les documents à intégrer au classeur.
Le nom de ceux-ci apparaissaient au fur et à mesure dans une liste, en dessous du titre "Contenu du classeur".
Outre le bouton Ajouter, il y en avait 2 autres, "Supprimer" et "Options". Ce dernier permettait de choisir si les documents listés dans le classeur conservaient leur existence autonome, ou étaient intégrés au classeur : un classeur pouvait ainsi n'être qu'une coquille vide, un document permettant de présenter et de charger des documents différents, qui restaient chacun un document Excel indépendants, qui pouvait être ouvert et modifié sans passer par le classeur.
Impossible
Si, si, Clément c'est effectivement possible à partir d'Excel 2002 : Outils / options / onglet affichage / décocher onglets du classeur
Et même depuis (au moins) XL5 !
AV
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Bonjour,
Cela date donc effectivement d'Excel 5 : la notion de classeur est
apparue avec Excel 4, mais il n'y avait pas d'onglet à l'époque :
Quand on créait un document, on devait choisir parmi 5 options :
La création d'un classeur faisait apparaître une page blanche, avec
un titre, "Contenu du classeur", sans quadrillage, conçue comme
un sommaire de bouquin.
Il y avait en bas un bouton "Ajouter" qui permettait de choisir les
documents à intégrer au classeur.
Le nom de ceux-ci apparaissaient au fur et à mesure dans une liste,
en dessous du titre "Contenu du classeur".
Outre le bouton Ajouter, il y en avait 2 autres, "Supprimer" et
"Options". Ce dernier permettait de choisir si les documents listés
dans le classeur conservaient leur existence autonome, ou étaient
intégrés au classeur : un classeur pouvait ainsi n'être qu'une
coquille vide, un document permettant de présenter et de charger
des documents différents, qui restaient chacun un document Excel
indépendants, qui pouvait être ouvert et modifié sans passer par
le classeur.
Impossible
Si, si, Clément c'est effectivement possible à partir d'Excel 2002 :
Outils / options / onglet affichage / décocher onglets du classeur
La création d'un classeur faisait apparaître une page blanche, avec un titre, "Contenu du classeur", sans quadrillage, conçue comme un sommaire de bouquin.
Il y avait en bas un bouton "Ajouter" qui permettait de choisir les documents à intégrer au classeur.
Le nom de ceux-ci apparaissaient au fur et à mesure dans une liste, en dessous du titre "Contenu du classeur".
Outre le bouton Ajouter, il y en avait 2 autres, "Supprimer" et "Options". Ce dernier permettait de choisir si les documents listés dans le classeur conservaient leur existence autonome, ou étaient intégrés au classeur : un classeur pouvait ainsi n'être qu'une coquille vide, un document permettant de présenter et de charger des documents différents, qui restaient chacun un document Excel indépendants, qui pouvait être ouvert et modifié sans passer par le classeur.
Impossible
Si, si, Clément c'est effectivement possible à partir d'Excel 2002 : Outils / options / onglet affichage / décocher onglets du classeur
Et même depuis (au moins) XL5 !
AV
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Jacky
De rage, je suppose, après tant d'efforts.... ;o)) JJ
"AV" a écrit dans le message news: #
C'est pour le coup que je suis vert.... ;-(
AV
De rage, je suppose, après tant d'efforts....
;o))
JJ
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message news:
#tW68m9uDHA.640@TK2MSFTNGP11.phx.gbl...
De rage, je suppose, après tant d'efforts.... ;o)) JJ
"AV" a écrit dans le message news: #
C'est pour le coup que je suis vert.... ;-(
AV
Michel Pierron
Salut ddh; Pourquoi pas directement dans la barre d'outils ? Dans le module ThisWorkbook: Private Onglets As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean) MyControlDelete ActiveWindow.DisplayWorkbookTabs = Onglets End Sub
Private Sub Workbook_Open() Onglets = ActiveWindow.DisplayWorkbookTabs ActiveWindow.DisplayWorkbookTabs = False MyControlDelete Dim i As Integer With Application.CommandBars(1).Controls.Add(Type:=msoControlComboBox, Temporary:=True) .Style = msoComboLabel .Caption = "&Liste des feuilles " .Width = 90 .Tag = "MyControl" For i = 1 To ThisWorkbook.Sheets.Count .AddItem ThisWorkbook.Sheets(i).Name Next i .Text = ThisWorkbook.ActiveSheet.Name .OnAction = ThisWorkbook.Name & "!FeuilleSelect" End With iCtrl = Application.CommandBars(1).Controls.Count End Sub
Private Sub MyControlDelete() Dim i As Integer With Application.CommandBars(1).Controls For i = 1 To .Count If .Item(i).Tag = "MyControl" Then .Item(i).Delete: Exit For Next i End With End Sub
Dans un module standard: Public iCtrl As Integer
Sub FeuilleSelect() Dim i As Integer i = Application.CommandBars(1).Controls(iCtrl).ListIndex ThisWorkbook.Sheets(i).Select End Sub
MP "ddh" a écrit dans le message de news:098801c3bb75$c1c49700$ Bonjour à tous
Sous XP et Excel 2002, je voudrais ouvrir les feuilles d'un classeur en utilisant une zone de liste déroulante de la barre d'outils "formulaire". Je voudrais utiliser cette façon au lieu de celle qui consiste habituellement à cliquer sur l'onglet. Mon but est par la suite de ne plus faire apparaître les onglets du classeur.
Est-il possible de la faire et si oui de quelles façons?
Merci pour vos réponses
PS: c'est mon premier message dans le forum. J'espère que j'ai respecté la charte. Si ce n'est pas le cas, n'hésitez pas à me le dire
Salut ddh;
Pourquoi pas directement dans la barre d'outils ?
Dans le module ThisWorkbook:
Private Onglets As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
MyControlDelete
ActiveWindow.DisplayWorkbookTabs = Onglets
End Sub
Private Sub Workbook_Open()
Onglets = ActiveWindow.DisplayWorkbookTabs
ActiveWindow.DisplayWorkbookTabs = False
MyControlDelete
Dim i As Integer
With Application.CommandBars(1).Controls.Add(Type:=msoControlComboBox,
Temporary:=True)
.Style = msoComboLabel
.Caption = "&Liste des feuilles "
.Width = 90
.Tag = "MyControl"
For i = 1 To ThisWorkbook.Sheets.Count
.AddItem ThisWorkbook.Sheets(i).Name
Next i
.Text = ThisWorkbook.ActiveSheet.Name
.OnAction = ThisWorkbook.Name & "!FeuilleSelect"
End With
iCtrl = Application.CommandBars(1).Controls.Count
End Sub
Private Sub MyControlDelete()
Dim i As Integer
With Application.CommandBars(1).Controls
For i = 1 To .Count
If .Item(i).Tag = "MyControl" Then .Item(i).Delete: Exit For
Next i
End With
End Sub
Dans un module standard:
Public iCtrl As Integer
Sub FeuilleSelect()
Dim i As Integer
i = Application.CommandBars(1).Controls(iCtrl).ListIndex
ThisWorkbook.Sheets(i).Select
End Sub
MP
"ddh" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:098801c3bb75$c1c49700$a001280a@phx.gbl...
Bonjour à tous
Sous XP et Excel 2002, je voudrais ouvrir les feuilles
d'un classeur en utilisant une zone de liste déroulante
de la barre d'outils "formulaire". Je voudrais utiliser
cette façon au lieu de celle qui consiste habituellement
à cliquer sur l'onglet. Mon but est par la suite de ne
plus faire apparaître les onglets du classeur.
Est-il possible de la faire et si oui de quelles façons?
Merci pour vos réponses
PS: c'est mon premier message dans le forum. J'espère que
j'ai respecté la charte. Si ce n'est pas le cas,
n'hésitez pas à me le dire
Salut ddh; Pourquoi pas directement dans la barre d'outils ? Dans le module ThisWorkbook: Private Onglets As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean) MyControlDelete ActiveWindow.DisplayWorkbookTabs = Onglets End Sub
Private Sub Workbook_Open() Onglets = ActiveWindow.DisplayWorkbookTabs ActiveWindow.DisplayWorkbookTabs = False MyControlDelete Dim i As Integer With Application.CommandBars(1).Controls.Add(Type:=msoControlComboBox, Temporary:=True) .Style = msoComboLabel .Caption = "&Liste des feuilles " .Width = 90 .Tag = "MyControl" For i = 1 To ThisWorkbook.Sheets.Count .AddItem ThisWorkbook.Sheets(i).Name Next i .Text = ThisWorkbook.ActiveSheet.Name .OnAction = ThisWorkbook.Name & "!FeuilleSelect" End With iCtrl = Application.CommandBars(1).Controls.Count End Sub
Private Sub MyControlDelete() Dim i As Integer With Application.CommandBars(1).Controls For i = 1 To .Count If .Item(i).Tag = "MyControl" Then .Item(i).Delete: Exit For Next i End With End Sub
Dans un module standard: Public iCtrl As Integer
Sub FeuilleSelect() Dim i As Integer i = Application.CommandBars(1).Controls(iCtrl).ListIndex ThisWorkbook.Sheets(i).Select End Sub
MP "ddh" a écrit dans le message de news:098801c3bb75$c1c49700$ Bonjour à tous
Sous XP et Excel 2002, je voudrais ouvrir les feuilles d'un classeur en utilisant une zone de liste déroulante de la barre d'outils "formulaire". Je voudrais utiliser cette façon au lieu de celle qui consiste habituellement à cliquer sur l'onglet. Mon but est par la suite de ne plus faire apparaître les onglets du classeur.
Est-il possible de la faire et si oui de quelles façons?
Merci pour vos réponses
PS: c'est mon premier message dans le forum. J'espère que j'ai respecté la charte. Si ce n'est pas le cas, n'hésitez pas à me le dire
AV
De rage, je suppose, après tant d'efforts....
Tu peux le dire ! Pffff...Allez donc vous casser le bonnet pour répondre exactement (le + possible) à une question...
AV
De rage, je suppose, après tant d'efforts....
Tu peux le dire !
Pffff...Allez donc vous casser le bonnet pour répondre exactement (le +
possible) à une question...
Bonjour AV et Jacky Je me suis mal identifié pour dire merci à tout le monde, j'ai simplement oublié d'indiquer ddh avant anonymous. Je ne suis pas ingrat, j'apprécie beaucoup les efforts de chacun et je ne comprends pas pourquoi vous avez l'air d'être en "colère". C'est vrai, je trouve que la solution de Serge (Garnote) me plaît bien parce qu'elle est vachement simple et aussi parce que je tatonne avec VBA. @+ et sans rancune
-----Message d'origine-----
De rage, je suppose, après tant d'efforts....
Tu peux le dire ! Pffff...Allez donc vous casser le bonnet pour répondre exactement (le +
possible) à une question...
AV
.
Bonjour AV et Jacky
Je me suis mal identifié pour dire merci à tout le monde,
j'ai simplement oublié d'indiquer ddh avant anonymous. Je
ne suis pas ingrat, j'apprécie beaucoup les efforts de
chacun et je ne comprends pas pourquoi vous avez l'air
d'être en "colère". C'est vrai, je trouve que la solution
de Serge (Garnote) me plaît bien parce qu'elle est
vachement simple et aussi parce que je tatonne avec VBA.
@+ et sans rancune
-----Message d'origine-----
De rage, je suppose, après tant d'efforts....
Tu peux le dire !
Pffff...Allez donc vous casser le bonnet pour répondre
exactement (le +
Bonjour AV et Jacky Je me suis mal identifié pour dire merci à tout le monde, j'ai simplement oublié d'indiquer ddh avant anonymous. Je ne suis pas ingrat, j'apprécie beaucoup les efforts de chacun et je ne comprends pas pourquoi vous avez l'air d'être en "colère". C'est vrai, je trouve que la solution de Serge (Garnote) me plaît bien parce qu'elle est vachement simple et aussi parce que je tatonne avec VBA. @+ et sans rancune
-----Message d'origine-----
De rage, je suppose, après tant d'efforts....
Tu peux le dire ! Pffff...Allez donc vous casser le bonnet pour répondre exactement (le +