Rapport de message :*
 

Re: empecher le saut d'ecran

Titre du sujet : Re: empecher le saut d'ecran
par bhbh le 03/01/2009 15:22:13

Bonjour,

Salut JC

Comme te le dis JC, tu peux éviter les .select...
De plus un seul code peut suffire :

Sub Macro1()
x = "Table" & Right(Application.Caller, 1)
Application.ScreenUpdating = False
Range("AN5:AT29").Copy Range(Cells(5, 40).Value)
Range(x).Copy Range("AN5:AT29")
Application.CutCopyMode = False
    
Range("AF12").Select

End Sub