Effacer des lignes avec des cellules vérouillées Résolu/Fermé

Question

Bonjour, j'aimerai savoir si il est possible d'effacer rapidement des données renseignées dans des cellules non verrouillées sur une feuille contenant quelques cellules verrouillées mais aussi et surtout des insertions d'images, sans pour autant tout supprimer. Le but est de pouvoir supprimer dans la feuille (matrice de factures), avec une simple sélection à la souris si possible, toutes les données qu'on ne souhaite pas laisser à l'enregistrement, sans retirer les images. Merci d'avance.



Configuration: Windows 7 / Mozilla 11.0

cs_Le Pivert · Answer

Bonjour,

pour faire cela il faut proteger la feuille. En vba faire Alt F11 pour accéder à l'éditeur. ensuite cliquer sur la feuille concernée en haut à gauche. et mettre ce code. L'exemple est pour la feuille1:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets(1).Protect Password:="***" 'on protège la feuille
Selection.ClearContents 'on nettoie au clic de souris
'Sheets(1).Unprotect Password:="***"' on déprotège la feuille
End Sub

Effacer des lignes avec des cellules vérouillées

1 réponse

Discussions similaires