Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Savoir si une liste est triée par ordre alphabétique ou pas

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Magic_Doctor

XLDnaute Barbatruc
Supporter XLD
Bonsoir,

J'ai une liste sur une seule colonne.
Je voudrais savoir comment on peut vérifier si le tri de cette liste l'est par ordre alphabétique ou pas.

Merci pour votre aide.
 
Trier par date Trier par votes
Re : Savoir si une liste est triée par ordre alphabétique ou pas

Bonjour Magic_Doctor 😉

Si la liste est triée, la cellule de dessous est supérieure à celle en cours
Donc il suffit de faire une boucle et de tester jusqu'au bout si la cellule suivante est bien supérieure à celle en cours

Ou sinon, faire automatiquement un tri

A+
 
Vote positif 0 Vote négatif
Re : Savoir si une liste est triée par ordre alphabétique ou pas

Bonsoir Magic_Doctor, Bruno,

Si la plage à étudier est nommée Liste, utilise cette formule :

Code: 
="Liste "&REPT("non ";SIGNE(SOMMEPROD(N(DECALER(Liste;;;NBVAL(Liste)-1)>DECALER(Liste;1;;NBVAL(Liste)-1)))))&"triée"
A la place du nom Liste on peut tout aussi bien mettre sa référence.

A+
 
Vote positif 0 Vote négatif
Re : Savoir si une liste est triée par ordre alphabétique ou pas

Re,

S'il y a des textes vides "" dans Liste utiliser :

Code: 
="Liste "&REPT("non ";SIGNE(SOMMEPROD(N(DECALER(Liste;;;NB.SI(Liste;"><")-1)>DECALER(Liste;1;;NB.SI(Liste;"><")-1)))))&"triée"
A+
 
Vote positif 0 Vote négatif
Re : Savoir si une liste est triée par ordre alphabétique ou pas

Bonjour job,

Gracias pour ta réponse. Je conserve tes formules au cas où j'en aurais besoin, n'étant pas très à l'aise avec les formules.
Je signale que, pour les chiffres (sait-on jamais...), la 1ère formule marche apparemment mieux que la seconde ; du moins dans mes essais.
Seulement, voilà, je voudrais faire ce test non pas par formules mais par macro. Et je ne vois pas comment, en VBA, je peux comparer les cellules qui se succèdent tout au long d'un tableau en fonction de leur, disons, chronologie alphabétique.
 
Vote positif 0 Vote négatif
Re : Savoir si une liste est triée par ordre alphabétique ou pas

Re Magic_Doctor, bonsoir 00 🙂

Ma 2ème formule (avec NB.SI) ne fonctionne que sur des valeurs textes.

On peut bien sûr utiliser une fonction VBA :

Code: 
Function TEST(liste As Range) As String
Dim i&
For i = 2 To liste.Count
  If liste(i) <> "" Then If liste(i - 1) > liste(i) _
    Or liste(i - 1) = "" Then TEST = "Liste non triée": Exit Function
Next
TEST = "Liste triée"
End Function
Fichier (2).

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Savoir si une liste est triée par ordre alphabétique ou pas

Re,

Bonsoir le forum, Job, tout le monde et "double zero",

J'ai testé, j'aime bien, c'est simple et efficace.

Ps1 en hommage à un MP qui m'avait touché
Ps2 pas dit que les autres solutions n'étaient pas bien ! 😱
 
Vote positif 0 Vote négatif
Re : Savoir si une liste est triée par ordre alphabétique ou pas

Re, salut Gardien de phare,

J'ai enfin testé ta solution DoubleZero.

Elle est excellente car elle effectue une comparaison avec un tri effectif.

Plus de problème avec les textes vides (qui se retrouvent en tête avec un tri croissant).

A+
 
Vote positif 0 Vote négatif
Re : Savoir si une liste est triée par ordre alphabétique ou pas

Bonsoir le fil 😉

Sinon le code dont j'avais parlé au début
Code: 
Option Compare Text

