Bjr à tous
Je reçois, chaque semaine, une feuil excel des produits dont le tarif a été modifié. Le code joint sert à récupérer ces nouveau prix dans ma feuil tarif
Cela fonctionne mais je souhaite automatiser le transfert
Très bonne journée
Private Sub CommandButton1_Click()
Feuil25.Range('a1').Select
TextBox1 = ActiveCell
Feuil1.Select
Cells.Find(What:=UserForm8.TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Feuil25.Select
Range('A1:H1').Select
Selection.Copy
Feuil1.Select
Selection.PasteSpecial Paste:=xlPasteAll, OPERATION:=xlNone, SkipBlanks:= _
True, Transpose:=False
Application.CutCopyMode = False
Feuil25.Select
Rows('1:1').Select
Selection.Delete Shift:=xlUp
Range('a1').Select