Discussion :

[Moctezuma57]

Bonjour,

Merci par avance à ceux qui prendront le temps de me lire/ répondre.

J'ai un fichier où j'aimerais à l'aide d'une macro insérer une ligne vide au dessus de chaque case non vide dans la colonne A.

Ex :

XX
vide
XX
vide
vide
XX

Doit devenir
XX
vide
"ligne vide"
XX
vide
vide
"ligne vide"
XX

J'espère être assez clair.

Encore merci par avance,

Bien cordialement,

[Patrice740]

Bonjour,

Ajouter des lignes vides dans une feuille Excel est généralement une mauvaise idée.
Il est préférable d'augmenter la hauteur des lignes concernées.

[Moctezuma57]

Bonjour

Merci pour votre réponse, mais dans le cas présent, j'ai besoin d'avoir des lignes insérées.

Bien cordialement,

[marot_r]

Bonjour.

Ici un idée de 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
Public Sub InsererLineVide()
    Dim feuille As Worksheet
    Set feuille = ThisWorkbook.Worksheets("Feuil1")
 
    Dim cellule As Range
    Dim iLigne As Long: iLigne = 2
 
    Do While iLigne <= feuille.Rows.Count
        Set cellule = feuille.Cells(iLigne, 1)
        cellule.Select
 
        If cellule.Value <> "" Then
            Call feuille.Rows(cellule.Row).Insert
            iLigne = iLigne + 1 'Saute la nouvelle ligne
        End If
 
        iLigne = iLigne + 1
    Loop
 
    set feuille=Nothing
    set cellule=Nothing
End Sub

Le cellule.Select n'est pas indispensable, il sert juste à voir où en est.

A+

[MarcelG]

Bonjour,

Une autre piste à tester

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
Sub essai_insert_vide()
 
Dim derlign As Long, i As Long
Dim c As Range, P As Range
 
With Feuil1
    derlign = .Cells(.Rows.Count, 1).End(xlUp).Row
    For i = 1 To derlign
        If .Cells(i, 1).Value <> "" Then
                If P Is Nothing Then
                        Set P = .Cells(i, 1)
                Else
                        Set P = Union(P, .Cells(i, 1))
                End If
        End If
        '.Insert shift:=xlUp
    Next i
End With
 
For Each c In P
        c.EntireRow.Insert Shift:=xlUp
Next c
 
Set P = Nothing
 
End Sub