XL 2013 méthode pastespecial de la classe range a échoué

[Joujita31]

bonsoir a tous


je rencontre un problème à l'exécution de cette macro ; (méthode pastespecial de la classe range a échoué)


Sub data_last_column()
Sheets("data_temp").Select
Range("A2:T2").Select
Selection.Copy
Sheets("data_mois").Select
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

 

[Phil69970]

Bonjour @Joujita31

Une solution parmi d'autres....

Sub data_last_column()
Sheets("data_temp").Range("A2:T2").Copy
Sheets("data_mois").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End Sub

Edit : Dans la plupart des cas on peut se passer des "select" et/ou "activate"

Merci de ton retour

@Phil69970

 

[Joujita31]

Bonjour @Joujita31

Une solution parmi d'autres....

Sub data_last_column()
Sheets("data_temp").Range("A2:T2").Copy
Sheets("data_mois").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End Sub

Edit : Dans la plupart des cas on peut se passer des "select" et/ou "activate"

Merci de ton retour

@Phil69970

 

[Joujita31]

Bonjour @Phil69970 , merci beaucoup, ça marche nickel, ça va me permettre de simplifier pas mal de ligne de code. Bonne soirée de Beyrouth