Ajouter des lignes vides à intervalle régulier ???

bonjour à tous,

Je voudrais savoir si il est possible d'insérer simplement des lignes vides dans un document ?

exemple AVANT:

Pomme

Poire

Tomate

Jambon

Fraise

exemple APRES

Pomme

Poire

Tomate

Jambo,

Fraise

Merci beaucoup pour votre aide futur

Cordialement

Bylbo

Bonjour,

Une proposition.

Option Explicit
Public Sub ajout_lignes_vides()
Dim ws As Worksheet, Cell As Range
    Application.ScreenUpdating = False
    Set ws = Worksheets("Feuil1")
    With ws
        For Each Cell In .Range("A2:A" & .Range("A2").End(xlDown).Row)
            If Application.IsEven(Cell.Row) Then Cell.EntireRow.Insert
        Next
    End With
End Sub

Bonjour,

Essaie avec cette macro

Sub Inserer()
Dim Ligne As Long
    For Ligne = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        Rows(Ligne).Insert
    Next Ligne
End Sub

A+

OK les 2 façons de faire fonctionne, mais je me suis mal exprimé.

Je voudrais pouvoir selectionner qu'un partie des lignes ou je veux en ajouter une vide.

Car la les lignes blanches s'insèrent sur tout le document.

Est il possible de faire cela simplement.

Cordialement

Bylbo

Bonjour!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ActiveCell.Offset(1).Resize(1, 1).EntireRow.Insert
End Sub

A tester!

Ce code permet d'insérer une ligne vide en dessous de la cellule sur laquelle tu fais un double clic gauche!!

Bonjour,

Il va falloir être plus précis et joindre un fichier avec exemples

Bonjour,

Tout simplement, avec ce code tu choisi ou insérer tes lignes vides :

Sub inserer_ligne()

Dim x As Integer

x = InputBox("No. ligne à insérer?")
If x <> "" Then
    Sheets("Feuil1").Rows(x).insert
End If
End If

End Sub

Cdlt.