insertion Lignes

[magnumspy]

Bonjour,


J'ai un tableau qui fait x lignes, entre chaque ligne j'aimerai inserer une ligne vide.
Pouvez vous me donner le truc.

Je pourrais m'amuser à faire clique droit sur chaque ligne et mais cela prends du temps et quand le tableau fait 700 lignes ...

Je pense que cela doit etre super facile ce que je demande mais je n'ai pas le temps de chercher car tres occuper et mon chef me demande ce tableau super rapidement

Merci de votre aide

 

[Staple1600]

Re : insertion Lignes

Bonjour



Essaie ce code

Sub Insertion_lignes()
Dim r As Long
Application.ScreenUpdating = False
r = Range("A65536").End(xlUp).Row
Do Until Cells(r, 1).Row = 1
Cells(r, 1).EntireRow.Insert shift:=xlDown
r = Cells(r, 1).Offset(-1, 0).Row
Loop
Application.ScreenUpdating = true
End Sub

 

[magnumspy]

Re : insertion Lignes

Je vous remercie de votre rapidité

Cdt

 

[magnumspy]

Re : insertion Lignes

Et pour ajouter une ligne toutes les 2 lignes on opere de quelle maniere

A partir de la ligne 3 (ligne 1 et 2 figure les titres des colonnes ) on aurait => Ligne 3-4 fixent et insertion en ligne 5 d'une ligne vide et ainsi de suite

Dans l'attente de votre aide

 

[skoobi]

Re : insertion Lignes

Bonjour magnumspy, JM 🙂,

en reprenant le code de Staple:

Sub Insertion_lignes()
Dim r As Long
Application.ScreenUpdating = False
r = Range("A65536").End(xlUp).Row
Do Until Cells(r, 1).Row = [B][COLOR=blue]3[/COLOR][/B]
Cells(r, 1).EntireRow.Insert shift:=xlDown
r = Cells(r, 1).Offset([COLOR=blue][B]-2[/B][/COLOR], 0).Row
Loop
Application.ScreenUpdating = true
End Sub

Pas testé mais ça devrait le faire.