J
Jean Marc
Guest
Bonjourle forum,
je vous sollicite une nouvelle fois concernant ce morceau de code
' Copie des données dans Infos
Sheets('Infos').Select
Columns('V:W').Select
Application.CutCopyMode = False
Selection.ClearContents
Columns('AA:AB').Select
Application.CutCopyMode = False
Selection.ClearContents
Sheets(saison).Select
Range('j7:k' & Range('k65536').End(xlUp).Row).Select
Selection.Copy
Sheets('Infos').Select
Range('V2:V4').Select
ActiveSheet.Paste
Sheets(saison).Select
Range('V7:W' & Range('W65536').End(xlUp).Row).Select
Selection.Copy
Sheets('Infos').Select
Range('AA2:AA4').Select
ActiveSheet.Paste
Range('X2:Y12').Select
Selection.Copy
Sheets('Synt').Select
Range('B17').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets(saison).Select
Range('AC2:AB12').Select
Selection.Copy
Sheets('Synt').Select
Range('G17').Select
Selection.PasteSpecial Paste:=xlPasteValues,
**Operation:=xlNone, SkipBlanks:=False, Transpose:=False**
Application.Goto Reference:='Macro10'
Serait possible de le simplifier?
L'avant dernière ligne entre les '**' me colle une erreur alors que la 8ème ligne au dessus passe !!
je souhaiterais des explications sur ce code
Application.Goto Reference:='Macro10'
ai cherché mais rien trouvé dans l'aide
Peut on s'en passer? si oui comment ?
Grand merci a vous
JM
je vous sollicite une nouvelle fois concernant ce morceau de code
' Copie des données dans Infos
Sheets('Infos').Select
Columns('V:W').Select
Application.CutCopyMode = False
Selection.ClearContents
Columns('AA:AB').Select
Application.CutCopyMode = False
Selection.ClearContents
Sheets(saison).Select
Range('j7:k' & Range('k65536').End(xlUp).Row).Select
Selection.Copy
Sheets('Infos').Select
Range('V2:V4').Select
ActiveSheet.Paste
Sheets(saison).Select
Range('V7:W' & Range('W65536').End(xlUp).Row).Select
Selection.Copy
Sheets('Infos').Select
Range('AA2:AA4').Select
ActiveSheet.Paste
Range('X2:Y12').Select
Selection.Copy
Sheets('Synt').Select
Range('B17').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets(saison).Select
Range('AC2:AB12').Select
Selection.Copy
Sheets('Synt').Select
Range('G17').Select
Selection.PasteSpecial Paste:=xlPasteValues,
**Operation:=xlNone, SkipBlanks:=False, Transpose:=False**
Application.Goto Reference:='Macro10'
Serait possible de le simplifier?
L'avant dernière ligne entre les '**' me colle une erreur alors que la 8ème ligne au dessus passe !!
je souhaiterais des explications sur ce code
Application.Goto Reference:='Macro10'
ai cherché mais rien trouvé dans l'aide
Peut on s'en passer? si oui comment ?
Grand merci a vous
JM