Transposer un colonne

[BChaly]

Bonsoir à tous,

Je cherche à transposer des données se trouvant dans une colonne pour former un tableau.
Une formule utilisant "Transpose" pourrait fonctionner, mais le problème c'est que mes données
sont groupées sur 4 ou parfois 5 lignes. (voir exemple ci-joint).
Je précise que la colonne des données comporte plus de 2000 lignes

Quelqu'un a-t-il une idée?

Merci pour votre aide.

Cordialement,

BChaly

 

[Staple1600]

Re : Transposer un colonne

Bonsoir

Une question au préalable:
Quelle version d'Excel utilises-tu?

EDITION: Un exemple pour transposer tous les quatre cellules
(il faut au préalable supprimer les lignes vides entre les données)

Sub test() 'ici pas de 4
Dim Src As Range, Dst As Range
Set Src = Range("A2"): Set Dst = Range("D2")
    While Src.Value <> vbNullString
        Dst.Resize(, 4) = Application.Transpose(Src.Resize(4))
        Set Dst = Dst.Offset(1): Set Src = Src.Offset(4)
    Wend
End Sub

En espérant que cela puisse te mettre sur la piste d'une solution.

 

[BChaly]

Re : Transposer un colonne

Bonsoir JM,

J'utilise Excel 2003.

Cordialement

BChaly

 

[Staple1600]

Re : Transposer un colonne

RE

Voir mon précédent message (que j'ai édité)

Mais ce n'est qu'un début de piste

 

[BChaly]

Re : Transposer un colonne

Effectivement c'est un bon début, ce code me donne la première ligne.

Cordialement,

BChaly

 

[Staple1600]

Re : Transposer un colonne

RE

Non Cela donne plus
Relis attentivement mon message contenant le code de la macro 😉

Tu as oublié de faire une étape avant de lancer la macro 🙄

 

[BChaly]

Re : Transposer un colonne

Oui, Pardon. Cela groupe les données par 4.

Cordialement

BChaly

 

[job75]

Re : Transposer un colonne

Bonjour BChaly, salut Staple,

Ci-joint 2 solutions par formules.

Le 2ème tableau utilise la fonction TRANSPOSE en matriciel sur la ligne J2:N2.

En tirant vers le bas on finit bien sûr par obtenir des valeurs d'erreur, on peut l'éviter facilement.

A+

 

[BChaly]

Re : Transposer un colonne

Bonjour job75,

Merci pour votre aide.

Ces 2 solutions que je viens de tester me conviennent parfaitement.

Les erreurs qui apparaissent n'ont pas d'importance puisqu'elles indiquent
la fin du tableau et je peux donc les supprimer.

Excellent travail, Bravo et encore Merci.

Bonne journée,

BChaly

 

[job75]

Re : Transposer un colonne

Re,

Pour le fun une généralisation de ce problème de transposition.

A+

 

[klin89]

Re : Transposer un colonne

Bonjour à tous,

La solution de Dranreb avec une boucle Do ... Loop
https://www.excel-downloads.com/threads/convertir-des-blocs-de-donnees-en-lignes-en-colonnes.169440/

Klin89

 

[BChaly]

Re : Transposer un colonne

Bonsoir job75 & Lin89,

Job75, c'est parfait, j'adopte cette solution.

klin89, effectivement cette macro fonctionne très bien.

Merci à tous les deux pour vos idées précieuses.

Cordialement,

BChaly