Transposer 2 colonnes en lignes

[cibleo]

Bonsoir le forum,

Feuil 1, je fais une synthèse de données figurant dans les 3 premières feuilles de mon classeur :
Je fais ressortir le prix moyen du litre de gazole tous les mois pour chaque stations citées.
J'ai utilisé l'objet Scripting.Dictionary pour y parvenir, la macro se trouve dans le module 1.

J'aimerais désormais réeorganiser toutes ces données comme cela est illustré en feui1, voir le tableau de droite.

Je ne pense pas que ce soit possible avec l'objet Scripting.Dictionary mais par une variable tableau à 2 dimensions, mais j'ai toujours autant de mal à manipuler ces variables, d'autant plus que ce nouveau tableau peut contenir des blancs ainsi qu'un nombre variable de stations services.

Pouvez-vous m'aider ?
Merci Cibleo

 

[JBARBE]

Re : Réorganiser des données

Bonsoir,

Voici un tableau aménagé sans macro !

Bonne soirée

 

[cibleo]

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

 

[JHA]

Re : Réorganiser des données

Bonjour à tous

Un exemple par TCD

JHA

 

[JHA]

Re : Réorganiser des données

Re,

avec index(equiv()) pour remplir le tableau

JHA

 

[cibleo]

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.

 

[JHA]

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));"")

JHA

 

[cibleo]

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 :

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