Transposer sur excel?

Bonjour,

J'ai un grand nombre de données sur excel, tel que:

A

1 Nom Prenom

2 Commune

3 Code postal

4 Nom Prenom

5 Commune

6 Code postal

7 etc.....

Je voudrais avoir ceci mais avec le copiage spécial puis transposé c'est beaucoup trop long pour 7 000 Nom commune et code postal:

A B C

1 Nom Prenom Commune Code postal

2 Nom prenom Commune Code postal

3 etc.....

Bonjour,

Essaie avec ce code à placer en VBA dans un module.

Sub test()
'MAcro Dan pour Antoine76 le 17/05/2010
'http://forum.excel-pratique.com/excel/transposer-sur-excel-t17262.html
Dim i As Integer, j As Integer
For i = 1 To ActiveSheet.Range("A65536").End(xlUp).Row
j = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1
Sheets("Feuil2").Range("A" & j) = ActiveSheet.Range("A" & i)
Sheets("Feuil2").Range("B" & j) = ActiveSheet.Range("A" & i + 1)
Sheets("Feuil2").Range("C" & j) = ActiveSheet.Range("A" & i + 2)
i = i + 2
Next
End Sub

Avec "Feuil2", la feuille de destination des données à copier.

Place ton curseur sur SUB TEST,puis appuie sur la touche F5 de ton clavier.

--> SI ok, n'oublie pas de cloturer le fil en cliquant sur le V de couleur Vert à coté du bouton Editer.

Amicalement

Merci dan, je pige pas grand chose d'un coup !!

Bonjour

Salut Dan

Pour mes allergiques à VBA, la solution avec une formule unique

Cordialement

re, salut Amadeus,

Ok, la solution d'Amadeus devrait te convenir je pense.

Pour l'explication de ma proposition :

• appuie sur les touches de ton clavier ALT + F11 pour accéder à VBA
• menu INSERTION / MODULE pour afficher une nouvelle fenêtre à droite de ton écran
• colle le code que je t'ai donné dans cette fenêtre

Pour l'exécuter tu suis ce que je t'ai donné dans mon post précédent.

Amicalement

Merci beaucoup à vous deux, le gain de temps est énorme, fiou cela va bien m'aider!!

Merci, à bientôt, j'ai essayé les deux méthodes et tout est ok !!