Extraction à partir d'un tableau double entrée

J

JHA

XLDnaute Barbatruc

• 17 Janvier 2013

• #2

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

Bonjour à tous,

Vois si le format du TCD t'interresse.

JHA

 

Pièces jointes

• TCD.xlsx

  14 KB · Affichages: 38
• TCD.xlsx

  14 KB · Affichages: 36
• TCD.xlsx

  14 KB · Affichages: 44

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 17 Janvier 2013

• #3

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

Bonjour,

Voir PJ

JB

 

Pièces jointes

• Copie de Classeur1.xlsx

  10.3 KB · Affichages: 38
• Copie de Classeur1.xlsx

  10.3 KB · Affichages: 37
• Copie de Classeur1.xlsx

  10.3 KB · Affichages: 42

Dernière édition: 17 Janvier 2013

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 17 Janvier 2013

• #4

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

En VBA

Code:

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

 

Pièces jointes

• Copie de Copie de Classeur1-1.xlsm

  15.9 KB · Affichages: 33
• Copie de Copie de Classeur1-1.xlsm

  15.9 KB · Affichages: 34
• Copie de Copie de Classeur1-1.xlsm

  15.9 KB · Affichages: 38

Dernière édition: 17 Janvier 2013

Vote positif 0 Vote négatif

M

mateo22

Guest

• 17 Janvier 2013

• #5

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

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

Un GRAND merci

 

Vote positif 0 Vote négatif