Discussion :

[brutus437]

Bonsoir à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
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

Je ne vois pas ce qui cloche, avez-vous de solutions pour résoudre ce soucis?

[hyperion13]

Salut
VBA ne sait pas sélectionner.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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