Bonjour,

Je possède un fichier Excel dans lequel j'ai en Feuille 1 plusieurs tableaux (en mode tableau).
Pour éviter que quelqu'un efface par inadvertance certaines cellules comportant des formules, j'ai protégé les cellules avec formules.
Mais quand je veux incrémenter mon tableau, je suis obligé d'ôter cette protection.
J'aurais voulu savoir s'il était possible d'ôter la protection dès que certaines cellules sont actives.

Si par exemple H3 est protégée, dés que je déplace avec les flèches de direction sur H3 alors la protection s'ôte afin que le tableau s'incrémente d'une ligne.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
ActiveCell.FormulaR1C1 = "10"
    Range("Tableau2[Résultat]").Select
    ActiveSheet.Unprotect
    Selection.ListObject.ListRows.Add AlwaysInsert:=False
    Range("F4").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Ici je saisi une donnée en F3 puis avec les flèches de direction je passe en G3 (cellule protégée mais rien ne doit se passer) et dès que je bascule sur H3 (si je tabule mon tableau s'incrémente).

J'ai parcouru par mal de forum mais je n'ai rien trouvé.

Il faudrait que la protection s'ôte dès que je suis sur les cellules suivantes :
D3 - H3 - N3 - N8 - N13
puis repasse en mode PROTECTION dès que je suis en D4

MAIS SI IL EXISTE UNE LIGNE 4 ALORS CA SERA : D4 - H4 etc...