XL 2013 verrouiller une zone avec renvoi message

michir

XLDnaute Occasionnel
Bonjour à tous,
Voilà, je souhaite verrouiller une zone d'un tableau mais au lieu du renvoi habituel
"la cellule que vous essayez de modifier se trouve sur une feuille protégée...."
je préférerais personnaliser et obtenir le message suivant:
"information à saisir dans la feuille échéancier"
est ce possible ?
Merci et bonnes fêtes de fin d'année
Michel
 

Theze

XLDnaute Occasionnel
Bonjour,

A mettre dans le module de la feuille concernée :
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
    If Intersect(Target, Range("A1:F10")) Is Nothing Then Exit Sub

    MsgBox "Information à saisir dans la feuille échéancier !"
   
End Sub
 

michir

XLDnaute Occasionnel
Re-bonjour à tous
je reviens avec mon problème et je remercie Theze pour son message, mais je n'ai pas été assez précis et ne suis pas arrivé à le faire fonctionner

je joins donc mon fichier test

je souhaite que dans la feuille "Reste à Vivre 2018", les zones A4:A12 et A23:A54 renvoient un message du genre "Information à saisir dans la feuille Echéancier",
Plutôt que l'habituel message "la cellule que vous essayez de protéger se trouve sur une feuille protégée"
En effet les cellules comportant des formules sont toutes protégées par défaut

Merci à tous et bonne soirée
Michel
 

Pièces jointes

  • RAV pour Test.xlsm
    76.2 KB · Affichages: 9

job75

XLDnaute Barbatruc
Bonsoir michir, Theze,

Fichier joint avec cette macro :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A4:A12,A23:A54]) Is Nothing Then Exit Sub
Application.EnableEvents = False 'désactive les évènements
Application.Undo 'annule la modification
Application.EnableEvents = True 'réactive les évènements
MsgBox "Information à saisir dans la feuille Echéancier !", 48
End Sub
Les cellules des plages A4:A12 et A23:A54 doivent être déverrouillées.

A+
 

Pièces jointes

  • RAV pour Test(1).xlsm
    81.6 KB · Affichages: 9

michir

XLDnaute Occasionnel
merci Job
mais précisément, je souhaite que dans la feuille "Reste à Vivre 2018", les zones A4:A12 et A23:A54 renvoient un message du genre "Information à saisir dans la feuille Echéancier", mais qu'elles restent verrouillées pour éviter de les écraser malencontreusement (le fichier est réutilisé par des personnes différentes)
 

Statistiques des forums

Discussions
312 195
Messages
2 086 078
Membres
103 112
dernier inscrit
cuq-laet