Autres classement alpha d'un tableau entier

[hervoul]

bonjour,
j'aimerais classer mon tableau en ordre alpha de A6 à GX102
Vous allez dire que ça a déjà été traité.
Oui j'ai la macro mais lorsque je l'utilise tout est classé a partir de la dernière ligne...
je comprends pas 🤨🤔, ça fait 1 heure que j'essaye...
je vous donne donc en PJ le fichier et plutôt que de "rafistoler" une macro bancale, je vous demande s'il est possible que vous vous y mettiez votre propre solution....
merci d'avance.
RV

 

[sylvanu]

Bonjour Hervoul,
Les formules du type :

='F:\Fichiers\Hervé\Boulot\BOULOT- 2023-24\UNSS 23-24\[appel VB 2023-24 - LYCEE.xls]Saisie'!A29

renvoient 0 si la cellule lue à un contenu vide.
( il vous suffit dans une cellule "vide" de faire un copier coller valeur pour voir que le résultat vaut 0.)
Donc quand vous triez en alpha, comme le 0 passe avant le "a" il se trouve en premier.
Un essai en PJ avec :

Sub Tri()
    Application.ScreenUpdating = False
    For L = 6 To 102    ' recherche de la première cellule qui contient 0
        If Cells(L, "A") = 0 Then Exit For
    Next L
    Range("A5:GX" & L - 1).Resize(L - 6).Sort key1:=Range("A5"), order1:=xlAscending, Header:=xlYes
    ' L-1 car on prend la dernière cellule qui ne contient pas 0, et L-6 car le tableau commence en 5 donc L-1-5=L-6
End Sub

 

[hervoul]

merci..
j'associe la macro au bouton bien sur ?
je regarde ça...
merci bcp anyway !
RVoul

 

[sylvanu]

j'associe la macro au bouton bien sur ?

Ou directement en cliquant sur la cellule C1, voir PJ avec la macro Worksheet_SelectionChange.

 

[hervoul]

ok ça roule ...merciiiiiiiii