déplacer une ligne vers une feuille sur une reference

[mix770]

😕Bonjour à tous,
j'ai une feuille "travaux en cours" en fin de ligne quand le problème est réglé je souhaiterais que la ligne soit déplacée vers la feuille "travaux classés" quand on inscrit clôturé dans la colonne "état"
au pire j'ai trouvé avec bouton click si ce n'était pas possible de façon automatique mais cela ne marche pas
je ne suis pas encore à l'aise avec les macros
merci à vous
cordialement
Mix770

 

[Compte Supprimé 979]

Re : déplacer une ligne vers une feuille sur une reference

Bonsoir Mix770

Peut-être avec ce code à mettre devant l'existant

  Lig = Target.Row: DLig = Sheets("ARCHIVE").Range("A" & Rows.Count).End(xlUp).Row
  If Not Intersect(Target, Range("O:O")) Is Nothing Then
    If Target.Value = "clôturé" Then
      Application.EnableEvents = False
      Application.ScreenUpdating = False
      Rows(Lig & ":" & Lig).Cut
      With Sheets("ARCHIVE")
        .Activate
        .Range("A" & DLig + 1).Select
        .Paste
      End With
      Sheets("Travaux en cours").Activate
      Application.ScreenUpdating = True
      Application.EnableEvents = True
    End If
  End If

A+

 

[mix770]

Re: Re : déplacer une ligne vers une feuille sur une reference

Bonjour BrunoM45,
merci pour ta réponse rapide, je vais essayé de ne pas être un boulet dans mes explications, alors j'ai insérer le code et j'ai un message" Erreur de compilation, instruction incorrecte à l'extérieur d'une procédure" et le mot "target est surligné !!
je ne sais pas si c'est assez clair pour toi
en tout cas merci pour le temps que tu me consacre
cordialement
Mix770

 

[Compte Supprimé 979]

Re : déplacer une ligne vers une feuille sur une reference

Salut 😉

Il faut mettre le code dans ta feuille "Travaux en cours" dans l'évènement de la feuille
Private Sub Worksheet_Change(ByVal Target As Range)

Je te joint le fichier, cela aurait été tellement plus simple 😱

A+

 

[Si...]

Re : déplacer une ligne vers une feuille sur une reference

Salut

cela ne suffirait-il pas (sans Select ni Activate) ?

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Li As Long, Dli As Long
    If Target.Column = 15 And Target.Row > 3 Then
        If Target <> "clôturé" Then Exit Sub
        Li = Target.Row
        With Sheets("Archive")
            Dli = .Cells(Rows.Count, 1).End(xlUp).Row + 1
            .Range("A" & Dli & ":O" & Dli).Value = Range("A" & Li & ":O" & Li).Value
        End With
        Range("A" & Li & ":O" & Li).ClearContents
    End If
End Sub

Maintenant il peut y avoir des problèmes de Formats, de tri ... (contexte incomplet).

 

[Compte Supprimé 979]

Re : déplacer une ligne vers une feuille sur une reference

Bonsoir Si...

Bonne solution, si .... la ligne n'a pas besoin d'être forcément coupée (pour remonter les données par exemple)

A+