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

blord · 7 Décembre 2010

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 :

Code:

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 · 7 Décembre 2010

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 🙂

Code:

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 · 7 Décembre 2010

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

Bonsoir blord,

Tu peux essayer ce code :

VB:

 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 · 7 Décembre 2010

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 · 7 Décembre 2010

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

Bonsoir à tous,

Comme je l'ai fait, je transmets.

Code:

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 · 7 Décembre 2010

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

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

blord

XLDnaute Impliqué

Pièces jointes

Paritec

XLDnaute Barbatruc

Fred0o

XLDnaute Barbatruc

blord

XLDnaute Impliqué

Papou-net

XLDnaute Barbatruc

blord

XLDnaute Impliqué

Discussions similaires

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

blord

XLDnaute Impliqué

Pièces jointes

Paritec

XLDnaute Barbatruc

Fred0o

XLDnaute Barbatruc

blord

XLDnaute Impliqué

Papou-net

XLDnaute Barbatruc

blord

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency