Discussion :

[Biowave]

Bonjour,
J'ai par exemple, les trois tableaux suivants :

59 62 30 30
21 24 21 40
47 7,75 13 5
8 57 11 5

8 17 13 12
12 14 2 17
7 10 14 9
3 2 6 8

9 9 3 4
10 9 9 5
3 10 9 6
1 9 7 9

La première valeur du tableau 1 est liée (par sa position) à la première valeur du tableau 2, la première valeur du tableau 3 est également liée à la première valeur du tableau 1. Ce qui signifie que si je trie par ordre croissant la première ligne du tableau 1
30 30 59 62 1ère ligne tableau 1
Les premières lignes des deux autres tableaux doivent suivre (sans tri) ce changement de position de la façon suivante:
13 12 8 17 1ère ligne tableau 2
3 4 9 9 1ère ligne tableau 3
On classe la 2ème ligne du tableau 1:
21 21 24 40 2ème ligne tableau 1
12 2 14 17 2ème ligne tableau 2
10 9 9 5 2ème ligne tableau 2
Et ainsi de suite. ..
Quelqu'un aurait-il l'amabilité de m'aider?
Merci et cordiaux messages
Jean-Pierre

[florianne]

Bonjour,
juste pour mieux comprendre la question,
Le but est bien de classer le premier tableau 4 x 4, par ligne en ordre croissant,
et de donner les 2 autres tableaux liés en conséquence ?

[florianne]

Donc si j'ai compris ...

En positionnant tes tableaux en A1: D4 ; A6: D9 etc..

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Public Sub tri()
 
Dim tableau1() As Variant
Dim tableau2() As Variant
Dim tableau3() As Variant
Dim temp1 As Integer
Dim temp2 As Integer
Dim temp3 As Integer
 
tableau1() = Feuil1.Range("A1:D4")
tableau2() = Feuil1.Range("A6:D9")
tableau3() = Feuil1.Range("A11:D14")
 
For k = 1 To 4
    For I = 1 To 3
        For j = I + 1 To 4
          If tableau1(k, I) > tableau1(k, j) Then
           temp1 = tableau1(k, I)
           tableau1(k, I) = tableau1(k, j)
           tableau1(k, j) = temp1
           temp2 = tableau2(k, I)
           tableau2(k, I) = tableau2(k, j)
           tableau2(k, j) = temp2
           temp3 = tableau3(k, I)
           tableau3(k, I) = tableau3(k, j)
           tableau3(k, j) = temp3
          End If
        Next j
     Next I
   Next k
 
  Feuil1.Range("F1:I4") = tableau1()
  Feuil1.Range("F6:I9") = tableau2()
 Feuil1.Range("F11:I14") = tableau3()
 
End Sub

[Biowave]

Merci mille fois!

C'est exactement ce dont je souhaitais!

Je vous félicite grandement pour votre diligence, votre professionnalisme et votre disponibilité.

Avec mes cordiaux messages

Jean-Pierre

...Si mes 3 tableaux (mon cas) font chacun 18 colonnes et 357 lignes, puis-je modifier le code sans autre? A quoi dois-je faire attention'

merci

Amicalement

Jean-Pierre

[florianne]

Il n'y a pas beaucoup de modifications à faire:

1) Modifier les Ranges d'acquisition des 3 tableaux.
2) k va varier de 1 à 357 ; I de 1 à 17 et J de I+1 à 18
3) Modifier les Ranges d'affichages des 3 tableaux une fois ordonnés.

Merci pour les compliments, j’essaie de rendre ce qu'on m'a ici déjà donné.
Sinon n'oublie pas de noter et de mettre Résolu si tu as trouvé réponse à ta question.
Cordialement.