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
| Sub Importation_effacer()
'
' Importation_effacer Macro
'
'
Range("L3:XFD1048576,G3:J1048576,B3:E1048576").Select
Range("B3").Activate
ActiveWindow.SmallScroll ToRight:=14
Range( _
"AA3:XFD1048576,V3:Y1048576,Q3:T1048576,L3:O1048576,G3:J1048576,B3:E1048576"). _
Select
Range("B3").Activate
ActiveWindow.SmallScroll ToRight:=10
Range( _
"AK3:XFD1048576,AF3:AI1048576,AA3:AD1048576,V3:Y1048576,Q3:T1048576,L3:O1048576,G3:J1048576,B3:E1048576" _
).Select
Range("B3").Activate
ActiveWindow.SmallScroll ToRight:=9
Range( _
"AU3:XFD1048576,AP3:AS1048576,AK3:AN1048576,AF3:AI1048576,AA3:AD1048576,V3:Y1048576,Q3:T1048576,L3:O1048576,G3:J1048576,B3:E1048576" _
).Select
Range("B3").Activate
ActiveWindow.SmallScroll ToRight:=12
Range( _
"BE3:XFD1048576,AZ3:BC1048576,AU3:AX1048576,AP3:AS1048576,AK3:AN1048576,AF3:AI1048576,AA3:AD1048576,V3:Y1048576,Q3:T1048576,L3:O1048576,G3:J1048576,B3:E1048576" _
).Select
Range("B3").Activate
Selection.ClearContents
Range("B3").Select
End Sub |
Partager