Combobox en cascade

Bonjour

Sur mon formulaire j'ai deux combobox et j'aimerai faire une recherche en cascade je m'explique

Sur la combobox1 je recherche la colonne qui se trouve sur la première ligne "A1:R1" soit par Nom, N°, Date ect. et je voudrais si possible que dans la deuxième combobox finaliser ma recherche ex: Si je recherche par le Nom dans la combobox2 j'aurais tous les noms de la colonne "E" ect....

Je vous remercie de votre aide

Cordialement

Max

Bonjour

A vérifier

Bonjour Banzai64

Nickel je te remercie beaucoup.

Peut tu me dire pourquoi la recherche du N° de la ligne ne fonctionne pas alors que j'ai mis ceci

Label151 = ListBox1.ListIndex + 6

Je te remercie et te souhaite une bonne journée

Max

Bonjour

Quand tu alimentes ta ListBox en colonne 2 tu notes le numéro de ligne (car tu ne récupères pas toutes les informations de la colonne voulue)

Pour afficher le bon numéro de ligne tu dois utiliser la variable L

Private Sub ListBox1_Click()
    Dim L As Long
    If ListBox1.ListIndex = -1 Then Exit Sub
    [surligner=#FFFF80]L = ListBox1.List(ListBox1.ListIndex, 1)
    With Sheets(Ws)
        TextBox1 = .Cells(L, 1)    ' Ref
        TextBox2 = .Cells(L, 2)    ' N°
        TextBox3 = .Cells(L, 3)    ' Date
        TextBox4 = .Cells(L, 4)    ' N° Facture
        TextBox5 = .Cells(L, 5)    ' Nom
        TextBox6 = .Cells(L, 7)    ' Adresse
        TextBox7 = .Cells(L, 8)    ' Cp
        TextBox8 = .Cells(L, 9)    ' Ville
        TextBox10 = .Cells(L, 10)    ' Tél
        TextBox11 = .Cells(L, 14)    ' H.T
        TextBox12 = .Cells(L, 12)    ' T.V.A
        TextBox13 = .Cells(L, 18)    ' T.V.A

    End With
    'CommandButton6.Enabled = False
    'CommandButton2.Enabled = True
   ' CommandButton3.Enabled = True
'Label151 = ListBox1.ListIndex + 8
Label151 = L
End Sub

Re,

Je te remercie beaucoup Nickel

Bonne journée

Max