insertion d'une ligne blanche entre deux lignes de texte

[jgirard]

bonjour,

je souhaite insérer des lignes blanches (vides) entre chaque ligne de texte dans un bloc de texte, sans le faire manuellement par la fonction insertion ligne (j'ai 10 000 lignes...). Connaissez-vous l'astuce? merci !

 

[GPLIONEL]

Re : insertion d'une ligne blanche entre deux lignes de texte

Bonjour Girard

Voilà une petite macro :
Sub Macro1()
Range("A1").Select
While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Insert
ActiveCell.Offset(1, 0).Select
Wend
End Sub

 

[PascalXLD]

Re : insertion d'une ligne blanche entre deux lignes de texte

Bonjour

une petite macro pour te faire cela

Sub ajoutligne()
Dim x As Integer

Application.ScreenUpdating = False
For x = Range("a65536").End(xlUp).Row To 2 Step -1
    Rows(x).Insert
Next
Application.ScreenUpdating = True

End Sub

 

[jgirard]

Re : insertion d'une ligne blanche entre deux lignes de texte

merci bcp, ça marche !