Simplification macro répétitive

Version imprimable

Bonjour,

J'aimerais simplifié cette marco

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
'2010
Sheets("Hit-2").Select
Columns("A:A").AutoFilter Field:=1, Criteria1:="2010"
Columns("A:D").Copy
Sheets("Data").Select
ActiveSheet.Paste
Range("B2:C21").Copy
Sheets("Hit").Select
Range("A3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
'2011
Sheets("Hit-2").Select
Columns("A:A").AutoFilter Field:=1, Criteria1:="2011"
Columns("A:D").Copy
Sheets("Data").Select
ActiveSheet.Paste
Range("B2:C21").Copy
Sheets("Hit").Select
Range("C3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
'2012
Sheets("Hit-2").Select
Columns("A:A").AutoFilter Field:=1, Criteria1:="2012"
Columns("A:D").Copy
Sheets("Data").Select
ActiveSheet.Paste
Range("B2:C21").Copy
Sheets("Hit").Select
Range("E3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

La macro fait toujours la meme chose sauf qu'il y a deux parametres qui varients, l'année 2010 à 2012 et la cellule de copie A3, C3, E3

MERCI Pour l'aide

C'est une subroutine qu'il te faut.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
Call MonSub("2010","A3")
Call MonSub("2011","C3")
Call MonSub("2012","E3")
 
public Sub MonSub(annee as String,macase as String)
 
Sheets("Hit-2").Select
Columns("A:A").AutoFilter Field:=1, Criteria1:=annee
Columns("A:D").Copy
Sheets("Data").Select
ActiveSheet.Paste
Range("B2:C21").Copy
Sheets("Hit").Select
Range(macase).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
end Sub

15/03/2011, 16h05
teddy72000

tu peux m'apporter des explications sur la subroutine,

je mets le code que tu as mis dans ma macro ?
15/03/2011, 16h13
groslou2

Oui, tu peux remplacer ton code par le mien. Pour ce qui est des subroutines, je te suggères d'aller jeter un oeil aux tutoriaux présents sur ce site, cf http://silkyroad.developpez.com/VBA/...acros/#LII-C-1
15/03/2011, 16h26
teddy72000

OK merci bcq