Insertion

Le
Manu
Bonjour,

Je souhaiterais automatiser a partir de la ligne 4 une insertion de 2 lignes
vierges entre chaque ligne de ma BDD. Par l'enregistreur je n'y arrive pas.
Merci du coup de pouce.

Manu
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
garnote
Le #4623951
Salut Manu,

Peut-être que :

Sub Insere_Lignes_Vides()
Application.ScreenUpdating = False
dl = [a65536].End(xlUp).Row
For i = dl To 5 Step -1
Rows(i & ":" & i + 1).Insert Shift:=xlDown
Next i
Application.ScreenUpdating = True
End Sub

Serge


"Manu"
Bonjour,

Je souhaiterais automatiser a partir de la ligne 4 une insertion de 2 lignes vierges entre chaque ligne de ma BDD. Par
l'enregistreur je n'y arrive pas. Merci du coup de pouce.

Manu



Boisgontier
Le #4623941
Bonjour,

For i = [A65000].End(xlUp).Row To 4 Step -1
Rows(i).Resize(2).Insert Shift:=xlDown
Next i

JB

"Manu" %
Bonjour,

Je souhaiterais automatiser a partir de la ligne 4 une insertion de 2
lignes vierges entre chaque ligne de ma BDD. Par l'enregistreur je n'y
arrive pas. Merci du coup de pouce.

Manu



Ellimac
Le #4623911
Bonjour,

Avec une BDD commençant en ligne 5 :

Sub Toto()
Range("a60000").End(xlUp).Select
While ActiveCell.Row <> 5
ActiveCell.Range("a1:a2").EntireRow.Insert
ActiveCell.Offset(-1).Select
Wend
End Sub

Camille

"Manu" wrote:

Bonjour,

Je souhaiterais automatiser a partir de la ligne 4 une insertion de 2 lignes
vierges entre chaque ligne de ma BDD. Par l'enregistreur je n'y arrive pas.
Merci du coup de pouce.

Manu





garnote
Le #4623861
Si tu commences à insérer tes deux lignes vides
en bas de la ligne 4, il ne doit pas y avoir plus de
21 844 données sous cette ligne.
S'il y a 21 844 données sous la ligne 4, la dernière
donnée se retrouve sur la ligne 65 536 et dans ce
cas la macro suivante a pris 12 minutes 23 secondes
pour faire son travail !!!
Dois-je changer d'ordinateur ?

Sub Insere()
Application.ScreenUpdating = False
t1 = Time
For i = [A65536].End(xlUp).Row To 5 Step -1
Rows(i).Resize(2).Insert Shift:=xlDown
Next i
MsgBox Format(Time - t1, "mm:ss")
Application.ScreenUpdating = True
End Sub

Serge


"Manu"
Bonjour,

Je souhaiterais automatiser a partir de la ligne 4 une insertion de 2 lignes vierges entre chaque ligne de ma BDD. Par
l'enregistreur je n'y arrive pas. Merci du coup de pouce.

Manu



Manu
Le #4866841
C'est Nickel, Merci à vous tous.

Manu

"garnote"
Si tu commences à insérer tes deux lignes vides
en bas de la ligne 4, il ne doit pas y avoir plus de
21 844 données sous cette ligne.
S'il y a 21 844 données sous la ligne 4, la dernière
donnée se retrouve sur la ligne 65 536 et dans ce
cas la macro suivante a pris 12 minutes 23 secondes
pour faire son travail !!!
Dois-je changer d'ordinateur ?

Sub Insere()
Application.ScreenUpdating = False
t1 = Time
For i = [A65536].End(xlUp).Row To 5 Step -1
Rows(i).Resize(2).Insert Shift:=xlDown
Next i
MsgBox Format(Time - t1, "mm:ss")
Application.ScreenUpdating = True
End Sub

Serge


"Manu" %
Bonjour,

Je souhaiterais automatiser a partir de la ligne 4 une insertion de 2
lignes vierges entre chaque ligne de ma BDD. Par l'enregistreur je n'y
arrive pas. Merci du coup de pouce.

Manu







Publicité
Poster une réponse
Anonyme