Discussion :

[babou466]

bonjour à tous,
j'ai un soucis de codage au niveau d'un tri des valeurs de la première colonne (sachant que j'échange les lignes complètes), est ce que quelqu'un pourrait m'aider par hasard? merci, et bonne journée
voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'on trie ce tableau par ordre croissant en fonction de la somme des avaries, donc de la première colonne:
For NumLigneTab = 3 To DerniereLigneTab
    If tableau(NumLigneTab, 1).Value < tableau(NumLigneTab + 1, 1) Then
        'on doit inverser les deux lignes entières du tableau
        For NumColonneTab = 1 To DerniereColonneTab
           X = tableau(NumLigneTab, NumColonneTab)
           tableau(NumLigneTab, NumColonneTab) = tableau(NumLigneTab + 1, NumColonneTab)
           'et on recompare la valeur X stockée avec les valeurs suivantes afin de savoir ou la mettre
           For NumLigneTab = 2 To DerniereLigneTab
                If X < tableau(NumLigneTab + 1, 1) Then
                    tableau(NumLigneTab, NumColonneTab) = tableau(NumLigneTab + 1, NumColonneTab)
                Else
                    tableau(NumLigneTab, NumColonneTab) = X
                    Exit For
                End If
           Next NumLigneTab
        Next NumColonneTab
    End If
Next NumLigneTab

[drakkar_agfa]

Bonjour,

Peux-tu nous expliquer comment ton code fonctionne et où est l'erreur et/ou problème?

Nous serons plus en mesure de t'aider.

Merci

[Godzestla]

Est-ce nécessaire d'utiliser VBA pour ce tri ?

[babou466]

c'est nécessaire en effet car Je ne veut pas trier un tableau afficher sur une page Excel, mais bien un tableau de stockage, je voudrait afficher simplement le résultat une fois trié…

[Godzestla]

Et pourquoi pas l'afficher et puis le trier juste derrière ?

Ca gêne ?

Car si c'est ok, tu démarres l'enregistreur de macro, tu tries, et tu récupères le code qui marche pour le tri.

C'est juste que pour moi, quand on peut faire simple, on a TOUJOURS avantage.

[babou466]

en fait oui c'est assez génant...j'ai ma feuille qui peut contenir énormément de données...mais dans le pir des cas je ferais ainsi, et je le supprimerai pour qu'il ne soit plus visible à la limite...merci por l'idée!

[Godzestla]

Rebonjour,

je voudrait afficher simplement le résultat une fois trié…

je ne te suis pas bien car si tu affiches de toute manière, je ne comprends pas bien ta préoccupation.

Bonne journée.

[babou466]

en fait c'est un peu plus compliqué que ça, j'ai un autre traitement à faire avant de l'afficher, en l'occurence il faut que je le dispose d'une certaine manière en fonction d'un seuil...