AJOUT DE LIGNES

leo456

XLDnaute Nouveau
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
 
P

PhiBou

Guest
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
 

MichelXld

XLDnaute Barbatruc
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
 
P

PhiBou

Guest
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
 

Discussions similaires

Statistiques des forums

Discussions
312 922
Messages
2 093 644
Membres
105 775
dernier inscrit
assen