Répéter une macro
Bonjour,
Bonjour, j'ai une base de données de 4000 lignes sur EXCEL 2003, et je veux inséerer 2 lignes entre chaque lignes. Je veux créér une macro qui répète chaquez fois l'opération. Celle que j'ai enregistré me renvoie toujours à ma ligne de départ. Merci dem'aider.
Bonjour, j'ai une base de données de 4000 lignes sur EXCEL 2003, et je veux inséerer 2 lignes entre chaque lignes. Je veux créér une macro qui répète chaquez fois l'opération. Celle que j'ai enregistré me renvoie toujours à ma ligne de départ. Merci dem'aider.
Configuration: Windows XP Internet Explorer 7.0
1 réponse
-
ContributeurBonjour,
si ta colonne A te donne la dernière ligne à traiter (sinon tu remplaces le A de [A65536] par ta colonne ayant le plus de lignes) :
Sub insere2()
Dim r As Long
For r = [A65536].End(xlUp).Row To 1 Step -1
Rows(r).Insert Shift:=xlDown
Rows(r).Insert Shift:=xlDown
Next r
End Sub
eric
