Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Verrouillage de formules sur un tableau

  • Initiateur de la discussion Initiateur de la discussion Antares le Fou
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

A

Antares le Fou

Guest
Bonsoir,
J'ouvre ma seconde discussion avec une question qui me trotte depuis un moment.
Comment verrouiller les formules d'un tableau afin que ces dernières ne soient pas modifiées ou effacées?
Je souligne que je ne veux pas le "marquer comme final", mais seulement protéger les formules afin que les destinataires rentrent les données souhaitées.
Merci pour vos réponses.
 
Re : Verrouillage de formules sur un tableau

Bonjour Antares le Fou 😉

Pour ce que tu souhaites tu n'as pas d'autre choix que de protéger tes cellules

Dans l'onglet "Accueil" -> Groupe "Cellules" -> Protéger la cellule


Ensuite tu protège ta feuille
Onglet "Révision" -> Groupe "Modifications" -> Protéger la feuille


A+
 

Pièces jointes

  • marteau.gif
    1.3 KB · Affichages: 197
  • marteau.gif
    1.3 KB · Affichages: 194
Re : Verrouillage de formules sur un tableau

Bonjour Antares le Fou, BrunoM45, le forum,

Une autre solution par macro (à placer dans le code de la feuille) :

Code:
Option Explicit
Private Sub Worksheet_selectionChange(ByVal Target As Range)
Dim Cell As Range
For Each Cell In Selection
If Cell.HasFormula Then Selection.Cells(1, 1).Offset(, 1).Select
Next
End Sub
 
Dernière édition:
Re : Verrouillage de formules sur un tableau

Petit bémol, mon classeur contient 52 feuilles.
Comment gagner du temps afin de verrouiller l'ensemble des formules de chaque feuille ?
 
Re : Verrouillage de formules sur un tableau

Re,

Code à placer dans le Thisworkbook :

Code:
Option Explicit
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Cell As Range
For Each Cell In Selection
If Cell.HasFormula Then Selection.Cells(1, 1).Offset(, 1).Select
Next
End Sub
 
Re : Verrouillage de formules sur un tableau

Bonjour Antares le Fou, le forum,

Pour ouvrir le VBA faire alt+F11 ou alors clic droit sur l'onglet et sélectionner Visualiser le code. Ensuite tu repères ton classeur dans l'arborescence qui se trouve à gauche dans ton classeur tu as un module qui s'appelle ThisWorkbook tu cliques 2 fois dessus pour l'ouvrir et tu y colles la macro que je t'ai mis au post #6 ensuite tu retournes sur ta feuille.
 
Re : Verrouillage de formules sur un tableau

Merci, pour cette réponse rapide. Je m'y atèle immédiatement et reviens pour te dire ce qu'il en est.
 
Re : Verrouillage de formules sur un tableau

Cela marche parfaitement, merci libellule85 de ta réactivité. Une dernière chose (juré!):
Dans ce tableau, nous fonctionnons avec des codes couleurs. Mais il n'est a priori pas possible de rester sur une cellule contenant une formule.
Y a t-il une solution, tout en gardant le même fonctionnement, pour pouvoir autorisé l'ajout d'une couleur sur les cellules protégées?
Bonne journée à tous.
 
Re : Verrouillage de formules sur un tableau

re,

Pour suspendre l'action de cette macro, tu as deux solutions :

1°) soit tu retournes dans le thisworkbook et devant chaque ligne du code tu mets ' (signe apostrophe)
2°) soit tu vas dans l'onglet Développeur et tu cliques sur Mode Création dans la rubrique Contrôles et une fois que tu as fini tu re-cliques sur Mode Création

Ou alors utiliser un Flag (qui suspendra l'action de protection des cellules) dans la macro qui te mettra une couleur en fonction du résultat, mais là je n'ai pas les connaissances nécessaire pour te le faire
 
Re : Verrouillage de formules sur un tableau

Je me passerai des couleurs ^^.
Merci pour votre aide à tous.
Pour mon premier Topic, je ne suis pas déçu par ce forum.
A très bientôt.

[RÉSOLU]
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…