Macro Insérér une ligne

laurentb69 -  
Le Pingou Messages postés 12273 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

En utilisant l'exemple ci-dessous, quelle fonction pourrais je utiliser pour non pas coller une ligne de la feuille 2 à la feuille 1 mais l'insérer entre des lignes de la feuille 1?

Sheets(2).Activate
lig2 = ActiveCell.Row
Sheets(1).Activate
lig1 = ActiveCell.Row
Sheets(2).Rows(lig2).Copy Sheets(1).Rows(lig1 - 1)

Merci de votre aide
Configuration: Windows Vista
Firefox 3.5.2

3 réponses

  1.
    Le Pingou Messages postés 12273 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonjour,
    Le principe pour une ligne:
    Sheets("Feuil2").Rows(n° de la ligne).Copy
    Sheets("Feuil1").Rows(n° de la ligne).Insert Shift:=xlDown
    Application.CutCopyMode = False
    1
  2. laurentb69
     
    Super ça marche!

    Merci beaucoup pour votre aide

    Cordialement
    0
  3. Le Pingou Messages postés 12273 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Merci, de rien.
    0