XL 2016 Macro pour tableau Excel

[M1thys]

Bonjour tout le monde !

J'aimerais automatiser mon tableau Excel. Pour faire simple une fois que je valide un devis dans la feuille "devis" la ligne en question soit basculer automatiquement dans la feuille" 2024".

Merci d'avance pour votre aide.

 

[eastwick]

Bonjour, peut-être ceci

 

[M1thys]

Bonjour, peut-être ceci

Bonjour,
Je ne vois pas de modification ?

 

[sylvanu]

Bonjour M1thys, Eastwick,
Un essai en PJ avec cette macro :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Target <> "Validé" Then Exit Sub     ' Si ligne pas validé, on sort
    Application.ScreenUpdating = False
    L = Target.Row                          ' Ligne à traiter
    If Cells(L, "B") = "" Then Exit Sub     ' Si pas de date on sort
    Année = Year(Cells(L, "C"))             ' Extraction de l'année pour pointer bonne feuille
    DL = 1 + Sheets(CStr(Année)).Cells(Cells.Rows.Count, "G").End(xlUp).Row ' Première ligne vide de la feuille concernée
    For C = 2 To 9                          ' Pour les colonnes B à I
        Sheets(CStr(Année)).Cells(DL, C) = Cells(L, C)  ' Recopie des valeurs
    Next C
Fin:
Application.ScreenUpdating = True
End Sub

La macro est automatique si on valide la ligne avec la liste déroulante en colonne J.

 

[eastwick]

Ce qui est saisi sur devis apparait sur 2024

 

[M1thys]

Merci infiniment mes paramètres empêcher le bon fonctionnement !!

 

[eastwick]

P.S. : Bonjour sylvanu