comment afficher le nom des sheets dans un textbox

Bonsoir le forum,

je cherche un moyen d'afficher le nom de mes feuilles dans un text box et ce par ligne??

si quelqu'un l'a deja fait

D'avance merci

[Pierre]

BOnjor Thomas et le forum,

Es-tu sûr de vouloir placer la liste dans un textBox?
Ne préfèrerais-tu pas un listeBox ou un comboBox?

Dim WS As Worksheet
With Me.ComboBox1
For Each WS In ThisWorkbook.Worksheets
.AddItem WS.Name
Next
End With
Ceci te pêrmttra de placer ta liste dans un comboBox?

Hope this will help you


Pierre

[Rai]

Bonjour,

Avec une TextBox aussi, ça le fait.
Seulement, on n'aura que l'affichage, pas de possibilité de sélection et d'identification.

Par contre, pour que ça fonctionne, il faut passer la propriété multiline de la TB à True.

Dim WS As Worksheet
Dim TT As String

TextBox1.MultiLine = True 'seulement si ça n'a pas été défini avant

For Each WS In ThisWorkbook.Worksheets
TT = TT & WS.Name & vbNewLine
Next WS

TextBox1 = TT



Bonne continuation.