il se pourrait que le nom de la fiche soit l'immatriculation. ainsi en entrant les 03 premiere lettres de l'immatriculation, l'immatriculation pourra s'afficher dans la combo
Cela veut dire que vous pouvez avoir des doublons dans la colonne B. Dans ce cas remplacez le code initialize proposé avant pour l'ouverture de l'userfom1 et qui va remplir la combobox2 "depot"
Private Sub UserForm_Initialize()
Dim Tablo As Collection
Dim cel As Range
With Sheets("depot")
Set Tablo = New Collection
On Error Resume Next
For Each cel In .Range("B2:B" & .Range("B" & .Rows.Count).End(xlUp).Row)
Tablo.Add cel.Value, CStr(cel.Value)
Next cel
On Error GoTo 0
For Each Item In Tablo
ComboBox2.AddItem Item
Next Item
End With
End Sub
Je regarde pour la combobox1
EDIT : Voici pour la combobox1. Elle se remplira en fonction de votre choix dans la combobox 2
Private Sub ComboBox2_Change()
Dim Lig As Integer
Dim cel As Range
ComboBox1.Clear
With Sheets("depot")
For Each cel In .Range("A2:A" & .Range("A" & .Rows.Count).End(xlUp).Row)
If .Range("B" & cel.Row).Value = ComboBox2.Value Then
ComboBox1.AddItem .Range("A" & cel.Row).Value
End If
Next cel
End With
End Sub
NB : Cela aurait été bien d'inverser le nom nommer votre combobox2 en combobox1 (et inversément) vu que c'est la 2 que vous utilisez en premier dans l'userform...