Récupération de données si écriture

Salut à tous,

Je vais vous joindre le fichier pour que ce soit plus simple à comprendre. En effet je dois dans l'onglet "Plan de formation" récupérer les données de l'onglet "MAJ 250417" lorsque la colonne L à des choses écrites dedans. Exemple : si L8 a quelque chose d'écrit alors dans plan de formation je récupère la ligne entière concerné.

Je ne sais pas si je me suis fait comprendre..

Cordialement

Bonjour,

copier le code suivant sur la page ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim sh1, LastRw As Long, n As Long
Set sh1 = Sheets("PLAN DE FORMATION")
LastRw = sh1.Cells(Rows.Count, 1).End(xlUp).Row
n = Target.Row
arrCol = Array(1, 2, 34, 35, 3, 4, 5, 29, 30, 42, 43, 44, 45, 46)
If Left(Sh.Name, 3) = "MAJ" Then
  If Target.Column = 12 Then
    For i = 1 To 14
      sh1.Cells(LastRw, i) = Sh.Cells(n, arrCol(i - 1))
    Next
  End If
End If
End Sub

Salut Sab,

qu'appelle tu la page ThisWorkbook?

voilà,