VBA Ajout d'une ligne dans deux tableaux structurés

Bonjour le forum

Fichier joint avec explication.

Merci d'avance

Nonno

bonjour Nonno,

Sub M_Inserer()
     'macro pour un module général (donc ne pas dans le module  d'une feuille)
     Dim tbl, LO As ListObject

     For Each tbl In Array("Tableau1", "Tableau2")     'boucler ces 2 tableaux
          On Error Resume Next
          Set LO = Nothing: Set LO = Range(tbl).ListObject     'assigner 1 tableau
          On Error GoTo 0
          If LO Is Nothing Then
               MsgBox "problème avec " & tbl     'assignement pas réussi
          Else
               With LO                       'ce tableau
                    .ListRows.Add.Range.Resize(, 3).Value = Sheets("feuil1").Range("L2:N2").Value     'ajouter ces 3 valeurs dans une nouvelle ligne
                    With .Range              'puis trier le tableau
                         .Sort .Range("A1"), xlAscending, , .Range("B1"), xlAscending, .Range("C1"), xlAscending, Header:=xlYes
                    End With
               End With
          End If
     Next
End Sub

Bonjour Bart.

Je te remercie, exactement ce que je souhaitais.

Merci encore

Bonne soirée

Nonno