Mise sous forme de tableau : probleme

Bonjour à toute et tous,

J'ai un souci que je n'arrive pas à résoudre et j'aurai besoin de votre aide.

J'ai mis une liste de valeur sous forme de tableau (Accueil/Mettre sous forme de tableau) dans le but que lorsque j'ajoute une ligne au bas de celui-ci cela s'incrémente.

Mais j'ai un souci, lorsque je protège ma feuille (Révision/Protéger la feuille), l'incrémentation ne se fait pas lorsque j'ajoute des valeurs (malgré les petites cases cochées).

Je vous ai joint un fichier test.

Merci de votre aide !

Bonjour

La réponse est dans la question !

La protection de la feuille empêche effectivement l'incrémentation du tableau puisque les lignes situées en dessous sont protégées !

Il y a deux parades qui me viennent tout de suite :

1) Tu ne protèges aucune des colonnes du tableau et l'incrémentation redevient possible, cependant que ton tableau n'est plus protégé

2) Tu protège toute la feuille et par VBA lié à un bouton tu déprotèges à la demande ce qui peut être modifié, puis tu re protèges immédiatement après, cela peut impliquer la saisie sur une zone ou un onglet non protégé

Bonjour,

Un exemple à adapter.

Cdlt.

Public Sub InsertRowInTable()
Dim ws As Worksheet, lo As ListObject
    Set ws = ActiveSheet
    Set lo = ws.ListObjects("Tableau1")
    With ws
        .Unprotect
        With lo
            If .InsertRowRange Is Nothing Then .ListRows.Add
        End With
        .EnableAutoFilter = True
        .Protect userinterfaceonly:=True, AllowFiltering:=True
    End With
End Sub