Discussion :

[teddy72000]

Bonjour,

J'aimerais simplifié cette marco

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[groslou2]

C'est une subroutine qu'il te faut.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[teddy72000]

tu peux m'apporter des explications sur la subroutine,


je mets le code que tu as mis dans ma macro ?

[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

[teddy72000]

OK merci bcq