Extraction à partir d'un tableau double entrée

[mateo22]

Bonjour a vous tous,

J'aurais besoin de votre aide

Depuis plusieurs jours, j'essaie de trouver une solution mais pas moyen !

J'aurai besoin de vos lumières

J'aimerai extraire les données d'un tableau double entrée avec les intitulés du tableau ainsi que le contenu.

Pour être plus concret, voici une PJ pour mieux me faire comprendre

Encore merci

 

[JHA]

Re : Extraction à partir d'un tableau double entrée

Bonjour à tous,

Vois si le format du TCD t'interresse.

JHA

 

[BOISGONTIER]

Re : Extraction à partir d'un tableau double entrée

Bonjour,

Voir PJ

JB

 

[BOISGONTIER]

Re : Extraction à partir d'un tableau double entrée

En VBA

Sub TransformeLigneColonne()
  a = [B2].CurrentRegion
  ligBD = 22
  For ligne = 2 To UBound(a, 1)
    For col = 2 To UBound(a, 2)
      If a(ligne, col) > 0 Then
        Cells(ligBD, 1) = a(1, col) & a(ligne, 1)
        Cells(ligBD, 2) = a(ligne, col)
        ligBD = ligBD + 1
      End If
    Next col
  Next ligne
End Sub

JB

 

[mateo22]

Re : Extraction à partir d'un tableau double entrée

La 1ère réponse de JB correspond totalement à ma demande

Un GRAND merci