Vérification_tri de liste VBA Résolu/Fermé

Question

Bonjour, 

Ma plage de données s'étend de A6 à S20
Les 3 colonnes A,B,C sont normalement triées par d'ordre croissant.


En VBA, j'aimerai avec une condition (if), vérifier si le tri à bien été fait.

si ce n'est pas le cas : afficher un message qui invite à faire le tri.

Voila mon début:
        If "colonnes triées" ordre croissant = A,B,C Then
            'Si oui, afficher le message suivant à l'écran
            MsgBox ("Trier la liste")
            'Si oui, fin de la macro
            GoTo FIN
        End If



Je ne sais pas du tout comment commencer :S

Merci de votre aide

Patrice33740 · Answer

Ne serait-il pas plus simple de faire le tri directement avec la macro ?

dubol · Answer

C'est impossible ?

pijaku · Answer

Bonjour tout le monde,

Je rejoinds, bien évidemment, les collègues, bénévoles acharnés de ce site, qui te suggèrent, à juste titre, de trier et point barre. En effet, ton code VBA se résume alors à une seule ligne.
Pour l'exemple : 
Sub Tri()
Range("A1:S20").Sort Key1:=Range("A1" ), Order1:=xlAscending, Key2:=Range("B1" ), Order2:=xlAscending, Key3:=Range("C1" ), Order3:=xlAscending
End Sub
Tu peux tout à fait demander à l'utilisateur si c'est nécessaire de trier.
Pour l'exemple :
Sub DemandeSiTri()
Dim Reponse As Integer
Reponse = MsgBox("Voulez-vous trier ?", vbYesNo + vbQuestion, "Pijaku")
If Reponse = vbYes Then
    Range("A1:S20").Sort Key1:=Range("A1" ), Order1:=xlAscending, Key2:=Range("B1" ), Order2:=xlAscending, Key3:=Range("C1" ), Order3:=xlAscending
End If
End Sub
Sinon, tu peux aussi boucler sur chaque donnée contenue dans tes trois premières colonnes et tester si elle est "supérieure" à celle contenue dans la cellule située en dessous... 
Pour l'exemple :
Sub TestSitri()
Dim Tablo() As String
Dim Lig As Long, DrLig As Long
Dim j As Byte
Dim Reponse As Integer

With Sheets(1) 'A ADPATER!!!
    For j = 1 To 3
        DrLig = .Columns(j).Find("*", , , , xlByColumns, xlPrevious).Row
        ReDim Tablo(DrLig - 1)
        For Lig = 1 To DrLig
            Tablo(Lig - 1) = Cells(Lig, j)
        Next Lig

        For Lig = 0 To UBound(Tablo) - 1
            If Tablo(Lig) > Tablo(Lig + 1) Then
                Reponse = MsgBox("Voulez-vous trier ?", vbYesNo + vbQuestion, "Pijaku")
                If Reponse = vbYes Then
                    .Range("A1:S20").Sort Key1:=.Range("A1" ), Order1:=xlAscending, Key2:=.Range("B1" ), Order2:=xlAscending, Key3:=.Range("C1" ), Order3:=xlAscending
                End If
                Exit For
            End If
        Next Lig
    Next j
End With
End Sub
Tu vois, tout est possible, mais les demandes d'explications de mes collègues bénévoles sont ici fort bien justifiées.
N'est-il pas?

PS : il s'avère que par pure fainéantise de ma part, je n'ai pas testé ces codes... Je pense que cela doit fonctionner mais j'émets toutefois des réserves sur la partie "tri" de ces différents codes VBA.
De toutes façons : à adapter...

Vérification_tri de liste VBA

3 réponses

Discussions similaires