AJOUT DE LIGNES

[leo456]

QUI CONNAIS UN SYSTEME POUR AJOUTER SYSTEMATIQUEMENT UNE LIGNE VIERGE APRES CHAQUE LIGNE EXCEL. JE M EXPLIQUE ! J AI UN FICHIER CONTENANT 1500 LIGNES DEJA SAISI, MAIS IL ME FAUT UNE LIGNE VIERGE ENTRE CHAQUE LIGNE.

ET BIEN SUR JE N AI AUCUNE ENVIE D INSERER LIGNE APRES LIGNE..


MERCI D AVANCE



REPONSES SUR xfi_98@hotmail.com

 

[Soso]

Bonjour,

A mon avis il faut faire une macro mais je ne sais pas comment... Je pense que cela ne doit pas être compliqué, certains doivent savoir...

 

[PhiBou]

Salut Leo456, Soso, le Forum

Un code comme ça devrait convenir

Sub Insert_Ligne()
For i = 2 To 1500 Step 2
Rows(i & ':' & i).Select
Selection.Insert Shift:=xlDown
Next i
End Sub

Bonne soirée

PhiBou

 

[leo456]

merci phil

sauf que j ai l erreur suivante

end sub attendu...

si tu peux m eclairer ....

 

[MichelXld]

bonjour Leo456 , Soso et Phibou

si tu as ce message d'erreur , cela signifie que tu as oublié d'ecrire


Sub Insert_Ligne()
For i = 2 To 1500 Step 2
Rows(i & ':' & i).Select
Selection.Insert Shift:=xlDown
Next i
End Sub

en fin de macro .


bonne soiree
MichelXld

Message édité par: MichelXld, à: 19/08/2005 17:30

 

[PhiBou]

Salut le Fil, le Forum

Michel (salut au passage) , tu es trop sympa, car en fait, avec un tant soit peu de réflexion ou de relecture de la macro, Leo aurait du trouver lui-même; le debug était trop facile et c'est pour cela que je n'ai pas répondu.

Je pense que l'on est tous ici pour s'entraider, mais cogiter un peu vous aussi...

Bonne soirée

PhiBou