Discussion :

[noua59]

bonjour,

j ai deux fichiers un sur la feuille 1 et l'autre sur la feuille 2

je souhaite créer une macro qui me permettra d'inserer un certains nombre de lignes dans la feuille 1 (ex: apres chaque cinq lignes je souhaite inserer 6 lignes vides), dans ces lignes je souhaite recopier les premiers 6 lignes de la seconde feuille et ainsi de suite

voila mon code

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
21
22
23
24
25
26
27
28
29
Sub inser_copier()
Dim i As Integer, j As Integer
Dim x As Integer, y As Integer
Dim nbs As Integer, nbi As Integer
x = 1
y = 0
 nbs = InputBox("combien de ligne vous voulez sauter?")
nbi = InputBox("combien de ligne vous voulez insérer?")
 
    For i = 1 To 50 Step nbs
 
        For j = 1 To nbi
            Cells(i + (nbs + y) - 1, 1).Select
             Selection.EntireRow.Insert Shift:=xlDown
                y = y + 1
        Next
 
             For j = 1 To nbi
 
                 Sheets("Feuil2").Select
                 Sheets("Feuil2").Rows(x & ":" & (x + nbi) - 1).Select
                 Selection.Copy
                 Sheets("Feuil1").Select
                ActiveSheet.Paste
            Next
 
                x = x + nbi
    Next
End Sub

merci pour votre aide

[jfontaine]

Dans un premier temps, il est plus lisible si tu mets ton code dans las balises code (le symbole #)

Cela étant dit,

Pour la déclaration de tes variables, fais omme ca, sinon i et x seront déclarés en variant

Code :

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

1
2
3
 
Dim i As Integer, j As Integer
Dim x As Integer, y As Integer

Sur la dernière boucle for, il faut préciser la feuille pour la sélection de lignes

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    For j = 1 To nbi
 
        Sheets("Feuil2").Select
        Sheets("Feuil2").Rows(x & ":" & (x + nbi) - 1).Select
        Selection.Copy
        Sheets("Feuil1").Select
 
        ActiveSheet.Paste
    Next