Discussion :

[chouchouboy]

Bonsoir,
Je cherche à faire un simple copier/coller d'une ligne d'une feuille à une autre feuille et un coup sur deux, ça plante avec l'erreur "La méthode Paste de la classe Worksheet a échoué".
J'ai cherché sur internet... mais les solutions données ne fonctionnent pas...
Merci de votre aide. Voici le code !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub CopieLigne()
'copie la ligne active vers les anciens clients
ActiveSheet.Unprotect
    Dim F_Départ, F_Destination
    Dim LigneDestination
    Dim test
    Set F_Départ = ActiveSheet
    Set F_Destination = Sheets("Anciens")
 
 
    F_Départ.Activate
    ActiveCell.EntireRow.Copy
 
    F_Destination.Activate
    ActiveSheet.Unprotect
    LigneDestination = F_Destination.Range("A65356").End(xlUp).Row + 1
    F_Destination.Range("A" & LigneDestination).Select
    ActiveSheet.Paste
    ActiveSheet.Protect
    F_Départ.Activate
    Application.CutCopyMode = False
 
End Sub

[mercatog]

J'ai des remarques sur l'utilisation des activesheet et activecell mais bon,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CopieLigne()
Dim F_Depart As Worksheet, F_Destination As Worksheet
 
Set F_Depart = ActiveSheet
Set F_Destination = Sheets("Anciens")
F_Depart.Unprotect
F_Destination.Unprotect
ActiveCell.EntireRow.Copy F_Destination.Range("A65356").End(xlUp)(2)
F_Depart.Protect
F_Destination.Protect
Set F_Depart = Nothing
Set F_Destination = Nothing
End Sub

[chouchouboy]

ça marche parfaitement. Merci