Bonjour à vous,
J'essaie de transférer des prix d'articles qui proviennent d'une autre feuille mais cela ne fonctionne pas très bien. Le numéro de la pièce se transfert mais le prix ne s'affiche pas.
voici le VB et je mets en annexe le fichier, cela sera plus facile à comprendre.
Il doit y avoir quelque chose que j'ai oublié. En passant, je suis un débutant.
Merci de votre aide.
Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Set copySheet = Worksheets("données")
Set pasteSheet = Worksheets("données")
copySheet.Range("g2").Copy
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(0, 6).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True
J'essaie de transférer des prix d'articles qui proviennent d'une autre feuille mais cela ne fonctionne pas très bien. Le numéro de la pièce se transfert mais le prix ne s'affiche pas.
voici le VB et je mets en annexe le fichier, cela sera plus facile à comprendre.
Il doit y avoir quelque chose que j'ai oublié. En passant, je suis un débutant.
Merci de votre aide.
Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Set copySheet = Worksheets("données")
Set pasteSheet = Worksheets("données")
copySheet.Range("g2").Copy
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(0, 6).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True