liste des onglets

yaka

XLDnaute Occasionnel
(re)bonjour

Comme je viens rarement sur ce(t) (excellent) forum j'en profite aujourd'hui.
Dans mon profil vous pouvez voir que je suis débutant en VBA ce qui me limite pour l'heure, mais je pense que vous avez déjà la solution à mon souhait à savoir > ajouter une combobox dans mes barres excel, liste qui afficherai les noms de tous les onglets du fichier actif et d'atteindre aprés sélection l'onglet choisi.

Merci pour votre aide.
 

Jocelyn

XLDnaute Barbatruc
Bonjour le forum,
Bonjour Yaka,

je suis trés nul en VBA mais en attendant une solution

si tu fait un clique droit sur les fléche qui se trouve en bas a gauche de la fentre et qui permette de faire défilé les onglets, la liste de tous les onglets s'affiche tu cliques sur celui vers le quel tu veux aller et le tour est joué.

Jocelyn
 

Gipéhel

XLDnaute Occasionnel
fichier pas passé parce que espace dans l'intitulé !!!! [file name=ongletsdanscombo.zip size=10612]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ongletsdanscombo.zip[/file]
 

Pièces jointes

  • ongletsdanscombo.zip
    10.4 KB · Affichages: 28
  • ongletsdanscombo.zip
    10.4 KB · Affichages: 29
  • ongletsdanscombo.zip
    10.4 KB · Affichages: 31

Celeda

XLDnaute Barbatruc
Bonjour,

Voici un code dont tu pourras te servir :

Option Explicit
'Zon 04-04-04
'===========================================================
' Le Coffret des Listes de XLD - 2 - October 2004 / Celeda
'===========================================================
Private Sub ComboBox1_Change()
On Error Resume Next
Sheets(ComboBox1.List(ComboBox1.ListIndex)).Activate
End Sub

Private Sub ComboBox1_GotFocus()
ComboBox1.List = RecupF
End Sub
Function RecupF()
Dim I&, J&, T()
For I = 1 To ThisWorkbook.Worksheets.Count
With Sheets(I)
If .Visible Then
ReDim Preserve T(J)
T(J) = .Name
J = J + 1
End If
End With
Next I
RecupF = T
End Function

Private Sub ComboBox1_LostFocus()
ComboBox1.Value = ''
End Sub


Tu peux récupérer la démo en question en téléchargeant le Coffret 2 des Listes de XLD (cela pourra t'aider peut-être plus).
Mais cette combo se place dans la feuille pas dans la barre de menu....

par contre, il y a un autre petit 'bijou' de code et là tu vas rire

:) mais on en a tellement fait sur XLD !!!

le click droit !!

as-tu déjà pensé d'avoir tous tes onglets dans le click droit ?

là c'est pareil, même 'punition' : allez télécharger Doublons Macros et hop tu récupéres tous les codes (toutjours du même auteur)

et tant que je j'y pense....

as-tu déjà pensé à une barre de menu qui s'invite toute seule et qui disparaît au moment de fermer le classeur ?

et ben vlan tu vas pas me croire, mais celle-là on l'a aussi faite!!! :) :)

et tu peux la récupèrer en exemple dans le fichier à télécharger, of course!!! Dates et Heures (il y a deux exemple et les codes sont de Ti)

bon tu vois on a du stock chez XLD!!

et je ne te parle pas de toutes les autres barres, combo, sinon j'en aurai pour un moment sur ton post (alors pardonnez moi messieurs-dames de ne pas tous vous citer ;) )

bon un jour on fera les soldes!!!! :) :)

Celeda


EDIT : ouyps Gip, je t'avais pas vu arriver dans le noir!!! :)
sorry pour tes pieds!!

Message édité par: Celeda, à: 05/10/2005 14:28
 

Hervé

XLDnaute Barbatruc
bonjour tout le monde, bise celeda.

Sinon sans passer par des menus, on peut utiliser ceci :

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel =
True
Application.CommandBars('Workbook tabs').ShowPopup
End Sub


Dès un double clic dans une cellule, une fenetre apparait avec la liste des onglets.

A placer dans le module thisworkbook

salut
 

Gipéhel

XLDnaute Occasionnel
Bonjour Hervé, Céléda, le forum,....
Pas de pb pour mes pieds Céléda, tu es tellement légère.
Hervé, quelle élégance dans ce que tu proposes. Bravo et félicitations. Mais bon. Pour une fois que je réussis à répondre avant toute cette horde de balaizes!!!
Salutations. JPL.
 

Celeda

XLDnaute Barbatruc
Bonjour,


:woohoo: :woohoo: :woohoo: :woohoo: :woohoo:

oulhalhalaha lahla lahlahlaha!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

la classe Hervé!!!!

celle je l'avais pas encore dans ma collection :p

Merci


Ne t'inquiète pas du tout Gipéhel62

ici on a un seul mot d'ordre!!!

plus on se mélange et meilleur c'est !!! :) :)
et je te passe les détails (sinon le modérateur va me virer pour incitation aux XLDIens de pensées ...... ;) )

donc tout est bon chez xld !!

toutes les réponses , quelles soient de n'importe quel type et on prend tout!!!!!

sans distingo!!!

j'espère que je t'ai convaincu, sinon il faudrait que je me déplace dans le 62 et c'est pas à côté!! :)

Merci

Celeda
 

Ti_

Nous a quitté
Repose en paix
arf arf, je ne voudrais pas être mauvaise langue, mais si André passe par là, il vous dira qu'il suffit d'un clic droit dans la partie gauche de la barre d'onglet pour avoir ce pop-up automatiquement, sans aucun code :p !

ceci dit, Yaka, tu peux reprendre l'excellent code d'Hervé ( ;) ) si tu veux afficher ce pop-up au niveau du curseur sur un double click
 

Hervé

XLDnaute Barbatruc
Bonjour tout le monde

TI, je remarque que notre dernière discussion commence à porter ces fruits. :) :)

J'en attendais pas moins de toi ;)

Gipé, celeda, c'est gentil mais ce code n'est pas de moi, je sais meme pas de qui il est (Microsoft en personne, il me semble).


salut
 

Celeda

XLDnaute Barbatruc
Bonsoir,

mais Ti, justement c'est cela qui est fascinant dans nos échanges et c'est un peu pour vous pousser dans vos retranchements que je me permets de pousser le bouchon car depuis que je vous connais,
en vrai!!,en plus de la nostalgie, du bleu dans le coeur, je m'imagine vos têtes !!!

c'est que je commence à vous connaître les boys!!!

tu vois Gipé, il faut pas hésiter à bousculer nos 'balaizes'!!!!

ils sont adorables ....mais c'est vrai que toi tu es un mec alors tu ne peux pas avoir le même feeling que moi....ou alors....... :) :) :) :) :) :) :)


Celeda ;)
 

Discussions similaires

Statistiques des forums

Discussions
311 707
Messages
2 081 734
Membres
101 809
dernier inscrit
HADER2024