XL 2010 vba modifier nom de lignes dupliquées

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...

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 !
 

Pièces jointes

  • Duplication.xlsm
    22.6 KB · Affichages: 24

Discussions similaires

Réponses
12
Affichages
298

Membres actuellement en ligne

Statistiques des forums

Discussions
312 922
Messages
2 093 643
Membres
105 773
dernier inscrit
godelvie-divine.bihonda-b