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