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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
garnote
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" a écrit dans le message de news: %
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
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" <manuel.gamin@wanadoo.fr> a écrit dans le message de news: %23AYAUBiyHHA.988@TK2MSFTNGP02.phx.gbl...
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.
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" a écrit dans le message de news: %
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
Bonjour,
For i = [A65000].End(xlUp).Row To 4 Step -1 Rows(i).Resize(2).Insert Shift:=xlDown Next i
JB
"Manu" a écrit dans le message de news: %
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
Bonjour,
For i = [A65000].End(xlUp).Row To 4 Step -1
Rows(i).Resize(2).Insert Shift:=xlDown
Next i
JB
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
%23AYAUBiyHHA.988@TK2MSFTNGP02.phx.gbl...
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.
For i = [A65000].End(xlUp).Row To 4 Step -1 Rows(i).Resize(2).Insert Shift:=xlDown Next i
JB
"Manu" a écrit dans le message de news: %
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
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
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.
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
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" a écrit dans le message de news: %
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
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" <manuel.gamin@wanadoo.fr> a écrit dans le message de news: %23AYAUBiyHHA.988@TK2MSFTNGP02.phx.gbl...
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.
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" a écrit dans le message de news: %
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
C'est Nickel, Merci à vous tous.
Manu
"garnote" a écrit dans le message de news:
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" a écrit dans le message de news: %
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
C'est Nickel, Merci à vous tous.
Manu
"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news:
eh90DxiyHHA.5980@TK2MSFTNGP04.phx.gbl...
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" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
%23AYAUBiyHHA.988@TK2MSFTNGP02.phx.gbl...
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.
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" a écrit dans le message de news: %
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.