Archivage des lignes sous condition

[heritias]

Bonjour ,
Je souhaite archiver automatiquement des lignes contenant le texte "TERMINE" dans la colonne K . Cette ligne doit s'effacer de l'onglet "en cours" pour se copier en dernière position dans l'onglet projet 1 si la colonne B = projet 1 ; projet 2 si la colonne B = Projet 2 etc etc.

J'ai parcouru le forum , je trouve des méthodes d'archivage en revanche elle laisse la ligne dans l'onglet 'En cours" et ne copie pas les information après la dernière ligne non vide dans l'onglet de destination .

C'est pour cette raison que je fais appelle à vos service .je ne connais pas le VBA .

En pièce jointe un fichier d'exemple

Merci par avance de votre réponse et bonne journée .

 

[don_pets]

Re : Archivage des lignes sous condition

'llo,

Une solution qu'elle est rigolote

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Sheets("En cours").Activate

For i = 2 To Range("A6553").End(xlUp).Row

        If Cells(i, 11) = "TERMINE" Then
            cible = Cells(i, 2).Value
            derligne = Sheets(cible).Range("A65535").End(xlUp).Row + 1
            Range(Cells(i, 1), Cells(i, 12)).Cut Destination:=Sheets(cible).Range("A" & derligne)
            Rows(i).Delete
            
        End If
        
Next i

End Sub

 

[heritias]

Re : Archivage des lignes sous condition

C'est certain elle est vraiment rigolote . Elle fonctionne du tonnerre . Un très grand merci , cela va me faire gagner un temps fou sur le classement . Un jour quand je serai grande , il faudra vraiment que je sache écrire des macros .

Bonne journée .