I
Itori
Guest
Rebonjour,
Voilà mon code, la partie en rouge semble être la source de l'erreur car si je la supprime, je n'ai plus de problème. Cependant je ne comprend pas pourquoi...
Code:
'Mise en forme
[color=red] Range('Points!A' & Position1deb & ':J' & Position1fin).Copy
Range('Points!A' & Position2deb & ':J' & Position2fin).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False[/color]
Range('Points!A' & Position2deb).Value = Date
Range('Points!D' & Position2deb).Value = 'Points'
Range('Points!D' & Position2deb + 1).Value = Date
Range('Points!F' & Position2deb + 1).Value = 'Diff'
Range('Points!G' & Position2deb + 1).Value = '%'
Range('Points!H' & Position2deb).Value = 'Place'
Range('Points!H' & Position2deb + 1).Value = Date
Range('Points!J' & Position2deb + 1).Value = 'Diff'
Voilà mon code, la partie en rouge semble être la source de l'erreur car si je la supprime, je n'ai plus de problème. Cependant je ne comprend pas pourquoi...