Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Ellimac
Bonjour,
Il faut capter le n° d'erreur. Par exemple 1004 pour des cellules protégées : Sub Toto() On Error GoTo etiq Range("a4").Value = 30 etiq: If Err.Number = 1004 Then MsgBox "cellule protégée" End Sub
Camille
-----Message d'origine----- Salut à tous,
comment faire pour mettre un message personnalisé dans une cellule ?
par exemple quand on essaye de modifier une cellule protégée
Excel donne un message d'erreur, je voudrais le personnaliser
merci de vos conseils
.
Bonjour,
Il faut capter le n° d'erreur. Par exemple 1004 pour des
cellules protégées :
Sub Toto()
On Error GoTo etiq
Range("a4").Value = 30
etiq: If Err.Number = 1004 Then MsgBox "cellule protégée"
End Sub
Camille
-----Message d'origine-----
Salut à tous,
comment faire pour mettre un message personnalisé
dans une cellule ?
par exemple quand on essaye de modifier une cellule
protégée
Excel donne un message d'erreur, je voudrais le
personnaliser
Il faut capter le n° d'erreur. Par exemple 1004 pour des cellules protégées : Sub Toto() On Error GoTo etiq Range("a4").Value = 30 etiq: If Err.Number = 1004 Then MsgBox "cellule protégée" End Sub
Camille
-----Message d'origine----- Salut à tous,
comment faire pour mettre un message personnalisé dans une cellule ?
par exemple quand on essaye de modifier une cellule protégée
Excel donne un message d'erreur, je voudrais le personnaliser
merci de vos conseils
.
Zoltan
Il faut capter le n° d'erreur. Par exemple 1004 pour des cellules protégées : Sub Toto() On Error GoTo etiq Range("a4").Value = 30 etiq: If Err.Number = 1004 Then MsgBox "cellule protégée" End Sub
ok, et donc si je change le message il apparaîtra ? et je dois la mettre ou cette procédure?
merci
Il faut capter le n° d'erreur. Par exemple 1004 pour des
cellules protégées :
Sub Toto()
On Error GoTo etiq
Range("a4").Value = 30
etiq: If Err.Number = 1004 Then MsgBox "cellule protégée"
End Sub
ok, et donc si je change le message il apparaîtra ?
et je dois la mettre ou cette procédure?
Il faut capter le n° d'erreur. Par exemple 1004 pour des cellules protégées : Sub Toto() On Error GoTo etiq Range("a4").Value = 30 etiq: If Err.Number = 1004 Then MsgBox "cellule protégée" End Sub
ok, et donc si je change le message il apparaîtra ? et je dois la mettre ou cette procédure?
merci
Zoltan
Eh bien là où intervient ton erreur ou là ou elle est susceptible d'arriver. Dans mon exemple juste avant de mettre 30 dans la cellule A4 qui est protégée, j'indique d'aller à "etiq" en cas
ah oui mais je ne peut pas mettre toutes les cellules, si c'est juste A4 ok, mais dans mon cas c'est toutes les cellules sauf qq unes
Eh bien là où intervient ton erreur ou là ou elle est
susceptible d'arriver.
Dans mon exemple juste avant de mettre 30 dans la cellule
A4 qui est protégée, j'indique d'aller à "etiq" en cas
ah oui mais je ne peut pas mettre toutes les cellules,
si c'est juste A4 ok, mais dans mon cas c'est toutes
les cellules sauf qq unes
Eh bien là où intervient ton erreur ou là ou elle est susceptible d'arriver. Dans mon exemple juste avant de mettre 30 dans la cellule A4 qui est protégée, j'indique d'aller à "etiq" en cas
ah oui mais je ne peut pas mettre toutes les cellules, si c'est juste A4 ok, mais dans mon cas c'est toutes les cellules sauf qq unes
Zoltan
Eh bien là où intervient ton erreur ou là ou elle est susceptible d'arriver. Dans mon exemple juste avant de mettre 30 dans la cellule A4 qui est protégée, j'indique d'aller à "etiq" en cas d'erreur. etiq teste s'il y a une erreur 1004 et renvoie un MsgBox.
ok, je vais faire des tests
merci
Eh bien là où intervient ton erreur ou là ou elle est
susceptible d'arriver.
Dans mon exemple juste avant de mettre 30 dans la cellule
A4 qui est protégée, j'indique d'aller à "etiq" en cas
d'erreur.
etiq teste s'il y a une erreur 1004 et renvoie un MsgBox.
Eh bien là où intervient ton erreur ou là ou elle est susceptible d'arriver. Dans mon exemple juste avant de mettre 30 dans la cellule A4 qui est protégée, j'indique d'aller à "etiq" en cas d'erreur. etiq teste s'il y a une erreur 1004 et renvoie un MsgBox.
