Discussion :

[Xaphyr]

Bonsoir,
J'ai besoin de sélectionner 2 lignes d'une feuille (Menu)puis de les insérer dans la feuille active. Voici comment je pensais m'y prendre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Worksheets("Menu").Rows(18, 19).Select
Rows(58).InsertSelection

Merci pour votre aide. Xaphyr

[ouskel'n'or]

Où prends-tu ces deux lignes ? Dans la même feuille ?
Veux-tu copier simplement les lignes ou les déplacer ?
En enregistrant la macro en faisant, tu aurais obtenu ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Rows("18:19").Select
    Selection.Copy
    Range("A58").Select
    Selection.Insert Shift:=xlDown

Ce qui donnerait en simplifiant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Rows("18:19").Copy destination:=Range("A58")

[Xaphyr]

Il faut que ces lignes s'insèrent,donc en décalant les autres lignes. En fait il y a 4 lignes (Origine Worksheets("Menu")) qui doivent s'insérer.
Shift:=x1Down devient-il Shift:=x4Down ?

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Rows(58).Insert Shift:=xlDown

Comme tu n'as pas à sélectionner tes lignes pour les copier, tu n'as pas à sélectionner la ligne (du dessous) de l'insert
Evite au max les select qui alourdissent le code et provoquent des mvts de feuilles

PS - Ce n'est pas x1Down mais xldown (XL) Un coup d'oeil dans l'aide (F1) t'aurait renseigné.