Code qui ne se repéte pas sur les lignes

Bonjour,

Je suis entrain de faire un document ou sur la feuille SEAD je souhaite y associer 2 codes :

-un pour que les lignes s'insèrent automatiquement (ca ok ca marche!)

- un pour que quand je change mon choix dans ma liste déroulante dans A13, ma cellule B13 se "vide".

Ca fonctionne mais que dans la ligne 13. Quand une nouvelle ligne apparait ce dernier code ne fonctionne pas...

Une idée pour modifier mon code ?

Et je souhaite créer d'autres onglets avec le même tableau et formules. Comment le dupliquer ? et enfin je souhaite pouvoir faire dans un autre onglet une synthèse de mes tableaux.

Un grand merci d'avance!

Bonjour,

Preferez ce code qui aura pour objet de vérifier que le changement de donnée à lieu dans la plage de votre première colonne de votre table structurée, auquel cas, la cellule de droite (offset(,1)) est vidée :

Private Sub Worksheet_Change(ByVal Target As Range)
    ' teste si la cellule juste au dessus est remplie
If Range("premiereCelluleApresTableau").Offset(-1) <> "" Then
    ' ajoute une ligne - la ligne s'insère au dessus
    Application.EnableEvents = False
    Range("premiereCelluleApresTableau").EntireRow.Insert xlShiftDown
    Application.EnableEvents = True
End If
If Not Application.Intersect(Target, ActiveSheet.ListObjects(1).ListColumns(1).DataBodyRange) Is Nothing Then Target.Offset(, 1) = ""
End Sub

Cdlt,

PS : Pensez à vider les informations confidentielles lorsque vous postez un fichier (nom, adresse, numéro de tel, mail ...)

Bonjour,

Un grand merci ca à l'air de bien fonctionner !

En effet j'ai omis d'enlever certaines données professionnelles...