Discussion :

[cynoq]

Bonsoir,
Je bloque sur une partie de macro.
Je copie une ligne complète d'une feuille et je dois la copier sur une autre feuille dans une ligne numérotée "ligne_copie".
J'ai une erreur "La méthode Paste de la classe Worksheet a échoué".

Voici la partie du code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
For i = 1 To 65000
    If Range("B" & i).Value = nom_agent Then
        ' Copie de la ligne
        Rows(i).Select
        Selection.Copy
        Application.CutCopyMode = False
        Sheets("REQUETE-AGENT").Select
        Range("A" & ligne_copie).Select
        ActiveSheet.Paste
        ligne_copie = ligne_copie + 1
        pas_resultat = 0
    End If
    Next i

D'où peut provenir mon erreur ?
Merci par avance pour votre aide.

[DarkGenius]

L'erreur vient du fait que tu peut pas coller une ligne a partir d'une cellule :

Essaie un truc du genre :

Code :

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

1
2
3
4
5
 
....
Rows(i).copy
worksheets("REQUETE-AGENT").rows(ligne_coller).insert shift:=xlDown
....

[cynoq]

ok, ça marche comme ça.
Merci pour le renseignement.
A bientôt.