Insérer des lignes

[Claude Charette]

Bonjour,


J'ai 10,000 lignes avec des données, je veux insérer rapidement une ligne entre chacune des 10,000 lignes. Comment faire?

 

[@+Thierry]

Salut Claude, le Forum

En partant du Principe que des 10000 Lignes partent de La Ligne 1 à la Ligne 10000 et que tu veux une insertion de ligne vide à partir de la Ligne 2...

Essaies ceci (Faut un certain temps selon la Machine et le Processeur)

Sub InsertLigne1sur2()
Dim X As Integer
For X = 2 To 20000 Step 2 '<<<< 20000 car la plage va s'allonger en cours de boucle...
Rows(X).Insert Shift:=xlDown
Next X
End Sub

NB Fais toujours une copie de Back-Up de tes données avant de faire tourner ce genre de codes

Sinon regarde ce Fil : Lien supprimé

Bon Dimanche
@+Thierry