TRANSPOSITION DE DONNEESRésolu

Question

Bonjour à tous,

voilà, j'ai une colonne de données (417 valeurs sur la Colonne A) que je souhaiterais transposer en 3 colonnes (A1 vers D1, A2 vers E1 et A3 vers F1, puis A4 vers D2, A5 > E2...)
Plutôt que de reprendre cette macro

Range("A1:A3").Select
    Selection.Copy
    Range("D1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True

et de la copier 139 fois en modifiant les valeurs, auriez-vous une astuce svp ?

Merci beaucoup !! 

Vincent

cs_MPi · Answer

Bonjour, 

Essaie comme ceci 

Sub Transposer()    Dim I As Long, nbLignes As Long, Dest As Long        With Sheets("Feuil1")   'Changer le nom de la feuille au besoin        nbLignes = .Cells(.Rows.Count, "A").End(xlUp).Row   'nombre de lignes en A        Dest = 1    'Ligne de destination        For I = 1 To nbLignes Step 3    'boucle en groupe de 3            Range(Cells(I, 1), Cells(I + 2, 1)).Copy            Range("D" & Dest).PasteSpecial Transpose:=True            Dest = Dest + 1        Next    End WithEnd Sub

TRANSPOSITION DE DONNEES

1 réponse

Votre réponse