Private Sub UserForm_Initialize()
Dim hwnd As Long
Dim i As Integer
'Dim T()
'Dim j As Long
hwnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) Or &H20000
hwnd = hwndFenetreForm(Me.Caption)
If hwnd <> 0 Then
'déclaration du listbox1 pour recevoir la gestion de la molette
Set ListbWheel = New ClCtrl
'... et initialisation
ListbWheel.Create ListBox1, hwnd
'idem avec le comboBox
Set ComboWheel = New ClCtrl
ComboWheel.Create ComboBox1, hwnd
MoletteEnable = CheckBMolette
End If
Application.ScreenUpdating = False
'ListBox1.ListIndex = 0
'ComboBox1.ListIndex = 0
'ListBox1.ColumnCount = 8
'ListBox1.ColumnWidths = "70;332;30;60;60;60;60;60"
T = Range("BDD")
'ListBox1.List = T
With ListBox1
.ColumnCount = 8
.ColumnWidths = "70;332;30;60;60;60;60;60"
.List = T
For i = 0 To ListBox1.ListCount - 1
.List(i, 7) = Format(.List(i, 7), "0.00")
Next i
End With
ComboBox1.RowSource = "Lots"
TextBoxRechLib.SetFocus
End Sub