jeanyves31
XLDnaute Nouveau
Bonjour
J'ai un page "Saisie" ou j'ai créer un tableau nommé "FAC_Fournisseur". J'ai également nommé les données de ce tableau "Corps_Facture" (sans les entêtes...)
Je souhaite copier le contenu de ce tableau, dans un autre tableau qui contient toute les ligne de factures
J'ai donc un tableau dans la feuille "Facture" nommé BD_Facture
Étant débutant en VBA, j'ai fait un enregistrer macro qui me donne le code suivant
Sub ENR_Facture()
'
' ENR_Facture Macro
'
'
Application.Goto Reference:="Corps_facture"
Selection.Copy
Sheets("Factures").Select
ActiveWindow.SmallScroll Down:=51
Range("A280").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=1
End Sub
Le problème est que ca me copie toujours au meme endroit en A280...
comment faire pour faire la copie à la fin du fichier?
Merci pour votre aide
Jean Yves
J'ai un page "Saisie" ou j'ai créer un tableau nommé "FAC_Fournisseur". J'ai également nommé les données de ce tableau "Corps_Facture" (sans les entêtes...)
Je souhaite copier le contenu de ce tableau, dans un autre tableau qui contient toute les ligne de factures
J'ai donc un tableau dans la feuille "Facture" nommé BD_Facture
Étant débutant en VBA, j'ai fait un enregistrer macro qui me donne le code suivant
Sub ENR_Facture()
'
' ENR_Facture Macro
'
'
Application.Goto Reference:="Corps_facture"
Selection.Copy
Sheets("Factures").Select
ActiveWindow.SmallScroll Down:=51
Range("A280").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=1
End Sub
Le problème est que ca me copie toujours au meme endroit en A280...
comment faire pour faire la copie à la fin du fichier?
Merci pour votre aide
Jean Yves