[vba]faire correspondre 2 combobox Résolu/Fermé

Question

Bonjour, 
Je début en vba , je vous cite la situation de mon problème:

j'ai deux listes sur ma feuille excel , l'une avec les noms , l'autre juste a coté les prénoms,dans mon userform j'arrive a reprendre tous les noms dans une combobox1 et je voudrais dans une autre combobox2 que si je choisi un nom le prénom apparait, de plus si deux personnes on le même nom avoir les 2 prénoms dans la combobox 2 .
exemple 
Dupont Jean 
Durant paul
Dupont Pierre  
                                       combobox1 : Dupont
                                                               combobox2:  Jean
                                                                                    pierre

Et au final , savoir supprimé tout la ligne après le choix.

cousinhub29 · Answer

Bonsoir,

Un petit fichier exemple :

https://www.cjoint.com/?BBnu6OppwyV

Si plusieurs occurrences trouvées, elles sont toutes supprimées

Bonne soirée

oxydedefer · Answer

Merci pour ta réponse :D sa m 'aide déjà beaucoup ,mais lorsque je l 'inscrit dans mon code il bloque en erreur de compilation lors de l appel de la fonction call tri :s

cousinhub29 · Answer

Re-,

Tu as bien recopié le module1, qui contient la procédure de tri?

oxydedefer · Answer

Résolution pour ma part grâce a Cousinhub29 (merci a toi ;) , je post le code dans le futur quelqu'un en a besoin : Dim Cel As Range, C As Range Dim LesNoms As Object Dim PremNom As String Dim Tmp Private Sub ComboBox1_Change() Me.ComboBox2.Clear If Me.ComboBox1 <> "" Then For Each Cel In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) If Me.ComboBox1 = Cel.Value Then Me.ComboBox2.AddItem Cel.Offset(, 1).Value End If Next Cel End If End Sub Private Sub CommandButton1_Click() If Me.ComboBox1 <> "" And Me.ComboBox2 <> "" Then rep = MsgBox("Confirmez-vous la suppression?", vbYesNo, "Suppression du Client") If rep = vbNo Then Exit Sub With Plg supp: Set C = .Find(Me.ComboBox1, LookIn:=xlValues) If Not C Is Nothing Then PremNom = C.Address Do If C.Offset(, 1).Value = Me.ComboBox2 Then C.EntireRow.Delete GoTo supp End If Set C = .FindNext(C) Loop While Not C Is Nothing And C.Address <> PremNom End If End With Set Plg = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) LesNoms.RemoveAll For Each Cel In Plg LesNoms(Cel.Value) = Cel.Value Next Cel Tmp = LesNoms.Items Call tri(Tmp, LBound(Tmp), UBound(Tmp)) Me.ComboBox2.Clear Me.ComboBox1.List = Tmp Me.ComboBox1 = "" End If 'Unload Me End Sub Private Sub CommandButton2_Click() Unload Me End Sub Private Sub UserForm_Initialize() Set LesNoms = CreateObject("Scripting.Dictionary") Set Plg = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) For Each Cel In Plg LesNoms(Cel.Value) = Cel.Value Next Cel Tmp = LesNoms.Items Call tri(Tmp, LBound(Tmp), UBound(Tmp)) Me.ComboBox1.List = Tmp End Sub ---------------------------------------------------------- et le module du tri : Public Plg As Range Sub essai() UserForm1.Show End Sub Sub tri(a, gauc, droi) ' Quick sort de JBoisgontier ref = a((gauc + droi) \ 2) g = gauc: d = droi Do Do While a(g) < ref: g = g + 1: Loop Do While ref < a(d): d = d - 1: Loop If g <= d Then temp = a(g): a(g) = a(d): a(d) = temp g = g + 1: d = d - 1 End If Loop While g <= d If g < droi Then Call tri(a, g, droi) If gauc < d Then Call tri(a, gauc, d) End Sub

oxydedefer · Answer

Par contre cousinhub29 lorsque on surprime le dernier nom il me met une erreur 424 objet requis

cousinhub29 · Answer

Re-,

Effectivement, comme on supprime la plage de cellules nommée "Plg", on obtient cette erreur....

On peut passer outre en ajoutant cette ligne de code, qui vérifie si la cellule A2 n'est pas vide....

......
......
    With Plg
supp:
        If Range("A2").Value = "" Then End
        Set C = .Find(Me.ComboBox1, LookIn:=xlValues)
......
......


Peut-être....

[vba]faire correspondre 2 combobox

6 réponses

Discussions similaires