Transposition deux feuilles VBA

Bonjour à tous,

Je viens vers vous pour vous demander de l'aide,

Je travaille sur deux onglets :

- Le premier contient mes donnees
- Le deuxiéme la mise en forme des données


Les données sont organisées comme cela sur une seule colonne:

nom
prenom
sexe
age
nom
prenom
sexe
age
...


dans le deuxième onglet je voudrais transposer ces informations comme cela (sur 4 colonnes) :

nom prenom sexe age
nom prenom sexe age
...

Le fichier contient plus de 1000 ligne et une seule colonne

J'aimerais un code VBA pour realiser cette transformation,

Merci de votre aide,

Balkoo

Bonjour,

comme cela sans repère, pas évident de répondre juste !

Commencer manuellement avec le Générateur de macros offre une base de code !

Et même sans code, rien qu'en lisant l'aide d'Excel de la fonction de feuille de calculs TRANSPOSE …
Une fois les données transposées, faire sauter les formules par un Copier / Collage spécial : Valeur …

Joindre un classeur avec une feuille source et une feuille résultat aiderait pour le moins !

Je voudrais automatiser car plus de 1000lignes et je risque de le reproduire régulièrement. Je connais un peu VBA. Je pense qu'avec des boucle for ça pourrait le faire. Mais je n'y arrive pas ...
Dernièrement j'ai reçu un avertissement car j ai posté un fichier excel ...

La solution :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Dim i As Integer Dim j As Integer Dim g As Integer   nb = WorksheetFunction.CountA(Range("A:A"))   j = 1 g = 1 For i = 1 To nb   If j = 5 Then j = 1 g = g + 1 End If     Sheets(1).Select Cells(i, 1).Select Selection.Copy Sheets(2).Select Cells(g, j).Select ActiveSheet.Paste j = j + 1   Next

---

Cordialement,

Balkoo