Répéter une macro

FRV812 -  
eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   -
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.
Configuration: Windows XP
Internet Explorer 7.0

1 réponse

  1.
    eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

    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
    0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses
recup couleur de cellule sans macro
magouero -
JvDo -

7 réponses
Tableau dans Word
etache -
Nicole_de_Gatineau -

26 réponses