Bonjour à tous,
vous verrez dans le fichier joint un USF en page 2 avec trois liste déroulante. Ma demande n'est pas bien compliquée en effet voici le code que j'ai actuellement:
Private Sub CbBMarques1_Change()
' Vider la combobox des modèles avant de la remplir
Me.ComboBox1.Clear
Me.ComboBox3.Clear
' Vider la Listbox des options et prix
Me.ListBox1.Clear
' Pour chaque marque de la zone
For Each Cel In Range("Marques")
If Cel = Me.CbBMarques1 Then
Me.ComboBox1.AddItem Cel.Offset(2, 0).Value
Me.ComboBox3.AddItem Cel.Offset(1, 0).Value
End If
Next Cel
End Sub
Le problème c'est que pour ma première ListBox j'ai les marques, dans la deuxième les modèles et la troisième les motorisations.
Ce que j'aimerai c'est avoir les motorisations en fonction des modèles comme j'ai les modèles en fonction des marques.
Cependant je n'arrive pas car j'ai pour la Mii ou La Up, le modèle se décrit autant de fois qu'il est présent dans la base de données or j'aimerai ne l'avoir qu'une fois ( c'est à dire supprimer les doublons).
Merci pour votre aide
vous verrez dans le fichier joint un USF en page 2 avec trois liste déroulante. Ma demande n'est pas bien compliquée en effet voici le code que j'ai actuellement:
Private Sub CbBMarques1_Change()
' Vider la combobox des modèles avant de la remplir
Me.ComboBox1.Clear
Me.ComboBox3.Clear
' Vider la Listbox des options et prix
Me.ListBox1.Clear
' Pour chaque marque de la zone
For Each Cel In Range("Marques")
If Cel = Me.CbBMarques1 Then
Me.ComboBox1.AddItem Cel.Offset(2, 0).Value
Me.ComboBox3.AddItem Cel.Offset(1, 0).Value
End If
Next Cel
End Sub
Le problème c'est que pour ma première ListBox j'ai les marques, dans la deuxième les modèles et la troisième les motorisations.
Ce que j'aimerai c'est avoir les motorisations en fonction des modèles comme j'ai les modèles en fonction des marques.
Cependant je n'arrive pas car j'ai pour la Mii ou La Up, le modèle se décrit autant de fois qu'il est présent dans la base de données or j'aimerai ne l'avoir qu'une fois ( c'est à dire supprimer les doublons).
Merci pour votre aide