macro à condition

Le
gaston
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 excuter 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 ?
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Pascal Engelmajer
Le #1321067
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" 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 ?
Publicité
Poster une réponse
Anonyme