Discussion :

[xxlunexx]

Bonjour,
J'ai déjà posé la question dans la partie Requete mais, il semble que cela soit impossible a faire dans une requete donc je la repose ici

Je veux transposer un tableau

A B C
D E F
G H I

en

A D G
B E H
C F I

Il faut que je programme ca dans un module

J'ai parcouru des dizaines de page internet sans trouver un code qui le fait. Etes vous deja tombé dessus?
Je n'ai pas d'experience en programmation VB, pourriez vous m'aiguiller? Me montrer comment faire?

merci pour votre aide

[Deepin]

ça n'a rien de bien sorcier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim array1(1 To 5, 1 To 5) As String, array2(1 To 5, 1 To 5) As String
Dim cmptX As Long, cmptY As Long
 
For cmptX = 1 To 5
    For cmptY = 1 To 5
        array1(cmptX, cmptY) = Chr(64 + (cmptX - 1) * 5 + cmptY)
    Next
Next
'je transpose
For cmptX = 1 To 5
    For cmptY = 1 To 5
        array2(cmptY, cmptX) = array1(cmptX, cmptY)
    Next
Next

[xxlunexx]

Bonjour,
Excusez moi je me suis peut etre mal exprimée
Je ne voulais pas transposer un tableau classique mais une TABLE access en fait.. et je dois écrire un module pour le faire
Merci quand meme

[xxlunexx]

J'ai fini par trouver la reponse seul comme un grand

http://support.microsoft.com/kb/283875/fr

merci tout de meme!