J'ai trouvé un début de réponse ici :
http://www.generation-nt.com/reponses/transposer-valeurs-plusieurs-colonnes-vers-plusieurs-lignes-entraide-3673701.html
Mais pas le code pour la transposition, ni exactement la même chose..
Merci d'avance des conseils que vous pouvez me donner !
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
Jacky
Bonsoir,
Ceci peut-être.. '------------------ Sub J_j() Dim c As Range Sheets("resultat").Cells.Clear Application.ScreenUpdating = False For Each c In [a1:a250] With Sheets("Feuil1") .Range(.Cells(c.Row, 1), .Cells(c.Row, 8)).Copy End With With Sheets("resultat") .Cells(.Cells(Rows.Count, "A").End(xlUp).Row + 1, 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True End With Next Application.ScreenUpdating = True Sheets("resultat").Activate End Sub '-------------------- Voir ici http://cjoint.com/?EEgwmtLaiPJ
-- Salutations JJ
"VincentAimeIsabelle1" a écrit dans le message de news:
Bonjour,
Je viens vers vous pour traiter un fichier texte (énorme) via l'utilisation d'une macro.
J'ai trouvé un début de réponse ici : http://www.generation-nt.com/reponses/transposer-valeurs-plusieurs-colonnes-vers-plusieurs-lignes-entraide-3673701.html Mais pas le code pour la transposition, ni exactement la même chose.. Merci d'avance des conseils que vous pouvez me donner !
Vincent
Bonsoir,
Ceci peut-être..
'------------------
Sub J_j()
Dim c As Range
Sheets("resultat").Cells.Clear
Application.ScreenUpdating = False
For Each c In [a1:a250]
With Sheets("Feuil1")
.Range(.Cells(c.Row, 1), .Cells(c.Row, 8)).Copy
End With
With Sheets("resultat")
.Cells(.Cells(Rows.Count, "A").End(xlUp).Row + 1, 1).PasteSpecial Paste:=xlPasteAll,
Transpose:=True
End With
Next
Application.ScreenUpdating = True
Sheets("resultat").Activate
End Sub
'--------------------
Voir ici
http://cjoint.com/?EEgwmtLaiPJ
--
Salutations
JJ
"VincentAimeIsabelle1" <nospam_vincent.malrin@laposte.net.invalid> a écrit dans le message de news:
3dqdnZdHo9fHUtXInZ2dnUVZ57ydnZ2d@giganews.com...
Bonjour,
Je viens vers vous pour traiter un fichier texte (énorme) via l'utilisation
d'une macro.
J'ai trouvé un début de réponse ici :
http://www.generation-nt.com/reponses/transposer-valeurs-plusieurs-colonnes-vers-plusieurs-lignes-entraide-3673701.html
Mais pas le code pour la transposition, ni exactement la même chose..
Merci d'avance des conseils que vous pouvez me donner !
Ceci peut-être.. '------------------ Sub J_j() Dim c As Range Sheets("resultat").Cells.Clear Application.ScreenUpdating = False For Each c In [a1:a250] With Sheets("Feuil1") .Range(.Cells(c.Row, 1), .Cells(c.Row, 8)).Copy End With With Sheets("resultat") .Cells(.Cells(Rows.Count, "A").End(xlUp).Row + 1, 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True End With Next Application.ScreenUpdating = True Sheets("resultat").Activate End Sub '-------------------- Voir ici http://cjoint.com/?EEgwmtLaiPJ
-- Salutations JJ
"VincentAimeIsabelle1" a écrit dans le message de news:
Bonjour,
Je viens vers vous pour traiter un fichier texte (énorme) via l'utilisation d'une macro.
J'ai trouvé un début de réponse ici : http://www.generation-nt.com/reponses/transposer-valeurs-plusieurs-colonnes-vers-plusieurs-lignes-entraide-3673701.html Mais pas le code pour la transposition, ni exactement la même chose.. Merci d'avance des conseils que vous pouvez me donner !