Comment associer une combobox à plusieurs feuilles

Salut Olivier,


Oui on peut faire comme çà (ici j'utilise la macro évènementielle "Worksheet_Change" qui mettra à jour la Combobox à chaque fois qu'on active/change une autre Feuille... ) on peut mettre ce code ailleurs en fonction des besoins...

Code à placer sur Private Module "ThisWorkbook"

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Feuil As Worksheet
Sheets(1).ComboBox1.Clear
For Each Feuil In Worksheets
Sheets(1).ComboBox1.AddItem Feuil.Name
Next Feuil
End Sub

Remarque :
========
Une listbox serait à mon avis plus apropriée... qu'une ComboBox... Mais bon, c'est TON appli !!

Bon travail
@+Thierry

Je ne suis pas contre une listBox.
Est ce que cela change quelquechose au code que tu as donné ?

Merci pour ta réponse rapide. Je vais m'y mettre dès que possible.

Olivier

Re Olivier,

Non il faut just que tu nommes ta ListBox comme tu veux, ou sinon elle aura le nom par défaut "ListBox1"... Nom que tu remplaceras dans le code ci-dessus à la place de "ComBoBox1"... (les deux fois)

ComboBox est en fait une ListBox Combinée avec une TextBox... Elle supporte toutes les instructions de listboxs, sauf pour l'affichage de multicolumn une fois la sélection faite, quoique je suis en train de me pencher sur la question...

Par conséquent ce que tu fais subir à une combobox, peut se faire pratiquement à 90% sur une ListBox...

Mais dans ton cas le nom des feuilles est en simple colonne. Donc pas de problème... Go ahead !!

Bon travail
@+Thierry

Salut,

Je n'arrive pas a associer ce code a la feuille courante.
J'arrive tres bien a l'associer a une combo-box (par exemple sur un clic sur
la boite) mais ma liste de feuilles est dupliquee a chaque fois.

comment faut-il faire ?
Merci d'avance
Olivier

regarde dans le fichier joint une solution simpliste mais peut-être suffisante pour ton besoin.