kan3pz
XLDnaute Occasionnel
Bonjour à tous,
J'ai besoin d'aide pour compléter une macro, voici mon problème :
J'ai une liste de produit en colonne A qui peut être répertorié sous différentes catégories.
Je souhaite dupliquer les produits selon le nombre de catégories dans lesquels ils apparaissent et modifier leurs noms lors de la duplication pour les identifier (ProduitA_cat1 ; produitA_cat2...)
Voici le début de la macro pour dupliquer mes lignes, je ne sais pas comment faire pour les renommer au passage...
Merci !
J'ai besoin d'aide pour compléter une macro, voici mon problème :
J'ai une liste de produit en colonne A qui peut être répertorié sous différentes catégories.
Je souhaite dupliquer les produits selon le nombre de catégories dans lesquels ils apparaissent et modifier leurs noms lors de la duplication pour les identifier (ProduitA_cat1 ; produitA_cat2...)
Voici le début de la macro pour dupliquer mes lignes, je ne sais pas comment faire pour les renommer au passage...
Code:
Sub Duplication()
Dim LigneDuplic As Long
Dim NbCopie As Long
LigneDuplic = 2
For i = 2 To Range("A65536").End(xlUp).Row
Sheets("Lignes").Select
NbCopie = Cells(i, 7)
Range(Cells(i, 1), Cells(i, 1)).Select
Selection.Copy
Sheets("Duplication").Select
Range(Cells(LigneDuplic, 1), Cells(LigneDuplic + NbCopie - 1, 1)).Select
ActiveSheet.Paste
LigneDuplic = LigneDuplic + NbCopie
Next i
End Sub
Merci !