Insérer 2 lignes vides après chaque 2 lignes de données

[blord]

Bonjour à tous,

J'ai besoin de votre aide pour un code qui insèrerait 2 lignes après chaque groupe de 2 lignes de données.

Je m'explique, mes données débutent à la ligne 11 (la ligne 10 étant les en-têtes de colonnes)

- La ligne 11 et la ligne 12 doivent demeurer l'une avec l'autre
- Après la macro les lignes 13 et 14 seraient "vides"
- Le prochain groupe de données débuterait donc à la ligne 15
- La ligne 15 et la ligne 16 doivent demeurer l'une avec l'autre
- Après la macro les lignes 17 et 18 seraient "vides"
- etc...

Le code suivant m'insère 2 lignes après chaque ligne de données :

Dim i As Long, j As Byte
Application.ScreenUpdating = False
For i = Range("A65536").End(xlUp).Row To 12 Step -1
    For j = 1 To 2
        Rows(i).Insert
    Next j
Next i

Voir le fichier ci-joint feuille avant et feuille après...

Merci pour votre aide !

Benoit Lord

 

[Paritec]

Re : Insérer 2 lignes vides après chaque 2 lignes de données

Bonjour Blord
pas sur d'avoir compris, mais essaye cela
a+
papou 🙂

Sub insérer()
Dim i As Long, j As Byte
Application.ScreenUpdating = False
For i = Range("A65536").End(xlUp).Row [COLOR=Red]- 1[/COLOR] To 12 Step [COLOR=Red]-2[/COLOR]
    For j = 1 To 2
        Rows(i).Insert
    Next j
Next i
End Sub

 

[Fred0o]

Re : Insérer 2 lignes vides après chaque 2 lignes de données

Bonsoir blord,

Tu peux essayer ce code :

 Dim i As Long, j As Byte
Application.ScreenUpdating = False
For i = Range("A65536").End(xlUp).Row - 1 To 12 Step -2
For j = 1 To 2
Rows(i).Insert
Next j
Next i

A+

 

[blord]

Re : Insérer 2 lignes vides après chaque 2 lignes de données

Bonsoir Paritec, Fred0o, le forum

Le code de Paritec fonctionnait presque mais il ne débutait pas l'insertion des deux premières lignes au bon endroit.

Le code de Fred0o fonctionne parfaitement.

Merci à vous deux pour votre aide !

Benoit Lord

 

[Papou-net]

Re : Insérer 2 lignes vides après chaque 2 lignes de données

Bonsoir à tous,

Comme je l'ai fait, je transmets.

Sub InsererLignes()
For i = 13 To 65536
  If Range("A" & i) = "" Then Exit Sub
    Range(i & ":" & i + 1).EntireRow.Insert
    i = i + 3
Next
End Sub

Et puis ça peut-être enrichissant de varier les solutions.

Cordialement.

 

[blord]

Re : Insérer 2 lignes vides après chaque 2 lignes de données

Bonsoir papou-net,

Merci pour le code, il fonctionne également très bien !

Benoit Lord