Résolu. Transformer un tableau en une colonne

[san25]

Bonjour à tous,
Nouveau sur le forum et novice en VBA / macros, je fais appel à votre expérience.
Je souhaite récupérer les données du tableau dans une seule colonne (voir fichier), j'ai réussi à le faire dans access à coups de requêtes, mais l'ordre des données est perdue, chose primordiale pour moi.
D'avance merci pour votre aide.

 

[mutzik]

Re : Transformer un tableau en une colonne

bonjour,

colle cela dans le module VBA de la feuille en question et lance la macro

Sub transp()
Dim cpt, lastlig
Range("L:L").ClearContents
lastlig = Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For cpt = 2 To lastlig
Range("B" & cpt & ":G" & cpt).Copy
Range("L" & Rows.Count).End(xlUp).Offset(1, 0) _
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Next
End Sub

 

[hoerwind]

Re : Transformer un tableau en une colonne

Bonjour et bienvenue sur le forum, salut mutzik,

Une solution par formule, essaie en J2 :

=DECALER($A$1;ENT((LIGNE()-2)/6)+1;MOD(LIGNE()-2;6)+1)

formule à copier vers le bas

 

[san25]

Re : Transformer un tableau en une colonne

bonjour,

colle cela dans le module VBA de la feuille en question et lance la macro

Sub transp()
Dim cpt, lastlig
Range("L:L").ClearContents
lastlig = Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For cpt = 2 To lastlig
Range("B" & cpt & ":G" & cpt).Copy
Range("L" & Rows.Count).End(xlUp).Offset(1, 0) _
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Next
End Sub

Imppecable, mille merci !!!

 

[san25]

Re : Transformer un tableau en une colonne

Bonjour et bienvenue sur le forum, salut mutzik,

Une solution par formule, essaie en J2 :

=DECALER($A$1;ENT((LIGNE()-2)/6)+1;MOD(LIGNE()-2;6)+1)

formule à copier vers le bas

J'ai #NAME? comme réponse !

 

[hoerwind]

Re : Transformer un tableau en une colonne

Re,

Normal !
Si tu as #NAME? c'est parce que tu as une version anglaise de Excel.
Il te faut donc traduire les fonctions.
Mais avec une pièce jointe Excel le fera pour toi !

 

[san25]

Re : Transformer un tableau en une colonne

Ok merci à tous c'est réglé