[vba]faire correspondre 2 combobox
Résolu
oxydedefer
-
cousinhub29 Messages postés 1129 Date d'inscription Statut Membre Dernière intervention -
cousinhub29 Messages postés 1129 Date d'inscription Statut Membre Dernière intervention -
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.
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.
A voir également:
- [vba]faire correspondre 2 combobox
- Supercopier 2 - Télécharger - Gestion de fichiers
- Faire 2 colonnes sur word - Guide
- 2 ecran pc - Guide
- Whatsapp 2 - Guide
- Gta 6 trailer 2 - Guide
6 réponses
Bonsoir,
Un petit fichier exemple :
https://www.cjoint.com/?BBnu6OppwyV
Si plusieurs occurrences trouvées, elles sont toutes supprimées
Bonne soirée
Un petit fichier exemple :
https://www.cjoint.com/?BBnu6OppwyV
Si plusieurs occurrences trouvées, elles sont toutes supprimées
Bonne soirée
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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....
Peut-être....
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....
