Partager une liste de 700 lignes en 7 colonnes

[arno62]

Bonjour à tous.
Tout nouveau sur le forum - après plusieurs heures de recherches, je ne trouve pas de réponse à mon problème ...
J'ai un listing au format Excel (xlsx) de plus de 100 contacts sous cette forme (1 seule colonne et 700 lignes : 7 lignes pour chaque contact).
1 - Nom 1
2 -Prénom 1
3 - Société 1
4 - Adresse 1
5- Téléphone 1
6- Mail 1
7- Pays 1
8 - Nom 2
9 - Prénom 2
10 - Société 2
11 - Adresse 2
12- Téléphone 2
13- Mail 2
14- Pays 2
...
Je souhaiterais transformer celui-ci comme suit :
A / B / C / D / E / F / G
1 Nom 1 Prénom 1 Société 1 Adresse 1 Tél. 1 Mail 1 Pays 1
2 Nom 2 Prénom 2 Société 2 Adresse 2 Tél. 2 Mail 2 Pays 2
3 ...

J'ai bien trouvé l'astuce pour un contact avec la fonction copier / collage spécial / transposé mais ceci ne fonctionne que pour un contact.
Si je copie, comme dans mon exemple, les 14 premières lignes, j'obtiens avec cette procédure une ligne de 14 colonnes. ..
Existe-t-il une formule qui me permettrait d'obtenir automatiquement un tableau sous la forme ci-dessus, soit 100 lignes et 7 colonnes par lignes.
Merci pour votre attention.
Arno62

 

[Dranreb]

Re : Partager une liste de 700 lignes en 7 colonnes

Bonjour.
Essayer :

=TRANSPOSE(DECALER(Feuil1!$A1;(LIGNE()-1)*7;0;7;1))

sur A1:G1 de Feuil2, validé par Ctrl+Maj+Entrée puis recopier vers le bas.
À +

 

[Dull]

Re : Partager une liste de 700 lignes en 7 colonnes

Salut arno62 et Bienvenu, le Forum

Teste ce code issu de ce fil MerciStaple

Sub a()
Dim i&
For i = 1 To [A65536].End(xlUp).Row Step 7
Feuil2.[A65536].End(xlUp)(2).Resize(, 7) = Application.Transpose(Cells(i, 1).Resize(7))
Next
End Sub

Données en ColA de la Feuil1 Transfert sur Feuil2 en ColA

EDITION: Salut Bernard

Re Edith: Hi Gilbert....Oupppps ... Réctifié

Bonne Journée

 

[gilbert_RGI]

Re : Partager une liste de 700 lignes en 7 colonnes

Salut arno62 et Bienvenu, le Forum

Teste ce code issu de ce fil MerciStaple

Sub a()
Dim i&
For i = 1 To [A65536].End(xlUp).Row Step 14
Feuil2.[A65536].End(xlUp)(2).Resize(, 14) = Application.Transpose(Cells(i, 1).Resize(14))
Next
End Sub

Données en ColA de la Feuil1 Transfert sur Feuil2 en ColA

EDITION: Salut Bernard

Bonne Journée

bonjour Tous

dans le cas présent remplacer le 14 par 7

 

[david84]

Re : Partager une liste de 700 lignes en 7 colonnes

Bonjour tout le monde,
formule non matricielle (se placer en B1 par exemple) :

=INDIRECT(ADRESSE(ENT(LIGNES($1:1)-1)*7+COLONNES($A:A);1))&""

A+
Edit : proposition modifiée

 

[arno62]

Re : Partager une liste de 700 lignes en 7 colonnes

Merci beaucoup pour vos réponses qui m'ont fait gagner un temps précieux.
Bien Cordialement,
arno62