Transposer données lignes dans colonnes

fhoest

XLDnaute Accro

• 21 Septembre 2013

• #2

Re : Transposer données lignes dans colonnes

Bonjour
est ce que c'est ça que tu veux:

Code:

Sub transpose()
Sheets("Feuil1").Range("D2:D401").Value = Sheets("Feuil1").Range("B2:B401").Value
End Sub

A+

 

Vote positif 0 Vote négatif

D

danpom302

XLDnaute Nouveau

• 21 Septembre 2013

• #3

Re : Transposer données lignes dans colonnes

Non. J'envoie le même document avec des explications sur le résultat final recherché dans la Feuil2.

Merci,

Dan

 

Vote positif 0 Vote négatif

D

danpom302

XLDnaute Nouveau

• 22 Septembre 2013

• #4

Re : Transposer données lignes dans colonnes

Bonjour fhoest ,

Merci pour ta première suggestion mais je crois que ma demande n'était pas explicite. Dans mon deuxième message, je crois que mon document dont je faisais allusion, n'a pas suivi.

Je joins un nouveau document Excel "Macro transposer2" avec un premier onglet "Données" et un deuxième onglet "Résultat recherché".

L'idée est de copier un bloc de 8 cellules soit B2 à B9, et de transposer ce bloc à l’horizontal dans les cellules D2 à K2 et ce jusqu'au bloc 50.

Merci pour ton aide,

Dan

 

Pièces jointes

• Macro transposer2.xlsm

  37.4 KB · Affichages: 42
• Macro transposer2.xlsm

  37.4 KB · Affichages: 44
• Macro transposer2.xlsm

  37.4 KB · Affichages: 46

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 22 Septembre 2013

• #5

Re : Transposer données lignes dans colonnes

Bonjour à tous,

Un essai par formule

La formule en colonne "E" peut être copiée en colonne "D" à la place de recherchev()

JHA

 

Pièces jointes

• Macro transposer2.xlsm

  41.2 KB · Affichages: 41
• Macro transposer2.xlsm

  41.2 KB · Affichages: 40
• Macro transposer2.xlsm

  41.2 KB · Affichages: 45

Dernière édition: 22 Septembre 2013

Vote positif 0 Vote négatif

D

danpom302

XLDnaute Nouveau

• 22 Septembre 2013

• #6

Re : Transposer données lignes dans colonnes

Bonjour JHA,

Merci pour ta proposition par formule. Le tout fonctionne très bien.

J'ai appris la formule décaler que je n'avais jamais utilisé.

J'ai plus de 3,000 lignes d'information à transposer pour créer une table de données.

Merci et bonne journée,

Dan

 

Vote positif 0 Vote négatif

fhoest

XLDnaute Accro

• 22 Septembre 2013

• #7

Re : Transposer données lignes dans colonnes

Bonsoir ,
une solution par VBA:

Code:

Sub transpose()
For i = 2 To 401
Sheets("Données").Range("D2").Offset(o + j, i - k - 2).Value = Sheets("Données").Range("B" & i).Value: If Sheets("Données").Range("D2").Offset(o + j, i - k - 2).Column = 11 Then j = j + 1: k = 8 * j
Next
End Sub

A+

 

Vote positif 0 Vote négatif

D

danpom302

XLDnaute Nouveau

• 23 Septembre 2013

• #8

Re : Transposer données lignes dans colonnes

Bonjour fhoest,

Merci pour ce code VBA. Le tout fonctionne très bien.

Il ne me reste qu'à le comprendre en faisant certains essais.

Encore un fois merci et bonne journée,

Dan

 

Vote positif 0 Vote négatif