1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Sub Extraire_donnees()
'
' Extraire_donnees Macro
'Sélectionne le nom du commerçant
Range("H10:J10").Select
' selectionne les données
Sheets("Données globlales").Select
'filtre les données
ActiveSheet.Range("$A$1:$G$675").AutoFilter Field:=5, Criteria1:="BAILLY"
'copie les données suivant le nom du commerçant
Range("B3:B21").Select
Selection.Copy
Range("B3:B21,F3:G21").Select
Range("F3").Activate
Application.CutCopyMode = False
Selection.Copy
'sélectionne la facture et copie
Sheets("Facture").Select
ActiveWindow.LargeScroll Down:=1
Range("B33").Select
ActiveSheet.Paste
End Sub |
Partager