créer une ligne vierge entre chaque ligne

[Chriwautier]

Bonjour le Forum.

Juste une petite question, y a t'il une astuce pour créer une ligne vierge entre chaque ligne écrite.

càd: j'ai reçu un fichier excel écrite sur toutes les lignes +/- 1000 et je voudrais entre chaque ligne créer une nouvelle ligne

Merci de vos réponse

 

[Denis]

Bonjour Chriwautier et le Forum
ci-joint un petit exemple
Astuce, il faut commencer par le bas et remonter
Bon courage et à +
Denis [file name=Interligne.zip size=17005]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Interligne.zip[/file]

 

[Gérard DEZAMIS]

Bonjour Chri

une essai

Sub insère()
i = 1
Do While Range('A' & i) <> '' And Range('A' & i + 1) <> ''
Range('A' & i).Insert Shift:=xlDown
i = i + 2
Loop

End Sub

@+ GD

 

[chriwautier]

Bonjour denis et Gérard DEZAMIS

Merci de vos réponses. je toi quitté le bureau, je regarderais demain

Merci et bonne soirée

 

[Gérard DEZAMIS]

Re Chriwautier
Bonjour Denis

1000 excuses pour le doublon mais ... gros oubli de rafraichir ...

Retour au bercail et une petite solution supplémentaire concoctée avec l'aide d'une collègue M Borras
Regarde cela peut aussi convenir

Sub insère()
Application.ScreenUpdating=False
i = 1
If Range('A' & i) = '' And Range('A' & i + 1) = '' Then
MsgBox '2 lignes successives sont vides au début du fichier'
End If
Do While Range('A' & i) <> '' And Range('A' & i + 1) <> ''
j = i + 1
Range('A' & j).Insert Shift:=xlDown
i = i + 2
Loop
Application.ScreenUpdating=True
End Sub

A vue de nez c'est un peu plus rapide mais surement le ScreenUpdating y est pour qq chose ...

Bien cordialement
@+ GD