Inversion d'une variable tableau

Version imprimable

16/06/2009, 11h48
Cryos

Inversion d'une variable tableau

Bonjour à tous !

Mon problème, J'ai une variable tableau organisé de la manière suivante :
__|1______|2______|...|14627
1 |tab(1,1)|_______|__| tab(1, 14627)
2 |tab(2,1)|_______|__| tab(2, 14627)
3 |tab(3,1)|_______|__| tab(3, 14627)
4 |_______|_______|__|
5 |_______|_______|__|
6 |_______|_______|__|
7 |_______|_______|__|

Ce que je cherche à avoir c'est un tableau tel que :
______|1_______|2______|...|7
1_____|tab(1, 1) |
2_____|tab(2, 1) |
... ___| ________|
14627_|tab(14627, 1) |

Le tableau peut très bien être encore plus "large", je cherche un traitement rapide pour inverser/transposer le tableau.
Au final je vais le coller dans excel, j'ai essayer de le coller tel quel dans excel puis de le transposer, mais le tableau est trop large :calim2: et je ne peux pas le coller. Donc j'essaie de passer directement par le code VBA.

Si quelqu'un a une méthode à proposer je suis preneur !!
16/06/2009, 12h05
vodiem

salut et bienvenu Cryos,

support.microsoft.com

;)

Bonjour

D'après ce que j'ai compris il s'agit de traiter une variable tableau et non une requête

Une piste :

Code:

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
42
43
44
45
46
47
Sub essai()
Dim montableau(3, 6) As String
'Remplissage du tableau de test
 
For i = 0 To UBound(montableau, 1)
    For j = 0 To UBound(montableau, 2)
        montableau(i, j) = "(" & i + 1 & "," & j & ")"
    Next j
Next i
'Affichage du tableau rempli
 
For i = 0 To UBound(montableau, 1)
    For j = 0 To UBound(montableau, 2)
        chaine = chaine & montableau(i, j) & " "
    Next j
    chaine = chaine & vbCrLf
Next i
Debug.Print chaine
Dim res
res = transposeTableau(montableau)
'Affichage du tableau transposé
For i = 0 To UBound(res, 1)
    For j = 0 To UBound(res, 2)
        chaine = chaine & res(i, j) & " "
    Next j
    chaine = chaine & vbCrLf
Next i
Debug.Print chaine
End Sub
 
 
Function transposeTableau(arTableau As Variant) As Variant()
Dim TempTableau
Dim i As Integer
Dim j As Integer
 
Dim c As Integer, l As Integer
l = UBound(arTableau, 2)
c = UBound(arTableau, 1)
ReDim TempTableau(l, c)
For i = 0 To l
    For j = 0 To c
        TempTableau(i, j) = arTableau(j, i)
    Next j
Next i
transposeTableau = TempTableau
End Function

16/06/2009, 14h13
Cryos

Citation:

Envoyé par vodiem

salut et bienvenu Cryos,

support.microsoft.com

;)

Merci pour ce lien vodiem, j'y ait jeté un rapide coup d'oeil à titre d'information. J'ai vu qu'il y avait un peu de VBA mais ça utilise DAO donc ça m'intéresse pas trop, enfin quoique. Par contre manuellement je sais le faire mais je peux pas coller le tableau dans excel pour le manipuler. :aie:

Tofalu > Merci de ton aide. J'ai trouver un traitement autre mais je garde ton code parce que je suis persuadé que j'aurais besoin de transposer à un moment ou un autre. En survolant j'ai pas tout saisi du code mais j'ai compris le principe. :aie:

Merci à vous, je met ce topic en résolu !