Automatisation d'un transposition

Bonjour à tous

Je cherche à réaliser une macro qui réalise la tache suivante :

Sur base d'une colonne unique la macro sélectionne 4 cellules et les transpose en 4 colonnnes

Puis prend la 4 cellules suivantes et recommence

donc

1

2

3

4

5

6

7

8

9

10

11

12

donne après passage de la macro

1234

5678

9101112

Qqun peu m'aidez ?

Merci d'avance

Olivier

Bonsoir,

Sub Test()
    Dim T(), n%, h%, i%, k%
    ReDim T(1): a = 0
    With ActiveSheet
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        h = n \ 4
        If h * 4 <> n Then h = h + 1: n = h * 4
        ReDim T(h - 1): h = 0
        For i = 1 To n Step 4
            T(h) = Array(.Cells(i, 1), .Cells(i + 1, 1), .Cells(i + 2, 1), .Cells(i + 3, 1))
            h = h + 1
        Next i
        For i = 1 To h
            .Cells(i, 3).Resize(, 4).Value = T(i - 1)
        Next i
    End With
End Sub
Rechercher des sujets similaires à "automatisation transposition"