Discussion :

[Vadorblanc]

Bonjour
J'ai un fichier de plus de 20 000 lignes dont la colonne I comporte des nombres de 1 à 30, je souhaiterais qu'en fonction de ses nombres, à chaque fois qu'il est supérieur à 1, par exemple 2, qu'il inserre une ligne, qu'il copie la ligne, et qu'il colle son contenu dans la nouvelle ligne.
Je l'ai fait avec l'éditeur pour la ligne A3 dont la cellule de la colonne I avait le nombre 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Macro1()
    Range("A4").Select
    Selection.EntireRow.Insert
    Range("A3:J3").Select
    Selection.Copy
    Range("A4").Select
    ActiveSheet.Paste
End Sub

Merci pour vos conseils

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Insert()
Dim LastLig As Long, i As Long
Dim nb As Variant
 
 
Application.ScreenUpdating = False
With Sheets("Feuil1")
    LastLig = .Cells(.Rows.Count, "I").End(xlUp).Row
    For i = LastLig To 2 Step -1
        nb = .Range("I" & i).Value
        If IsNumeric(nb) Then
            If nb > 1 Then
                .Rows(i).Copy
                .Rows(i & ":" & i + nb - 2).Insert
                Application.CutCopyMode = False
            End If
        End If
    Next i
End With
End Sub

Attention quand même au nombre de lignes maximal d'excel 2003 (65356!)

[Vadorblanc]

Bonjour Mercatog, le forum
Encore une fois je suis en admiration devant tes codes, le fichier passe de 11 700 lignes à 27 150 lignes en quelques secondes, je pensais que cette procédure serait longue, il n'en n'est rien, tout est parfait, j'ai passé des heures à chercher des bouts de code, c'est trop beau...

J'ai trouvé une jolie citation cet après-midi sur le forum "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)

MERCI