Transférer une ligne d'une feuille vers une autre feuille

Bonjour,

J'ai un tableau avec des données sur une Feuille "Investissement", je voudrais que certaines lignes de ce tableau soit transférées vers une autre feuille "Suivi A.Terane" si le chargé de l'opération en colonne J est "AT".

J'ai mi en place ce code mais cela ne fonctionne pas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub Worksheet_Change(ByVal Target As Range) Dim WsSource As Worksheet Dim WsCible As Worksheet Dim LigneAjout As Long Dim NumLig As Long If Target.Column = 10 Then Set WsCible = Worksheets("Suivi A.Terane") Set WsSource = Worksheets("Investissement") With WsCible LigneAjout = .Range("J" & .Rows.Count).End(xlUp).Row + 1 If Target.Value = "AT" Then Target.EntireRow.Copy Destination:=WsCible.Cells(LigneAjout, 1) End If End With Set WsCible = Nothing Set WsSource = Nothing End If End Sub

---

L'erreur qui s'affiche est : "Nom ambigu détecté : Worsheet_change"

Merci d'avance pour vos réponses

Ou as-tu copier ce code, il faut le mettre dans l'évènement de la feuille concernée ("Investissement") tu as une variable qui ne set à rien :

Code:

---

Dim WsSource As Worksheet

---

Le code dans la feuille("investissement") :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Worksheet_Change(ByVal Target As Range) Dim WsCible As Worksheet Dim LigneAjout As Long If Target.Column = 10 Then Set WsCible = Worksheets("Suivi A.Terane") With WsCible LigneAjout = .Range("J" & .Rows.Count).End(xlUp).Row + 1 If Target.Value = "AT" Then Target.EntireRow.Copy Destination:=.Cells(LigneAjout, 1) End If End With Set WsCible = Nothing End If End Sub

---

Je suis venu sur ce site et j'ai trouvé une discussion qui concernait ce problème.

J'ai bien mi ce code dans la feuille "Investissement", mais j'ai toujours la meme erreur.

A noter (j'ai oublié de le préciser) que j'ai déjà un code comme celui la dans cette feuille mais il concerne une autre colonne et permet de transférer les données sur une autre feuille. Lui par contre fonctionne bien.
Peut-être que le problème vient de la ?

Citation:

---

A noter (j'ai oublié de le préciser) que j'ai déjà un code comme celui la dans cette feuille mais il concerne une autre colonne

---

Donc tu as 2 fois le même code sur la même feuille donc erreur !

il faut mettre tout ton code sur le meme évènement

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Worksheet_Change(ByVal Target As Range) Dim WsCible As Worksheet Dim LigneAjout As Long If Target.Column = 10 Then Set WsCible = Worksheets("Suivi A.Terane") With WsCible LigneAjout = .Range("J" & .Rows.Count).End(xlUp).Row + 1 If Target.Value = "AT" Then Target.EntireRow.Copy Destination:=.Cells(LigneAjout, 1) End If End With Set WsCible = Nothing End If If Target.Column = xxx Then 'code pour l'autre colonne End If End Sub

---

Ah d'accord je ne savais pas que ce n'était pas possible d'avoir plusieurs fois le même type de code sur la même feuille. Tout s'explique alors !

Merci beaucoup !