Microsoft 365 Copies de données entre feuilles

[Randomuser]

Bonjour à tous,

Je rencontre un problème dans mon classeur:

Je souhaite copier une ligne entière lorsque les cellules de la colonne J de la feuille "Suivi Attestra" contiennent les termes "OK" ou "ANNULÉ"
Lorsqu'il y a marqué "OK" la ligne entière en question est copiée dans la feuille "Suivi MELCC" puis supprimé dans la feuille "Suivi Attestra"
Lorsqu'il y a marqué "ANNULÉ" la ligne entière en question est copiée dans la feuille "Demandes annulées" puis supprimé dans la feuille "Suivi Attestra"

La copie de données fonctionne mais toutes les lignes se superposent (la copie se fait sans incrémentation) dans la feuille "Demandes annulées" alors qu'avec le statut "OK", les lignes sont copiées avec incrémentation (Les unes en dessous des autres)


Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range, DerLg As Long, DerLg2 As Long, Contenu As String



Set Plage = Range("J16:J" & Range("J" & Rows.Count).End(xlUp).Row)
DerLg = Sheets("Suivi MELCC").Range("J" & Rows.Count).End(xlUp).Row + 1
DerLg2 = Sheets("Demandes annulées").Range("J" & Rows.Count).End(xlUp).Row + 1
If Not Intersect(Target, Plage) Is Nothing And Target.Count = 1 Then
If Target.Value = "OK" Then
Target.EntireRow.Copy Destination:=Sheets("Suivi MELCC").Range("A" & DerLg)
Target.EntireRow.Delete



ElseIf Target.Value = "ANNULÉ" Then
Target.EntireRow.Copy Destination:=Sheets("Demandes annulées").Range("A" & DerLg2)
Target.EntireRow.Delete
End If


End If
End Sub

 

[sylvanu]

Bonsoir Randomuser,
Vous n'auriez pas un petit fichier test, juste quelques lignes OK et ANNULE. ?
A priori c'est le DerLg2 qui pose souci. La colonne J est bien remplie quand on fait ANNULE ?
Car c'est comme si la colonne J n'était pas remplie, alors effectivement le DerLig2 donnerait toujours la même valeur.
Vous pourriez essayer avec :

DerLg2 = Sheets("Demandes annulées").Range("A" & Rows.Count).End(xlUp).Row + 1