Réorganisation fichier Excel

[rih]

Bonjour,

Je suis nouvelle sur ce forum et je souhaite votre aide.
Je souhaite créer une macro VBA afin d'automatiser la réorganisation de mes données avec excel.
Je dispose des données dans une seule colonne et je souhaite les organiser.
Exemple
données initial
libellé
var1
var2
var3
A
1
3
45
B
12
2
3
.
.
.
résultat attendu :
libellé var1 var2 var3
A 1 3 45
B 12 2 3

Etant données que mon fichier dispose au moins de 300 lignes, je souhaite automatiser.Le libellé se trouve toujours à la ligne n*4...
J'espère que vous pourriez m'aider.
Merci d'avance
Cordialement,

 

[gosselien]

Bonjour,

les spécialistes présents ici te demanderont un fichier exemple, c'est plus facile

P.

 

[rih]

Voila un exemple
avec le résultat souhaité

 

[Jacky67]

Voila un exemple
avec le résultat souhaité

Bonjour
Avec le résultat sur une autre feuille

Sub testJJ()
Dim I As Long
Feuil2.Cells.Clear
With Feuil1
    For I = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row Step 4
        .Range(.Cells(I, 1), .Cells(I + 3, 1)).Copy
        With Feuil2
             .Range("a" & .Cells(.Rows.Count, "A").End(xlUp).Row - (.[a1] <> "")).PasteSpecial Paste:=xlPasteAll, Transpose:=True
        End With
    Next
End With
End Sub

 

[rih]

Merci pour la solution,
Le " Count, "A", correspond au nom de la modalité?
Le problème que le nom due modalité n'est pas connue au préalable.
Comment peut on le généraliser quelques soit le nom de la modalité?
Je m'excuse car je débute avec VBA.

 

[Jacky67]

Merci pour la solution,
Le " Count, "A", correspond au nom de la modalité?
Le problème que le nom due modalité n'est pas connue au préalable.
Comment peut on le généraliser quelques soit le nom de la modalité?
Je m'excuse car je débute avec VBA.

Re...
Qu'es ce que tu appelles, "nom de la modalité" ??
Dans l'exemple, l'instruction
"Cells(.Rows.Count, "A").End(xlUp).Row"
Calcule la dernière ligne occupée en colonne A
Afin de boucler sur cette colonne de la ligne 1 à la dernière ligne par PAS de 4 (Step4)

 

[rih]

merci pour ces explications! parfait!!