Discussion :

[Cryos]

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 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 !!

[vodiem]

salut et bienvenu Cryos,

support.microsoft.com

[Tofalu]

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 :

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
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

[Cryos]

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.

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.

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