J'ai un tableau EXCEL avec des références articles et leur prix suivant Qté
Exemple
Code article ,Libelle article ,Prix Qté 25, Prix Qté 50, Px Qté 100... (en
colonnes)
xxxxx xxxxxxxx 5.50 5.00 4.00
La fonction transpose marche bien pour basculer en colonnes mais je voudrais
garder la racine code article, libellé article et donner ainsi :
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
Tableau origine en colonnes A,B,C,D,E
Sub essai() ligne = 2 colonne = 1 For Each c In Range([A2], [a65000].End(xlUp)) For col = 2 To 4 With Sheets(2) .Cells(ligne, colonne) = c .Cells(ligne, colonne).Offset(0, 1) = c.Offset(0, 1) .Cells(ligne, colonne).Offset(0, 2) = Array(25, 50, 100)(col - 2) .Cells(ligne, colonne).Offset(0, 3) = c.Offset(0, col) ligne = ligne + 1 End With Next col Next c End Sub
J'ai un tableau EXCEL avec des références articles et leur prix suiva nt Qté
Exemple Code article ,Libelle article ,Prix Qté 25, Prix Qté 50, Px Qté 100 ... (en colonnes) xxxxx xxxxxxxx 5.50 5.00 4.00 La fonction transpose marche bien pour basculer en colonnes mais je voudr ais garder la racine code article, libellé article et donner ainsi :
Sub essai()
ligne = 2
colonne = 1
For Each c In Range([A2], [a65000].End(xlUp))
For col = 2 To 4
With Sheets(2)
.Cells(ligne, colonne) = c
.Cells(ligne, colonne).Offset(0, 1) = c.Offset(0, 1)
.Cells(ligne, colonne).Offset(0, 2) = Array(25, 50, 100)(col - 2)
.Cells(ligne, colonne).Offset(0, 3) = c.Offset(0, col)
ligne = ligne + 1
End With
Next col
Next c
End Sub
http://cjoint.com/?dglPk5w5FK
JB
On 6 mar, 11:08, Chantal D82 <Chantal D...@discussions.microsoft.com>
wrote:
J'ai un tableau EXCEL avec des références articles et leur prix suiva nt Qté
Exemple
Code article ,Libelle article ,Prix Qté 25, Prix Qté 50, Px Qté 100 ... (en
colonnes)
xxxxx xxxxxxxx 5.50 5.00 4.00
La fonction transpose marche bien pour basculer en colonnes mais je voudr ais
garder la racine code article, libellé article et donner ainsi :
Sub essai() ligne = 2 colonne = 1 For Each c In Range([A2], [a65000].End(xlUp)) For col = 2 To 4 With Sheets(2) .Cells(ligne, colonne) = c .Cells(ligne, colonne).Offset(0, 1) = c.Offset(0, 1) .Cells(ligne, colonne).Offset(0, 2) = Array(25, 50, 100)(col - 2) .Cells(ligne, colonne).Offset(0, 3) = c.Offset(0, col) ligne = ligne + 1 End With Next col Next c End Sub
J'ai un tableau EXCEL avec des références articles et leur prix suiva nt Qté
Exemple Code article ,Libelle article ,Prix Qté 25, Prix Qté 50, Px Qté 100 ... (en colonnes) xxxxx xxxxxxxx 5.50 5.00 4.00 La fonction transpose marche bien pour basculer en colonnes mais je voudr ais garder la racine code article, libellé article et donner ainsi :