Recopier et transposer des lignes avec une macro dans Excel 2013
Bonjour, je dois copier différentes cellules d'un onglet excel dans un autre onglet.
mon fichier contient 850 lignes et je dois repeter cette opération pour chaque ligne.
j'ai créé une macro par la fontion enregistrement pour copier 3 lignes mais je ne sais pas comment faire que la repetition soit automatique.
en PJ mon fichier d'origine, la macro que j'ai enregistré et le resultat attendu (3 onglets) . je vous remercie par avance de l'aide que vous pourriez m'apporter.
Cordialement PB
Salut,
Moi j'avais fait plutôt ça, mais c'est moins complet
[Quote] Sub Transposemoica()
Dim Ligne, Colonne, LigneResultat As Integer
Dim MaCopie As String
LigneResultat = 2
For Ligne = 2 To 856
For Colonne = 2 To 9
MaCopie = Sheets(" fichier de suivi SN").Cells(Ligne, Colonne).Text
Sheets("Resultat de la macro").Cells(LigneResultat, 19).Value = Sheets(" fichier de suivi SN").Cells(Ligne, 1).Text
Sheets("Resultat de la macro").Cells(LigneResultat, 20).Value = MaCopie
LigneResultat = LigneResultat + 1
Next Colonne
Next Ligne
End Sub
[/Quote]
Bonsoir, UN GRAND MERCI aux 2 excellents contributeurs qui m'ont répondu. les 2 solutions me conviennent. c'est parfait merci de ce temps consacré à mon probleme!
Bonjour,
Content que tu aies pu résoudre ton problème ...
Merci pour tes remerciements ...