Extraire des données pour la création d'une base de données

Bonjour,

je souhaite utiliser les données sur la feuille 1 afin de les copier sur la feuille 2 en vue de les utiliser pour uns base de données.

Je n'arrive pas à convertir sur la feuille 1 par exemple pour le 37 la quantité est de 2 je n'arrive pas à avoir 2 lignes avec le 37 sur la feuille 2.

Je pense qu'avec le pièce jointe ce sera plus clair.

Merci d'avance!!!

162test.xlsx (12.11 Ko)

Bonsoir,

une solution via une macro

Sub creedb()
Set wsi = Worksheets("feuil1")
Set wst = Worksheets("feuil2")
dli = wsi.Range("a" & Rows.Count).End(xlUp).Row
dci = wsi.Cells(1, Columns.Count).End(xlToLeft).Column
j = 1
wst.Range("a1:d1") = Array("ref", "couleur", "taille", "prix")
For i = 2 To dli
 For k = 3 To dci - 1
  For l = 1 To wsi.Cells(i, k)
   j = j + 1
   wst.Range("a" & j) = wsi.Cells(i, 1)
   wst.Range("b" & j) = wsi.Cells(i, 2)
   wst.Range("c" & j) = wsi.Cells(1, k)
   wst.Range("d" & j) = wsi.Cells(i, dci)
  Next l
 Next k
Next i
wst.Range("a1:d" & j).Borders.Weight = xlThin
wst.Columns("a:d").AutoFit
Set wsi = Nothing
Set wst = Nothing
End Sub
159testdb.xlsm (19.39 Ko)

Bonjour,

Super ça marche nickel, par contre j'avais oublié une colonne Photo mais impossible de la rajouter je suis vraiment un bourricot!!!

Je remet le fichier en pièce jointe.

Merci

81testdb.xlsm (21.56 Ko)

Bonsoir,

macro adaptée

228testdb.xlsm (19.94 Ko)

Bonjour,

MERCI!!!!!!

PROBLEME RESOLU!!!!!!

Rechercher des sujets similaires à "extraire donnees creation base"