Bonjour
Afin d’alimenter ta combobox CboChercher Peux tu utiliser le code suivant à copier dans Private Sub UserForm_Initialize()
Dim Cel As Range
Dim strtemp As String
Dim i As Byte, j As Byte
For Each Cel In Feuil1.Range(“B2:B” & Feuil1.Range(“A” & Feuil1.Rows.Count).End(xlUp).Row)
Me.Cbochercher.AddItem Cel.Value
Next Cel
With Me.Cbochercher
For i = 0 To .ListCount - 1
For j = 0 To .ListCount - 1
If .List(i) < .List(j) Then
strtemp = .List(i)
.List(i) = .List(j)
.List(j) = strtemp
End If
Next j
Next i
End With
End Sub
Ou celui la pour éviter addItem
Private Sub UserForm_Initialize()
'Dim f
'Set f = Sheets(“source”)
Me.Cbochercher.ColumnCount = 2
Me.Cbochercher.ColumnWidths = “20;20000”
'Me.Cbochercher.List = f.Range(“A3:B” & f.[A65000].End(xlUp).Row).Value
Me.Cbochercher.List = [tableau1].Value
End Sub