Tri combobox

Résolu

COCOLASTICO29 Messages postés 7 Statut Membre -
COCOLASTICO29 Messages postés 7 Statut Membre - 7 mai 2015 à 09:46

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

Afficher la suite

A voir également:

1 réponse

Réponse 1 / 1

f894009 Messages postés 17413 Statut Membre 1 715

Bonjour,

un exemple : https://www.cjoint.com/c/EDdmwm86AlG

A+

COCOLASTICO29 Messages postés 7 Statut Membre

Merci beaucoup !

COCOLASTICO29 Messages postés 7 Statut Membre

Bonjour,

excusez moi mais lors de la compilation j'ai une erreur "Sub ou fonction non defini" avec le Private sub userforom au niveau dde la fonction "Call tri"

f894009 Messages postés 17413 Statut Membre 1 715 > COCOLASTICO29 Messages postés 7 Statut Membre

Bonjour,

voir MP

COCOLASTICO29 Messages postés 7 Statut Membre

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

Discussions similaires

Comment classer des noms par ordre alphabétique dans un tableau?

Tri les lettres d'un mot par ordre alphabétique

Trier un tableau en ordre alphabétique

Excel, classer par ordre alphabétique ?

liste de noms par ordre alphabétique

Votre réponse

Discussions similaires