bonjour !
J'ai la macro suivante:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal=20
Target As Range)
ActiveSheet.Shapes("Rectangle=20
1").TextFrame.Characters.Text =3D Format(Now, "dd/mm/yyyy=20
hh:mm:ss")
End Sub
comment exprimer que s'il y a un "Rectangle 1" sur la=20
feuille, il faut ex=E9cuter la macro, et que sinon qu'il y=20
ait un msgbox disant qu'on essaye de modifier quelque=20
chose d'interdit et que cela efface la modif ?
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
Pascal Engelmajer
Salut, l'absence du rectangle provoque une erreur. on peut la récupérer sub ... on error goto erreur ActiveSheet.Shapes("Rectangle 1").TextFrame.Characters.Text = Format(Now, "dd/mm/yyyy hh:mm:ss") exit sub erreur: msgbox "Vous ne pouvez ..." 'rétablissement de l'état antérieur resume next end sub -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "gaston" a écrit dans le message de news: 4a9701c42c3b$27bd8180$ bonjour ! J'ai la macro suivante: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) ActiveSheet.Shapes("Rectangle 1").TextFrame.Characters.Text = Format(Now, "dd/mm/yyyy hh:mm:ss") End Sub
comment exprimer que s'il y a un "Rectangle 1" sur la feuille, il faut exécuter la macro, et que sinon qu'il y ait un msgbox disant qu'on essaye de modifier quelque chose d'interdit et que cela efface la modif ?
Salut,
l'absence du rectangle provoque une erreur.
on peut la récupérer
sub ...
on error goto erreur
ActiveSheet.Shapes("Rectangle 1").TextFrame.Characters.Text = Format(Now,
"dd/mm/yyyy hh:mm:ss")
exit sub
erreur:
msgbox "Vous ne pouvez ..."
'rétablissement de l'état antérieur
resume next
end sub
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"gaston" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 4a9701c42c3b$27bd8180$a401280a@phx.gbl...
bonjour !
J'ai la macro suivante:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal
Target As Range)
ActiveSheet.Shapes("Rectangle
1").TextFrame.Characters.Text = Format(Now, "dd/mm/yyyy
hh:mm:ss")
End Sub
comment exprimer que s'il y a un "Rectangle 1" sur la
feuille, il faut exécuter la macro, et que sinon qu'il y
ait un msgbox disant qu'on essaye de modifier quelque
chose d'interdit et que cela efface la modif ?
Salut, l'absence du rectangle provoque une erreur. on peut la récupérer sub ... on error goto erreur ActiveSheet.Shapes("Rectangle 1").TextFrame.Characters.Text = Format(Now, "dd/mm/yyyy hh:mm:ss") exit sub erreur: msgbox "Vous ne pouvez ..." 'rétablissement de l'état antérieur resume next end sub -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "gaston" a écrit dans le message de news: 4a9701c42c3b$27bd8180$ bonjour ! J'ai la macro suivante: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) ActiveSheet.Shapes("Rectangle 1").TextFrame.Characters.Text = Format(Now, "dd/mm/yyyy hh:mm:ss") End Sub
comment exprimer que s'il y a un "Rectangle 1" sur la feuille, il faut exécuter la macro, et que sinon qu'il y ait un msgbox disant qu'on essaye de modifier quelque chose d'interdit et que cela efface la modif ?