Sub BrunoM45TriOuiNon()
  Dim DLig As Long, Lig As Long
  DLig = Range("A" & Rows.Count).End(xlUp).Row
  For Lig = 2 To DLig
    If Range("A" & Lig + 1) < Range("A" & Lig) Then Exit For
  Next Lig
  If Lig < DLig Then MsgBox "Tri non effectué" Else MsgBox "Tri effectué"
End Sub

Effectivement il ne faut par oublier : Option Compare Text

A+
 
Vote positif 0 Vote négatif
Re : Savoir si une liste est triée par ordre alphabétique ou pas

Re,

Finalement il faut utiliser IsEmpty :

Code: 
Function TEST(liste As Range) As String
Dim i&
For i = 2 To liste.Count
  If Not IsEmpty(liste(i)) Then If liste(i - 1) > liste(i) _
    Or IsEmpty(liste(i - 1)) Then TEST = "Liste non triée": Exit Function
Next
TEST = "Liste triée"
End Function
Fichier (3).

Edit pour Bruno : OK pour Option Compare Text si l'on ne veut pas tenir compte de la casse.

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Savoir si une liste est triée par ordre alphabétique ou pas

Re,

Je te signale que Magic_Doctor n'a pas parlé de "Casse"
Mais pourquoi faire simple quand on peut faire compliquer 😉
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Récupérer la liste d'un field d'une feuille dans combobox
Réponses
5
Affichages
180
xhudi69
A
  • Question Question
XL 2021 listbox
2
Réponses
18
Affichages
503
Dranreb
B
  • Question Question
XL 2019 trouver le plus grand numéro
Réponses
11
Affichages
573
Blafi
B
N
  • Résolu(e)
Microsoft 365 Trie croissant par ligne
Réponses
4
Affichages
133
sylvanu
A
  • Question Question
Microsoft 365 Vérifier si un texte existe dans une cellule contenant une liste
Réponses
9
Affichages
351
arzac
A
Y
  • Question Question
XL 2021 Liste déroulante filtrée par les 2 premiers caractères
2
Réponses
28
Affichages
676
Dudu2
T
  • Question Question
Microsoft 365 Identifier si une cellule contient une valeur parmi une liste de valeur
Réponses
5
Affichages
253
TRANSPLANT69
T
A
  • Question Question
XL 2010 Problème ou alternative à SOMPRODUCT en VBA
Réponses
14
Affichages
562
bruno lemaire
B
S
  • Question Question
Microsoft 365 Trouver les correspondances de mots entre deux listes
2
Réponses
26
Affichages
736
Sylvaing
S
C
  • Question Question
Microsoft 365 Liste déroulante dynamique / dépendante d'un critère ou plus, *sans* VBA ? Une sorte d'Unique à conditions ? + ordre alpha ?
Réponses
8
Affichages
286
JHA
J
J
  • Question Question
Microsoft 365 Sélectionner plage nommée via un comboBox
Réponses
3
Affichages
321
fanfan38
  • Résolu(e)
Microsoft 365 Tri liste - répartition égale
Réponses
12
Affichages
454
La_Mouette
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
249
mikeduff
M
M
  • Question Question
Microsoft 365 Carte géogrpahique
Réponses
6
Affichages
287
Mak_
M
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
3 K
cathodique
M
  • Résolu(e)
XL pour MAC Création d'une liste (non déroulante)
Réponses
3
Affichages
203
Blackfwolf
B
G
  • Résolu(e)
XL 2019 Trier par ordre alphabétique de gauche à droite
Réponses
7
Affichages
502
Goffy
G
D
  • Résolu(e)
Microsoft 365 chercher une cellule de couleur rouge dans une colonne
Réponses
4
Affichages
314
sylvanu
  • Question Question
Microsoft 365 Bug liste de validation sur fichier de menu/Repas
2
Réponses
17
Affichages
764
ChTi160
P
  • Résolu(e)
XL 2019 Tri sur une ligne dans un tableau.
Réponses
4
Affichages
270
Paulle
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…