Bonjour à tous,


Voilà j'ai un tableau de 7 lignes sur 8 colonnes. Et j'aimerais pouvoir trier le tableau à partir de la seconde colonne. Alors qu'un tableau à une seule colonne c'est simple comme suite :
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
38
39
40
41
Public Sub prepaWGranuZQ15(ByVal ZQ15name As String)
 
   address = ThisWorkbook.path
   Set wb = Workbooks.Open(address & "\Temp\" & ZQ15name, local:=True)
   wb.Sheets(1).Activate
 
   Dim aTab(0 To 6, 0 To 7) As variant
   Dim x As Long
   Dim i As Long, j As Long, lInc As Long, n As Long, lMin As Long
   Dim lLowerBound As Long, lUpperBound As Long
   Dim vRef As String
 
   'Inscription des valeurs dans le tableau
   For x = 0 To 6
       aTab(x) = cells(9, 60 + x * 8).Value
   Next 
 
   lLowerBound = LBound(aTab)
   lUpperBound = UBound(aTab)
   n = lUpperBound - lLowerBound + 1
   lInc = 1
 
   While lInc < n
      lInc = lInc * 3 + 1
   Wend
   While lInc > 1
      lInc = lInc / 3
      lMin = lInc + lLowerBound
      For i = lMin To lUpperBound
         j = i
         vRef = aTab(i)
         Do While vRef < aTab(j - lInc)
            aTab(j) = aTab(j - lInc)
            j = j - lInc
            If j < lMin Then Exit Do
         Loop
         aTab(j) = vRef
      Next i
   Wend
 
End sub
J'avoue assez fort coincer sur le faite de trier sur la deuxième colonne et garder les autres valeurs sur leurs lignes réciproques.

De plus j'aimerais aussi qu'il trie comme dans le code par ordre alphabétique mais avec les lignes vides à la fin au lieu du début.

Quelqu'un aurait un conseil ?
Merci d'avance.

Bien à vous,
Rave