retirer une feuille d'une boucle et rangement alphabetique de la combo

[AVORIAZ]

salut a tous ,

voila j'ai un petit souci de boucle ...

en faite ma boucle reprends toute les feuilles dans ma combobox mais je voudrais retirer qqes feuilles de cette boucle !!!

comment faire ?

Private Sub USERFORM_INITIALIZE()
Sheets("résulat").false 'exemple de feuille a retirer mais ca marche pas
Dim i As Byte
With ComboBox4
End With
For i = 1 To Sheets.Count
ComboBox4.AddItem Sheets(i).Name
Next i
End Sub



de plus je voudrais que l'affichage de cette combo soit classer dans l'ordre alphabetique ? possible ?

grand merci pour votre aide

avo

 

[Pascal76]

Bonjour

essaies comme ceci pour retirer des feuilles

Private Sub USERFORM_INITIALIZE()
Dim i As Byte
For i = 1 To Sheets.Count
&nbsp;if sheets(i).name<>"résultat" then
&nbsp;&nbsp;ComboBox4.AddItem Sheets(i).Name
&nbsp;end if
Next i
End Sub

Bon courage

Pascal

 

[AVORIAZ]

merci pour ta reponse pascal !!!

et bien ca marche pas , ca laisse la feuille résultat dans la combo ??

 

[Pascal76]

Re

Bizarre

Es-tu sur de bien de l'écriture exact du nom de ta feuille ??

Sinon envoies juste un morceau du fichier sans les autres feuilles

Pascal