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

Joujita31 · 24 Août 2022

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 · 24 Août 2022

Bonjour @Joujita31

Une solution parmi d'autres....

VB:

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

Phil69970 · 24 Août 2022

Bonjour @Joujita31

Une solution parmi d'autres....

VB:

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 · 24 Août 2022

Phil69970 à dit:
Bonjour @Joujita31

Une solution parmi d'autres....

VB:

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 · 24 Août 2022

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

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

Joujita31

XLDnaute Nouveau

Phil69970

Phil69970

XLDnaute Barbatruc

Joujita31

XLDnaute Nouveau

Joujita31

XLDnaute Nouveau

Discussions similaires