remplissage d'une Combobox

[coco]

Bonjour à tous,

J'ai un souci concernant le remplisssage d'une combobox.

J'ai un classeur avec des feuilles qui me servent de modèles.
L'utilisateur va créer des feuilles supplémentaires qui seront des copies des "feuilles modèles." Il pourra accéder à ces feuilles par une combobox mais aussi les supprimer.

Par conséquent je ne veux pas que mes feuilles modèles apparaissent dans ma liste et j'avoue que là je bloque.

J'ai utilisé le code ci dessous pour afficher toutes la liste, mais comment lui dire 'tu m'affiches tout sauf feuil1, feuil2 et 3"

Dim isheetcount As Integer
Dim isheet As Integer

'Initialiser combo box
Combox.Clear

'charger la combo box
isheetcount = ActiveWorkbook.Worksheets.count
For isheet = 1 To isheetcount
'Worksheets(iSheet).Activate
Combox.AddItem (Worksheets(isheet).Name)
Next isheet


Merci d'avance pour vos précieuses lumières

coco

 

[Hervé]

bonjour

Essaye ceci :

Dim ws As Object
For Each ws In Worksheets
If ws.Name <> "Feuil1" _
And ws.Name <> "Feuil2" _
And ws.Name <> "Feuil3" Then
Me.combobox1.AddItem ws.Name
End If
Next ws


Salut
Hervé

 

[coco]

ca marche,
je te remercie.

coco