OVH Cloud OVH Cloud

sélections d'onglets à partir d'une liste déroulante

20 réponses
Avatar
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

10 réponses

1 2
Avatar
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.

.




Avatar
AV
C'est pour le coup que je suis vert.... ;-(

AV
Avatar
AV
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


Avatar
Michel Gaboly
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 :

1 - Feuille
2 - Graphique
3 - Macro
4 - Macro internationale
5 - 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



Avatar
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




Avatar
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
Avatar
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

Avatar
Elle est où :
La réponse de Serge


????

Avatar
ddh
Bonjour

Serge, c'est Garnote
-----Message d'origine-----
Elle est où :
La réponse de Serge


????
.




Avatar
ddh
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


.




1 2