OVH Cloud OVH Cloud

Message d'erreur

4 réponses
Avatar
José
Bonsoir,

Un message d'erreur apparait lorsque l'on essaye de saisir quelque chose
dans une cellule protégée.
Est-il possible d'empêcher l'apparition de ce message avec VBA ?

Merci

4 réponses

Avatar
Philippe.R
Bonsoir José,
Tu essayer avec l'instruction :
application.displayalerts = false
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"José" a écrit dans le message de news:40e875e0$0$19079$
Bonsoir,

Un message d'erreur apparait lorsque l'on essaye de saisir quelque chose
dans une cellule protégée.
Est-il possible d'empêcher l'apparition de ce message avec VBA ?

Merci




Avatar
Philippe.R
Oups,
Tu peux lire "peux" entre "tu" et "essayer" ;o))
--
Amicales Salutations

"Philippe.R" a écrit dans le message de
news:%
Bonsoir José,
Tu essayer avec l'instruction :
application.displayalerts = false
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"José" a écrit dans le message de news:40e875e0$0$19079$
Bonsoir,

Un message d'erreur apparait lorsque l'on essaye de saisir quelque chose
dans une cellule protégée.
Est-il possible d'empêcher l'apparition de ce message avec VBA ?

Merci








Avatar
AV
Un message d'erreur apparait lorsque l'on essaye de saisir quelque chose
dans une cellule protégée.
Est-il possible d'empêcher l'apparition de ce message avec VBA ?


Oui...en interdisant la sélection des cellules protégées !
A mettre dans le module de la feuille

Private Sub Worksheet_Activate()
ActiveSheet.Protect Contents:=True, UserInterfaceOnly:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

PS : Selon la config. de ton document, tu peux adapter pour le mettre dans le
Workbook_Open
AV

Avatar
michdenis
Bonjour AV,

Si la question est :

" Est-il possible d'empêcher l'apparition de ce message avec VBA ? "

J'ai essayé la solution proposée et :

Qu'est-ce qui se passe si l'usager fait un double-clic dans une cellule ? J'ai bien la fenêtre du message qui s'ouvre.

Il est vrai que l'on peut utiliser ceci pour contrer le double-clic :
'-----------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
'-----------------------

Mais il reste encore l'usage de la touche F2 et tous les touches claviers utiles à la saisie de données ! En appuyant
sur l'une de ces touches, le message est toujours présent !!

En fait, pour que la technique proposée fonctionne, il doit y avoir au moins une cellule dont la propriété "Verrouillée"
est à "False". De cette façon, toutes les tentatives pour sélectionner par clic ou double-clic une cellule quelconque ou
pour saisir une donnée va être dirigée vers cette cellule et cela va empêcher l'apparition du message !


Est-ce qu'il existe un autre moyen ? Pas sûr !!!


Bonne semaine,


Salutations!





"AV" a écrit dans le message de news:
Un message d'erreur apparait lorsque l'on essaye de saisir quelque chose
dans une cellule protégée.
Est-il possible d'empêcher l'apparition de ce message avec VBA ?


Oui...en interdisant la sélection des cellules protégées !
A mettre dans le module de la feuille

Private Sub Worksheet_Activate()
ActiveSheet.Protect Contents:=True, UserInterfaceOnly:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

PS : Selon la config. de ton document, tu peux adapter pour le mettre dans le
Workbook_Open
AV