TRI D'UN TABLEAU DE VALEUR DANS L'ORDRE CROISSANT

Commentaire de manroww le 05/05/2011 15:33:38

Bonjour,

Si J'ai bien compris ta volonte de Benbax, tu voulais presenter a la fois la possibilite de tri croissant, et celle pour un tri decroissant ?
J'ai ecrit le code en consequence, inspire du tiens.
Il suffit de uncomment le tri decroissant, et comment le tri croissant pour inverser l'ordre :-)

Sub tri()
    
    Dim i           As Byte
    Dim j           As Byte
    
    Dim tmp         As Byte
    Dim tmpMin      As Byte
    Dim tmpMax      As Byte
    
    Dim tableau(10) As Byte
    
    Dim invert As Boolean
    
    
'    ***** POUR L'EXEMPLE  **************************************
    'Considérons que le tableau est plein de valeurs aléatoires....
    
        tableau(1) = 5
        tableau(2) = 3
        tableau(3) = 46
        tableau(4) = 7
        tableau(5) = 2
'   **************************************************************



    Do
        
        invert = False
        
        For i = 1 To 4
            

'             ******** Ordre CROISSANT ***********
              If tableau(i) > tableau(i + 1) Then

                   tmpMax = tableau(i)
                   tableau(i) = tableau(i + 1)
                   tableau(i + 1) = tmpMax
                   invert = True

              End If
'            *************************************
              
              
              
''             ******** Ordre DECROISSANT *********
'
'              If tableau(i) < tableau(i + 1) Then
'
'                   tmpMin = tableau(i + 1)
'                   tableau(i + 1) = tableau(i)
'                   tableau(i) = tmpMin
'                   invert = True
'
'              End If
'
''             *************************************
        
         Next i
    
    Loop While invert



'***** POUR L'EXEMPLE  *********
    
    For i = 1 To 5
        
        Debug.Print tableau(i)
    
    Next i
    
'*******************************


End Sub