Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

macro à condition

1 réponse
Avatar
gaston
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 ?

1 réponse

Avatar
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 ?