Transposer 2 colonnes en lignes

JBARBE

XLDnaute Barbatruc

• 28 Juillet 2012

• #2

Re : Réorganiser des données

Bonsoir,

Voici un tableau aménagé sans macro !

Bonne soirée

 

Pièces jointes

• Copie de Conso 2012V2.xls

  148 KB · Affichages: 53

Vote positif 0 Vote négatif

cibleo

XLDnaute Impliqué

• 29 Juillet 2012

• #3

Re : Réorganiser des données

Bonjour à tous,
Bonjour JBARBE,

Merci de m'avoir orienter vers la formule RecherChev.
Les formules placées dans les cellules de la plage G2:J19 font référence à d'autres valeurs calculées en colonne D, E et K, L, M, N. (colonnes masquées)
N'est il pas possible de ne s'appuyer seulement sur les valeurs de la colonnes A, B et C avec la fonction Recherchev ?
Donc d'éviter de passer par l'intermédiaire de ces autres valeurs calculées.

J'en appelle aux formulistes. 🙂
Ensuite j'essaierai de traduire tout cela en VBA.

Merci d'avance Cibleo

 

Dernière édition: 29 Juillet 2012

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 29 Juillet 2012

• #4

Re : Réorganiser des données

Bonjour à tous

Un exemple par TCD

JHA

 

Pièces jointes

• Conso 2012V2 TCD.xls

  121 KB · Affichages: 42

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 29 Juillet 2012

• #5

Re : Réorganiser des données

Re,

avec index(equiv()) pour remplir le tableau

JHA

 

Pièces jointes

• Conso 2012V2 TCD & tableau.xls

  137.5 KB · Affichages: 38

Vote positif 0 Vote négatif

cibleo

XLDnaute Impliqué

• 29 Juillet 2012

• #6

Re : Réorganiser des données

Bonjour JHA,

Merci JHA pour ces 2 solutions.

Les TCD va falloir que je m'y mette.
Concernant les formules, c'est ce qu'il me faut, je vais essayé de retranscrire tout cela en VBA. (propriété FormulaArray)
Je sens que je vais m'amuser 🙄

Sinon, lorsque je fais une évaluation de formule via le menu Outils > Audit de formules, j'ai un problème :
"Microsoft Office Excel a rencontré un problème et doit fermé."

Rencontrez-vous ce problème de votre côté ?

Cibleo

Edit : JHA, je suis sous Excel 2003.

 

Dernière édition: 29 Juillet 2012

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 29 Juillet 2012

• #7

Re : Réorganiser des données

Re,

pas de soucis lors de l'évaluation de formule sous Excel 2007.

Si tu as la version 2007, tu peux mettre cette formule matricielle

=SIERREUR(INDEX($C$2:$C$52;EQUIV($F2&G$1;$A$2:$A$52&$B$2:$B$52;0));"")

Cliquez pour agrandir...

JHA

 

Vote positif 0 Vote négatif

cibleo

XLDnaute Impliqué

• 31 Juillet 2012

• #8

Re : Transposer 2 colonnes en lignes

Bonjour le forum,

Pour mémoire, je souhaitais changer la disposition du tableau de gauche figurant dans Feuil1.
Après le TCD et les formules de JHA, je me suis compliqué la vie avec une solution VBA.
Voir le résultat obtenu dans le tableau de droite Feuil1.
La macro dans le module 2 :

VB:

Sub deux_colonnes_en_lignes()
Dim j As Long, k As Long, periode As String, Cel As Range
Application.ScreenUpdating = False
For j = 2 To Range("A65536").End(xlUp).Row 'Colonne A
  periode = Cells(j, 1)
  For k = 2 To Range("F65536").End(xlUp).Row 'Colonne F
    If Cells(k, 6) = periode Then
      Set Cel = Cells(1, 7) 'Cellule de tête soit G1
      'Faire jusqu'à ce que la cellule d'entête soit _
      égale à la cellule de la colonne B désignée
      Do Until Cel = Cells(j, 2)
      'On décale d'une cellule à droite
        Set Cel = Cel.Offset(0, 1)
      Loop
      'copie la cellule de la colonne C dans le _
      tableau de droite à sa bonne place
      Cells(k, Cel.Column) = Cells(j, 3): Exit For
    End If
  Next k
Next j
Application.ScreenUpdating = True
End Sub

Il y a sûrement plus simple avec la méthode Find, si vous avez une autre solution, je suis preneur 🙂

Cibleo

 

Pièces jointes

• Conso 2012V3.xls

  114 KB · Affichages: 33

Vote positif 0 Vote négatif