Adapter le code pour rechercher plusieurs colonnes dans la f

bonjour cousinhub

voici le fichier tel que je l'ai modifié

Pascal

Hi,

Regarde le fichier joint, fais quelques tests, et si bugs, et que tu ne saisis pas tout dans le code, tu reviens.

bonne soirée

Bonjour cousinhub

Merci car cela me semble parfait, je continuerai plus tard de vérifier

pascal

Private Sub ComboBox1_Change()
Dim FStock As Worksheet
Set FStock = Sheets("Stock")
If Me.ComboBox1 <> "" Then
    Me.ComboRef.Clear
    ReInit
    Set C = FStock.Rows(2).Find(Me.ComboBox1)
    If Not C Is Nothing Then
        For I = 2 To FStock.Cells(Rows.Count, C.Column).End(xlUp).Row
            Me.ComboRef.AddItem FStock.Cells(I, C.Column - 3)
        Next I
    End If
End If
End Sub

Ok j'ai encore quelques raccourci a apprendre...