2 combobox

[pasquetp]

Bonjour,

j'essaye d'avoir deux combobox mais un ne marche pas

Voici un fichier

mettez d'abord le domaine

puis tentez de mettre l'operation et on voit que ca marche pas

l'objectif:

que en fonction de ce que je prend en domaine cela filtre pour le second combo

Auriez vous une idée

le code utilisé ne marche pas:

Private Sub domaine_AfterUpdate()
' Effacer le choix de la ville
Me.op.ListIndex = -1
' Effacer la combobox avant d'ajouter des données
' Me.op.Clear
' Avec la feuille source

' Mémoriser le code postal sélectionné
sCP = Me.domaine
' Trouver la dernière ligne du tableau des villes
DLig = Sheets("liste").Range("D" & Rows.Count).End(xlUp).Row
' Pour chaque ligne
For Lig = 2 To DLig
' Vérifier si le code postal correspond à celui sélectionné
If Sheets("liste").Range("C" & Lig) = sCP Then
Me.op.AddItem Sheets("liste").Cells(Lig, 3)
End If
Next Lig

End Sub

un grans merci par avance

 

[phlaurent55]

Re : 2 combobox

Bonjour pasquetp,

le fichier joint ne correspond pas à la question posée

à+
Philippe

 

[Paf]

Re : 2 combobox

Bonjour à tous,

dans la ligne:

If Sheets("liste").Range("C" & Lig) = sCP Then

le test n'est pas fait sur la bonne colonne; il faudrait :

If Sheets("liste").Range("D" & Lig) = sCP Then

Par ailleurs le commentaire du code ne favorise pas du tout la compréhension!!

Bonne suite

 

[pasquetp]

Re : 2 combobox

Bonjour Paf,

vous etes génial

Ca marche au poil.

dsl pour les commentaires. je vous remercie bcp pour votre aide

grace a vous, mes comptes seront plus faciles a gérer

J'aurais une petit dernière question si ca ne vous dérange pas

voila quand vous cliquez sur domaine, on voit plein de doublon

y aurait il moyen de ne pas avoir de doublon dans la liste déroulante?

Je vous remercie par avance de votre aide précieuse

 

[Dranreb]

Re : 2 combobox

Bonsoir
Je vous suggèrerais de récupérer mon module de classe ComboBoxLiés dans un de mes messages…

 

[Paf]

Re : 2 combobox

bonjour à tous,

deux solutions pour les doublons dans la combobox domaine:

la plus simple ; créer une liste sans doublons sur la même feuille et modifier la RowSource dans la Sub UserForm_Initialize()

charges.domaine.RowSource = "liste!d4:d5000"

et rien d'autre à changer.

la deuxième nécessite un code comportant deux boucles pour récupérer une liste sans doublon

peut-être existe-il d'autres solutions ?

Bonne suite