ListBox et TextBox

[flame]

Bonjour.

Je souhaiterais remplir un ListBox (non déroulant) à partir d'une liste (de feuilles) qui doit pouvoir être modifiée par ajout... et je n'y arrive pas.
Cette ListBox doit permettre de choisir la feuille à ouvrir en cliquant sur la ligne adhoc du ListBox.
J'aimerais aussi qu'à chaque création de nouvelle feuille, le nom soit placé automatiquement sur l'onglet. est-ce possible ?
Merci à qui pourra m'aider.
Cordialement à tous.

 

[Zon]

Salut,

Voici un fonction qui récupéres toutes les feuilles de calcul visibles du classeur où est lancée la macro:

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

Tu initiliases ta listbox avec list:

Talisbox.list=listef

Ensuite si tu rajoutes un bouton pour ajouter une feuille, qqch du style
private sub ton bouton_clik
Dim Temp, F As Worksheet
Temp = Application.InputBox("Sasir un nom de feuille", "Saisie", , , , , , 2)
Set F = thisworkbook.worksheets.add(, worksheets(whisworkbook.worksheets.count)) 'mis en dernier, en premmier ne mettre aucun paramètre
on error resume next
f.name = temp
if err<>0 then application.displayalerts=false:F.delete
talistbox.list=listef 'on réinitialise la listbox
end sub

A+++