Tontoncarton, le forum,
Excusez-moi si je n'ai pas été sufisamment clair. Voici le code de ma macro:
Private Sub userform_initialize()
Dim ws As Worksheet
Dim i As Byte, j As Byte
Dim temp As String
Dim k As integer
Dim hauteur_listbox As Variant
'
chx_appareil.Caption = ThisWorkbook.Name
k = 0
For Each ws In Worksheets
If Left(ws.Name, 4) <> 'Accu' _
And Left(ws.Name, 3) <> 'His' _
And Left(ws.Name, 3) <> 'Tra' _
And Left(ws.Name, 3) <> 'Neg' _
And Left(ws.Name, 3) <> 'Jaq' _
And Left(ws.Name, 3) <> 'Alb' _
And Left(ws.Name, 3) <> 'Lis' _
And Left(ws.Name, 3) <> 'Mat' _
And Left(ws.Name, 3) <> 'NB ' _
And Left(ws.Name, 3) <> 'Ret' _
And Left(ws.Name, 3) <> 'Boi' _
And Left(ws.Name, 3) <> 'tab' _
And Left(ws.Name, 3) <> 'APA' _
And Left(ws.Name, 3) <> 'APN' _
Then ListBox1.AddItem ws.Name: k = k + 1
Next ws
For i = 0 To ListBox1.ListCount
For j = i + 1 To ListBox1.ListCount - 1
If ListBox1.List(i) > ListBox1.List(j) Then
temp = ListBox1.List(i)
ListBox1.List(i) = ListBox1.List(j)
ListBox1.List(j) = temp
End If
Next j
Next i
' Hauteur de la listbox
hauteur_listbox = k * 15.5
chx_appareil.CommandButton1.Top = 114 + hauteur_listbox
chx_appareil.CommandButton3.Top = 114 + hauteur_listbox
chx_appareil.Height = 168 + hauteur_listbox
'
End Sub
Voila
@+