Insertition d'une ligne vierge apres chaque ligne

Bonjours, je recherche une solution afin de pouvoir laisser une ligne viere apres chaque ligne de données, et ca automatiquement, j'ai beaucoup de données et donc je ne peut pas me permettre de le faire manuellement.

voili voilou, j'espere que vous pourrez m'aider

merci d'avance

Bonjour

Tu as une BDD existante, et tu veux l'aérer après coup c'est ça?

Envoie nous un exemple, qu'on apprécie ton problème au mieux.

A te relire!

J'ai trouvé une solution barbare mais je preferais quelque chose de plus simple.

Donc, oui il me faut aérer la BDD en rajoutant une ligne vide apres chaque ligne de donnée.

Avant:

222 554 355 545

111 236 456 321

545 365 469 642

Apres

222 554 355 545

111 236 456 321

545 365 469 642

Voili voilou

Bonsoir

Sub InsererLignes()
Application.ScreenUpdating = False
Dim LgD As Integer, LgF As Long
Dim Ligne As Long
Dim Pas As Long

LgD = 1     '1ère ligne à traiter
LgF = 100   'dernière ligne à traiter
Pas = 1
Ligne = LgD + 1

Do While Ligne <= LgF
Rows(Ligne & ":" & Ligne + Pas - 1).Insert shift:=xlDown
Ligne = Ligne + Pas + 1
LgF = LgF + Pas
Loop

End Sub

Adapte les numéros 1ère et dernière ligne

Amicalement

Nad

Bonjour,

Bonjour, Nad

une autre solution :

Sub insert()
Dim I As Long
Application.ScreenUpdating = False
For I = [A65000].End(xlUp).Row To 2 Step -1
    Rows(I).insert
Next I
End Sub

Bonne journée

Merci beaucoup! Impeccable