combobox contenant le nom des feuilles d'un classeur ouvert

salut,

*********************
Partie déclaration :
Dim Tableau(10) As Variant

code de la feuille :
**********************
Private Sub ComboBox1_Enter()

For i = 1 To ActiveWorkbook.Sheets.Count
Tableau(i) = Sheets(i).Name
Next i
ComboBox1.ColumnCount = 1
ComboBox1.List() = Tableau
End Sub

Et voili
A+

merci beaucoup je vais essayé

bonjour tout le monde!

Allez vite voir ce fil...

Lien supprimé

C@thy