Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Hello Christine
(Si Arnaud, le poyglotte pouvait traduire ca serait sympa car mon anglais, je l'ai oublié depuis belle lurette !)
With VBA Code
Sub Transpose() Dim tbl As Recordset, tableau() As String, nb As Long Dim i As Long, j As Long, tableau2() As String Set tbl = CurrentDb.OpenRecordset("tblcol") nb = DCount("*", "tblcol") - 1 ReDim tableau(nb, 2), tableau2(2, nb) While Not tbl.EOF For j = 0 To 2 tableau(i, j) = tbl(j): Debug.Print tableau(i, j), Next j: Debug.Print i = i + 1 tbl.MoveNext Wend Debug.Print "Transposée" For j = 0 To 2 For i = 0 To nb tableau2(j, i) = tableau(i, j): Debug.Print tableau2(j, i), Next i: Debug.Print Next j End Sub
Après, je ne sais pas ce que tu veux faire. Si c'est pour se substituer à la table existante, prévoir de créer une table temporaire, lui inserer les valeurs de tableau2 par les methodes AddNew et Update ou par sql. Puis supprimer la table initiale (mais attention aux relations) et renommer la table temporaire avec le nom de la table initiale.
Bye Eric
"Christine Imbeault" écrivait news::
Hi,
My table is:
Col1 Col2 Col3 a b c d e f
i like to tranpose my table and i like to result when tranpose. It's possible.
Col1 Col2 a d b e c f
Thank Christine
Hello Christine
(Si Arnaud, le poyglotte pouvait traduire ca serait sympa car mon
anglais, je l'ai oublié depuis belle lurette !)
With VBA Code
Sub Transpose()
Dim tbl As Recordset, tableau() As String, nb As Long
Dim i As Long, j As Long, tableau2() As String
Set tbl = CurrentDb.OpenRecordset("tblcol")
nb = DCount("*", "tblcol") - 1
ReDim tableau(nb, 2), tableau2(2, nb)
While Not tbl.EOF
For j = 0 To 2
tableau(i, j) = tbl(j): Debug.Print tableau(i, j),
Next j: Debug.Print
i = i + 1
tbl.MoveNext
Wend
Debug.Print "Transposée"
For j = 0 To 2
For i = 0 To nb
tableau2(j, i) = tableau(i, j): Debug.Print tableau2(j, i),
Next i: Debug.Print
Next j
End Sub
Après, je ne sais pas ce que tu veux faire.
Si c'est pour se substituer à la table existante, prévoir de créer une
table temporaire, lui inserer les valeurs de tableau2 par les methodes
AddNew et Update ou par sql. Puis supprimer la table initiale (mais
attention aux relations) et renommer la table temporaire avec le nom de
la table initiale.
(Si Arnaud, le poyglotte pouvait traduire ca serait sympa car mon anglais, je l'ai oublié depuis belle lurette !)
With VBA Code
Sub Transpose() Dim tbl As Recordset, tableau() As String, nb As Long Dim i As Long, j As Long, tableau2() As String Set tbl = CurrentDb.OpenRecordset("tblcol") nb = DCount("*", "tblcol") - 1 ReDim tableau(nb, 2), tableau2(2, nb) While Not tbl.EOF For j = 0 To 2 tableau(i, j) = tbl(j): Debug.Print tableau(i, j), Next j: Debug.Print i = i + 1 tbl.MoveNext Wend Debug.Print "Transposée" For j = 0 To 2 For i = 0 To nb tableau2(j, i) = tableau(i, j): Debug.Print tableau2(j, i), Next i: Debug.Print Next j End Sub
Après, je ne sais pas ce que tu veux faire. Si c'est pour se substituer à la table existante, prévoir de créer une table temporaire, lui inserer les valeurs de tableau2 par les methodes AddNew et Update ou par sql. Puis supprimer la table initiale (mais attention aux relations) et renommer la table temporaire avec le nom de la table initiale.
Bye Eric
"Christine Imbeault" écrivait news::
Hi,
My table is:
Col1 Col2 Col3 a b c d e f
i like to tranpose my table and i like to result when tranpose. It's possible.
