Tri combobox
Résolu
Bonjour;
Étant débutant en VBA, j'aimerais savoir comment trier entre deux textbox plusieurs valeurs...
Je m'explique!
J'ai sur mon tableur excel un formulaire de plusieurs colonnes définies. (chaque colonne a une liste que j'ai définie)
Dans ma première colonne se trouvent des noms qui peuvent se repeter plusieurs fois car dans une autre colonne se trouvent des dates qui peuvent changer mais sont suivant les lignes correspondantent au même nom...
NOM Date
Arnaud 20.10.2013
Marie 20.10.2013
Arnaud 25.10.2014
Lucien 01.12.2013
Jean 26.03.2014
Arnaud 28.06.2015
Arnaud 21.08.2015
Marie 13.02.2011
Dans mon userform j'aimerais que dans ma combobox " nom" quand je choisis Arnaud par exemple je puisse avoir le choix dans la combobox "Date" des différentes dates qui lui correspondent j'espère avoir été assez précis ...
Ps : la saisi dans la liste ce fait de tel maniére et je ne peux changer cela style cascade..
Cordialement,
COCO
Étant débutant en VBA, j'aimerais savoir comment trier entre deux textbox plusieurs valeurs...
Je m'explique!
J'ai sur mon tableur excel un formulaire de plusieurs colonnes définies. (chaque colonne a une liste que j'ai définie)
Dans ma première colonne se trouvent des noms qui peuvent se repeter plusieurs fois car dans une autre colonne se trouvent des dates qui peuvent changer mais sont suivant les lignes correspondantent au même nom...
NOM Date
Arnaud 20.10.2013
Marie 20.10.2013
Arnaud 25.10.2014
Lucien 01.12.2013
Jean 26.03.2014
Arnaud 28.06.2015
Arnaud 21.08.2015
Marie 13.02.2011
Dans mon userform j'aimerais que dans ma combobox " nom" quand je choisis Arnaud par exemple je puisse avoir le choix dans la combobox "Date" des différentes dates qui lui correspondent j'espère avoir été assez précis ...
Ps : la saisi dans la liste ce fait de tel maniére et je ne peux changer cela style cascade..
Cordialement,
COCO
1 réponse
-
-
-
-
-
Avant tout merci,
Cependant j'ai un petit probléme que je n'arrive pas à comprendre
L'enregistrement de mes données par collone et ligne se fait via un deuxiéme userform par la trame suivant
Sheets("feuil1").Activate
Range("C" & Range("C" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox1.Value
Range("D" & Range("D" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox2.Value
Range("E" & Range("E" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = ComboBox1.Value
Range("G" & Range("G" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox3.Value
Range("I" & Range("I" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox5.Value
Range("J" & Range("J" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox4.Value
Range("K" & Range("K" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox6.Value
Range("H" & Range("H" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = ComboBox2.Value
Range("L" & Range("L" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = ComboBox3.Value
Range("M" & Range("M" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox7.Value
Cela fonctionne parfaitement...
Mais lorsque je veux faire le tri entre mes differentes combobox dans mon premier userform un probléme survient ...
'TRI PROSPECT -> UPDATE
With Worksheets("feuil1")
derlig = .Range("G" & Rows.Count).End(xlUp).Row
Plage = .Range("G6:G" & derlig)
Set Dico_Nom = CreateObject("Scripting.Dictionary")
For x = 1 To UBound(Plage, 1)
Dico_Nom(Plage(x, 1)) = ""
Next x
TMP = Dico_Nom.Keys 'Table sans doublon
Call tri(TMP, LBound(TMP, 1), UBound(TMP, 1)) 'tri alphabétique
ComboBox1.List = TMP
End With
Le bug survient à la ligne "For x=1 To UBound(Plage,1) "
Je ne vois pas d'ou vient le probléme ..
Cordialement
-
