Discussion :

[Pierreschu]

Bonjour,

J'ai une liste de véhicules




et un userform avec 2 combobox.

Dans la premiere combobox il y a la marque de véhicules et dans la deuxième il y a le modèle du véhicule.

Le code pour afficher la première combobox avec la liste des véhicules est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub userform_initialize()
 
 
 Set f = Sheets("vehicules")
  Tbl1 = f.Range("A2:D" & f.[A65000].End(xlUp).Row).Value
  n = 0: Dim Tbl2()
  For i = 1 To UBound(Tbl1)
    If Tbl1(i, 1) <> "" Then
      n = n + 1
      ReDim Preserve Tbl2(1 To UBound(Tbl1, 2), 1 To n)
      For k = 1 To UBound(Tbl1, 2): Tbl2(k, n) = Tbl1(i, k): Next k
    End If
  Next i
  Me.louer_v.Column = Tbl2
 
End Sub

Je ne peux pas changer ce code car j'ai un userforme qui permet d'ajouter des véhicules.

Lorsque j'ai Deux véhicules de la même marque, par exemple Wv, j'aimerais qu'apparaisse dans la deuxième combobox uniquement les 2 modèles de chez VW. Je ne peux donc pas afficher la liste de la deuxième combobox avec Vlookup, puisqu'il y a deux modèles :/

J'ai essayer mais je n'y arrive pas. Quelqu'un pourrais il m'aider svp, cela dépasse mes compétences.