1 To Sheets.Count

[Evelynetfrancois]

bonjour a tous , voir bonne nuit !!

Est il possible d avoir l additem dans l autre sens (inversé)


Private Sub UserForm_Initialize()
Dim i As Byte
For i = 1 To Sheets.Count
If Sheets(i).Name <> "MDL" Then Me.ListBox1.AddItem Sheets(i).Name
Next
End Submerci d avance pour tout
E et F

 

[Evelynetfrancois]

Re : 1 To Sheets.Count

C est bon , j ai inversé l ordre de tri de mes feuilles dans le classeur directement
bonne journée
E et F

 

[Pierrot93]

Re : 1 To Sheets.Count

Bonjour E et F

sinon peut être comme ceci :

For i = Sheets.Count To 1 Step -1

bonne journée
@+

 

[Evelynetfrancois]

Re : 1 To Sheets.Count

merci pierrot!!
E et F