Tri de tableau

Bonjour à tous

Tout d'abord je vous souhaite à tous de très bonnes fêtes de fin d'années et pleins de bonnes choses pour l'année 2017.

Voici mon soucis :

Je souhaiterais que les données qui se trouvent dans ma listbox soient automatiquement mise par ordre alphabétique..... mais je n'y arrive pas.

J'ai eu beau chercher, tester, invoquer et même prier....rien n'y fait.

C'est pourquoi vous êtes mon dernier espoir.....

Tu ne peux pas appeler la macro en cliquant sur ta liste.

Crée un bouton à part et lance la macro suivante :

Sub Tri()
    Dim LastRow As Long
    LastRow = Sheets("Données").Range("E2").End(xlDown).Row

    ActiveWorkbook.Worksheets("Données").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Données").Sort.SortFields.Add Key:=Range("E2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Données").Sort
        .SetRange Range("A2:Y" & LastRow)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub

Bonjour

Merci pour ta réponse. je vais la tester immédiatement et te tiendrait informé.

Alors après quelques tests, cela me mélange tout.... Je ne comprends pas. Dans un module j'y ai placé ma fonction TRI, avec un bouton je l'appelle et hop tout se mélange comme à la loterie.....

Je vous mets en pièce jointe le fichier. Pour les bonnes âmes.....

Ton sub tri ne ressemble pas à ce que j'ai proposé.

Quel bouton l'actionne ?

J'ai ré-essayé ce que j'avais proposé, cela fonctionne !

Je pense que je ne dois pas savoir m'en servir.....lollll

Lorsque j'entre par exemple un nouveau client que j'appelle A et que je lui mets des A dans chaque textbox, que je fais la meme chose avec des B, des Y et que je demande le tri, il me trie effectivement la liste box. Par contre les fonctions recherche a côté ne fonctionne plus du tout, les données sont complètement incohérentes......

C'est donc un autre sujet maintenant !

1- tu prends de gos risques avec

=RECHERCHEV(B29;Données!A:ZZ;6)

Il FAUT mettre le dernier paramètre (même s'il est optionnel)

=RECHERCHEV(B29;Données!A:ZZ;6;0)

2- mets plutôt

=DECALER(Données!$A$1;$B$29-1;5)

ou si tu préfères :

=INDEX(Données!F:F;$B$29)

à reproduire sur le reste

cagouille65 a écrit :

J les fonctions recherche a côté ne fonctionne plus du tout, les données sont complètement incohérentes......

parce qu'il manquait le dernier paramètre de RECHERCHEV

Un grand merci à toi. Ca marche super bien, je suis ravi. Merci encore