Bonjour,
J'ai besoin d'un petit coup de main. J'ai essaie de coder dans un combox une liste déroulante.
Cela fonctionne bien. Voici le code:
Private Sub ComboBox1_Change()
End Sub
Private Sub CommandButton1_Click() 'Validation du choix
Range("D7").Value = ComboBox1
Vendor_list.Hide
End Sub
Private Sub Userform_Initialize() 'à l'initialisatiopn de l'Userform
With Sheets("Générateur") 'prend en compte l'onglet "Générateur"
Me.ComboBox1.List = .Range("A2:A" & .Range("A100").End(xlUp).Row).Value 'remplissage de la ComboBox "Vendor"
End With
End Sub
Private Sub CommandButton2_Click()
Vendor_list.Hide
End Sub
Je veux l'améliorer selon les conditions suivantes:
1-Mettre la liste déroulante en ordre alphabétique, sans 0 et sans case vide.
2- La liste se met à jour automatique si j'ajoute un autre # de vendor (en A13).
3- Peut importe le changement, la liste est mise à jour pour que l'utilisateur puisse voir la liste à jour.
4- Supprimer les doublons, s'il y en a dans la liste qui est mise à jour. Possibilité du même vendor pour 2 numéros de modèles.
Copy & paste pour la liste des modèles.
Private Sub ComboBox1_Change()
End Sub
Private Sub CommandButton2_Click() 'Validation du choix
Range("D8).Value = ComboBox2
Model.Hide
End Sub
Private Sub Userform_Initialize() 'à l'initialisatiopn de l'Userform
With Sheets("Générateur") 'prend en compte l'onglet "Générateur"
Me.ComboBox2.List = .Range("B2:B" & .Range("B1000").End(xlUp).Row).Value 'remplissage de la ComboBox "Vendor"
End With
End Sub
Private Sub CommandButton2_Click()
Model.Hide
End Sub
Je suis bloqué. Je laisse un fichier pour bien comprendre.
Merci
Cydor