Dupliquer la ligne selon N

toto92 · 26/08/2008, 11h42

Bonjour
J'ai une feuille Excel "copy of UC Desktops.xls" ( fichier joint )
Je voudrai dupliquer la ligne entiere selon "quantité SAP" ( qui peut etre entre 0 et 500 )

si Quantité SAP = 5 ==> Dupliquer la ligne entiere : 4 fois juste en dessous

Merci

Pour info : j utilise Excel 2003

fring · 26/08/2008, 13h30

Bonjour,

Si j'ai bien compris, ceci devrait convenir

Code :

Sub Test()
Application.ScreenUpdating = False
Dim i As Integer, N As Integer
 
For i = Cells(Rows.Count, 7).End(xlUp).Row To 5 Step -1
    If Cells(i, 7) > 1 Then
        N = Cells(i, 7).Value - 1
        Range(Cells(i + 1, 1), Cells(i + N, 1)).EntireRow.Insert
        Rows(i).Copy Range(Cells(i + 1, 1), Cells(i + N, 1))
    End If
Next
Application.ScreenUpdating = True
End Sub

26/08/2008, 13h30	#2 (permalink)
fring Rédacteur/Modérateur Date d'inscription: février 2008 Localisation: Bxl Âge: 45 Messages: 2 667	Bonjour, Si j'ai bien compris, ceci devrait convenir Code : Sub Test() Application.ScreenUpdating = False Dim i As Integer, N As Integer For i = Cells(Rows.Count, 7).End(xlUp).Row To 5 Step -1 If Cells(i, 7) > 1 Then N = Cells(i, 7).Value - 1 Range(Cells(i + 1, 1), Cells(i + N, 1)).EntireRow.Insert Rows(i).Copy Range(Cells(i + 1, 1), Cells(i + N, 1)) End If Next Application.ScreenUpdating = True End Sub __________________ LES FAQ OFFICE - LES COURS OFFICE - LES LIVRES OFFICE - SOURCES VBA - ATELIER BRICOLAGE VBA Prenez quelques secondes pour lire ceci : Aide sur l'utilisation des boutons du forum Hormis pour me demander mon numéro de compte afin d'y effectuer un versement, évitez de m'envoyer vos questions par MP, merci d'avance En posant une question on risque d'avoir l'air idiot cinq minutes. En n'en posant pas, on risque de le rester toute sa vie (proverbe chinois)

		Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Excel > VBA Excel
Dupliquer la ligne selon N

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email