Macro Insérér une ligne

laurentb69 -  
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

  • Votes
  • Date
  • Date décroissante
  1. Le Pingou
    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. laurentb69
      Super ça marche!

      Merci beaucoup pour votre aide

      Cordialement