[résolu] Créer un tableau à partir d'un autre tableau par macro

[klorane]

Bonsoir à tous,

j'ai dans une feuil1 un tableau (B2 à D100) qui contient en B une colonne "Marque" en C une colonne "Ref" et en D une colonne "Numéro de ref". Important : Les numéros de ref sont séparés par: /

A partir de ce tableau il faudrait par l'aide d'une macro créer un second tableau ou "les numéro de références" seraient les uns sous les autres et avec dans la cellule C la référence affichée et en B la marque.
(Voir le tableau feuil2 pour voir à quel résultat arriver)

Quelqu'un serait il en mesure à partir du tableau feuil1 arriver au tableau feuil2 par une macro?

Merci de votre aide.

Klorane

 

[BOISGONTIER]

Re : Créer un tableau à partir d'un autre tableau par macro

Bonjour,

Sub essai()
  Set f1 = Sheets("feuil1")
  Set f2 = Sheets("feuil2")
  ligneBD = 2
  finBD = f1.[C65000].End(xlUp).Row
   LigneResult = 2
   Do While ligneBD <= finBD
     marque = f1.Cells(ligneBD, 2)
     Do While (f1.Cells(ligneBD, 2) = marque Or f1.Cells(ligneBD, 1) = "") And ligneBD <= finBD
        ref = f1.Cells(ligneBD, 3)
        f2.Cells(LigneResult, 2) = f1.Cells(ligneBD, 2)
        numeros = f1.Cells(ligneBD, 4)
        a = Split(numeros, "/")
        For i = LBound(a) To UBound(a)
          f2.Cells(LigneResult, 3) = ref
          f2.Cells(LigneResult, 4) = Trim(a(i))
          LigneResult = LigneResult + 1
        Next i
        ligneBD = ligneBD + 1
     Loop
  Loop
End Sub

JB