Algorithme de tri

Tatiana -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention - 19 sept. 2014 à 13:28

Bonjour,

je cherche un algorithme qui fait le tri par autre croissant d'une colonne Excel contenant 8760 Valeurs. J'arrive pas j'ai trouvé un code VBA qui le fait très bien mais je ne veux pas l'utiliser parce-que à chaque fois que je lance la simulation plusieurs onglet Excel circule et xa j'apprécie pas.
Merci de m'aider

Afficher la suite

A voir également:

Tri par insertion vba
Excel trier par ordre croissant chiffre - Guide
Logiciel tri photo - Guide
Touche insertion clavier - Guide
Insertion sommaire word - Guide
Insertion filigrane word - Guide

2 réponses

Réponse 1 / 2

Dolgan Messages postés 44 Date d'inscription Statut Membre Dernière intervention 12

Bonjour,

Pour avoir une idée du code VBA en ce qui concerne le tri d'une colonne par ordre croissant, tu peux créer une macro automatiquement en enregistrant la manipulation. Ensuite, tu adaptes le code selon ton besoin.

"... à chaque fois que je lance la simulation plusieurs onglet Excel circule et xa j'apprécie pas"
Je ne sais pas si nous parlons de la même chose, mais si c'est la cas, tu peux ajouter au début de ton code :

Application.ScreenUpdating = False

Cela masque tous les mouvements lors de l'exécution de ta macro, et donc la rend plus rapide.

Dolgan

Réponse 2 / 2

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

Bonjour,

L'algo de tri développé par Jacques Boisgontier (sur cette page) est un algorithme de tri rapide (quicksort en Anglais).
Pour en connaitre les bases, vous reportez à ce site

Supposons tes données en colonne A, de A1 à A8760, tu souhaites la restitution en colonne B :

Sub Principale()
Dim Tb(), i As Long, Temp()

'REMPLISSAGE DE LA VARIABLE TABLEAU
For i = 1 To 8760
    ReDim Preserve Tb(i - 1)
    Tb(i - 1) = Cells(i, 1)
Next i

'appel du tri
Call tri(Tb, LBound(Tb), UBound(Tb))

'RESTITUTION A ADAPTER LA COLONNE
Range("B1:B8760") = Application.Transpose(Tb)
End Sub

'sources : http://boisgontierjacques.free.fr/pages_site/Dictionnaire.htm
Sub tri(a, gauc, droi) ' Quick sort
  ref = a((gauc + droi) \ 2)
  g = gauc: d = droi
  Do
    Do While a(g) < ref: g = g + 1: Loop
    Do While ref < a(d): d = d - 1: Loop
    If g <= d Then
       Temp = a(g): a(g) = a(d): a(d) = Temp
       g = g + 1: d = d - 1
    End If
  Loop While g <= d
  If g < droi Then Call tri(a, g, droi)
  If gauc < d Then Call tri(a, gauc, d)
End Sub

Discussions similaires

Fonction Now en VBA

Accéder à un répertoire à partir de .GetOpenFilename

afficher la date du jour VBA

Macro Excel, execution interrompue

AutoFill jusqu'à la dernière cellule non vide

VBA Excel: Sélection par VBA de + de 2 critères d'un filtre auto

Votre réponse

Discussions similaires