Copier la ligne de cellule selectionnée dans autre feuille

Bonjour,

Novice en macros, je suis face à un problème, je veux copier la ligne de la cellule sélectionnée dans une feuille dans une autre feuille "stock", à une ligne vide. Problème! mon code me copie deux fois la ligne sélectionnée et je cherche en vain mon erreur!

Je suis donc à a recherche d'une âme charitable et moins novice que moi pour m'aider

Voilà mon code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If MsgBox("Etes-vous certain de vouloir ajouter ce produit au stock ?", vbYesNo, "Demande de confirmation") = vbYes Then

Rows(ActiveCell.Row).Select
Selection.Copy
    Sheets("Stock").Select
    ActiveSheet.Rows("3:3").Select
    Selection.Insert Shift:=xlDow

MsgBox "Le produit a été ajouté au stock"

End If

End Sub 

Merci par avance

Bonne journée

Chamouth a écrit :

Rows(ActiveCell.Row).Select

Selection.Copy Sheets("Stock").Select

ActiveSheet.Rows("3:3").Select

Selection.InsertShift:=xlDow

[/code]

Bonjour,

Voilà tu fais 2 fois la même chose voir partie surligner donc soit tu fais :

Rows(ActiveCell.Row).Select

Selection.Copy

Sheets("Stock").Select

ActiveSheet.Rows("3:3").Select

selection.PasteSpecial Shift:=xlDow

[/code]

Ou soit tu fais :

Rows(ActiveCell.Row).Select

Sheets("Stock").Select

ActiveSheet.Rows("3:3").Select

Selection.insert Shift:=xlDow

[/code]

Cdlt.

Effectivement!

Merci beaucoup pour ton aide et ta réactivité,

Bonne journée