Discussion :

[Kaytilou]

Bonjour,

J'ai construit un tableau structuré dans lequel j'ai des formules. J'ai protégé la feuille par un mot de passe en ayant pris soin de verrouiller et masquer toutes les cellules avec formules
Ma feuille est donc protégée. Je suis à la fin de mon tableau (dernière colonne, dernière ligne), je souhaite utiliser la touche TAB pour aller à la ligne et créer une nouvelle ligne dans mon tableau structuré avec les formules et la cela bloque car ma feuille est protégée

J'ai créé une macro qui me permet d'aller directement à la fin de mon tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub DerniereCellulePlage()
 
      Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Offset(0, 17).Select
 
End Sub

Existe-t-il une macro VBA qui puisse réaliser cela (déverrouiller la feuille et rajouter une ligne en fin de tableau). Je souhaiterai également mettre cette macro de façon automatique dès que l'on arrive à la dernière cellule du tableau

Je vous remercie pour votre aide et vous souhaite une agréable journée

[Philippe Tulliez]

Bonjour,
Pour déprotéger une feuille, c'est la méthode Unprotect de l'objet Worksheet
Pour ajouter une ligne à un objet ListObject, c'est la méthode Add de la propriété Listobjects de cet objet

Exemple de la déprotection de la feuille nommée Accueil (mot de passe Toto) et ajout d'une ligne au tableau structuré qui est seul dans cette feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub t()
  ' Déclaration
  Const Pwd As String = "Toto"                   ' Mot de passe
  Const SheetName As String = "Accueil"  ' Nom de lafeuille
  Dim oSht As Worksheet
  '
  Set oSht = ThisWorkbook.Worksheets(SheetName)
  '
  With oSht
  .Unprotect Password:=Pwd
   With .ListObjects(1)
   .ListRows.Add
   End With
  End With
End Sub

[Kaytilou]

Bonjour Philippe
Je pensais que cela fonctionnait, mais il semble après plusieurs essais que cela ne fonctionne tjs pas sur mon tableau. J'ai extrait une partie du tableau afin que vous puissiez vérifier par vos soins. La macro se trouve dans le module1
Les données du tableau sont purement
Je vous remercie par avance
Bonne journée

[Philippe Tulliez]

Bonjour,
Je n'ouvre pas les classeurs, merci de publier le code.
Insére éventuellement une image partielle du tableau.

Je pensais que cela fonctionnait, mais il semble après plusieurs essais que cela ne fonctionne tjs pas sur mon tableau.

Qu'est-ce qui ne fonctionne pas ?
As-tu un message d'erreur ?
Si oui lequel et à quel numéro de ligne ?

Le tableau est-il bien un tableau structuré et est-il bien seul dans la feuille ?

Merci, de ne pas rééditer l'entièreté du message du fil. Cela pollue la discussion

[Kaytilou]

Bonjour Philippe,
Pour répondre à votre dernier message
Voici le code utilisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub t()
  ' Déclaration
  Const Pwd As String = "Toto"                   ' Mot de passe
  Const SheetName As String = "Accueil"  ' Nom de lafeuille
  Dim oSht As Worksheet
  '
  Set oSht = ThisWorkbook.Worksheets(SheetName)
  '
  With oSht
  .Unprotect Password:=Pwd
   With .ListObjects(1)
   .ListRows.Add
   End With
  End With
End Sub

:

Qu'est-ce qui ne fonctionne pas ? Lorsque la feuille est protégé, que je suis en cellule R19 et que je veux aller à la ligne, cela ne crée pas de nouvelle ligne, et le curseur repart en cellule B7

As-tu un message d'erreur ? Pas de message d'erreur
Si oui lequel et à quel numéro de ligne ?

Le tableau est-il bien un tableau structuré et est-il bien seul dans la feuille ? Oui le tableau est bien un tableau structuré dans le nom est Listing (si j'intégre la ligne d'entête, son nom est Tbl_Listing

En PJ une image du tableau
Merci à vous

[Philippe Tulliez]

Bonjour,ès
Il est normal que si la feuille est protégée, il ne soit pas possible d'ajouter de ligne

Existe-t-il une macro VBA qui puisse réaliser cela (déverrouiller la feuille et rajouter une ligne en fin de tableau). Je souhaiterai également mettre cette macro de façon automatique dès que l'on arrive à la dernière cellule du tableau

Dans la question initiale, je n'ai pas vu la dernière phrase. Le code que j'ai publié fonctionne si on associe le code au clic d'un bouton par exemple.
Il faudrait donc intégrer mon code dans une procédure événementielle qui doit vérifier si on se trouve à la dernière cellule du tableau.

Cependant, à quel moment faut-il protéger la feuille à nouveau et pourquoi finalement avoir protégé la feuille si c'est pour donner accès à l'utilisateur dès qu'il se place sur la dernière cellule du tableau. Pour moi cela n'a pas beaucoup de sens

Allez voir dans cette contribution Empêcher la sélection d'une cellule contenant une formule dans un ListObject une solution qui me semble plus adaptée