Tri combobox

Résolu/Fermé

COCOLASTICO29 Messages postés 7 Date d'inscription vendredi 3 avril 2015 Statut Membre Dernière intervention 9 juin 2015 - 3 avril 2015 à 09:53
COCOLASTICO29 Messages postés 7 Date d'inscription vendredi 3 avril 2015 Statut Membre Dernière intervention 9 juin 2015 - 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

A voir également:

1 réponse

Réponse 1 / 1

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
3 avril 2015 à 12:09

Bonjour,

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

A+

COCOLASTICO29 Messages postés 7 Date d'inscription vendredi 3 avril 2015 Statut Membre Dernière intervention 9 juin 2015
3 avril 2015 à 15:50

Merci beaucoup !

COCOLASTICO29 Messages postés 7 Date d'inscription vendredi 3 avril 2015 Statut Membre Dernière intervention 9 juin 2015
9 avril 2015 à 09:59

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 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710 > COCOLASTICO29 Messages postés 7 Date d'inscription vendredi 3 avril 2015 Statut Membre Dernière intervention 9 juin 2015
9 avril 2015 à 11:55

Bonjour,

voir MP

COCOLASTICO29 Messages postés 7 Date d'inscription vendredi 3 avril 2015 Statut Membre Dernière intervention 9 juin 2015
7 mai 2015 à 09:46

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

comment mettre en ordre alphabétique

"L'indice n'appartient à la sélection" + VBA

Amis sur facebook dans le desordre ?