Discussion :

[ElPibeOro]

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 :

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
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

[casefayere]

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 :

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

Dim WsSource As Worksheet

Le code dans la feuille("investissement") :

Code :

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

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

[ElPibeOro]

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 ?

[casefayere]

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 :

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
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

[ElPibeOro]

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 !