Objet Watches (Excel)
Collection de tous les objets Watch dans une application spécifiée.
Utilisez la propriété Watches de l’objet Application pour renvoyer une collection Watches .
Dans l’exemple suivant, Microsoft Excel crée un objet Watch à l’aide de la méthode Add . Cet exemple montre comment créer une formule de somme dans la cellule A3, puis comment ajouter cette cellule à la fonctionnalité d'observation.
Sub AddWatch()
With Application
.Range("A1").Formula = 1
.Range("A2").Formula = 2
.Range("A3").Formula = "=Sum(A1:A2)"
.Range("A3").Select
.Watches.Add Source:=ActiveCell
End With
End Sub
Vous pouvez supprimer des cellules individuelles de la fonctionnalité d'observation en utilisant la méthode Delete de la collection Watches. Cet exemple montre comment supprimer la cellule A3 de la feuille de calcul 1 du livre 1 de la fenêtre Espion. Cet exemple suppose que vous avez ajouté la cellule A3 dans la feuille 1 du livre 1 (en utilisant l’exemple précédent pour ajouter un objet Watch ).
Sub DeleteAWatch()
Application.Watches(Workbooks("Book1").Sheets("Sheet1").Range("A3")).Delete
End Sub
Vous pouvez également spécifier de supprimer toutes les cellules de la fenêtre Espion à l’aide de la méthode Delete de la collection Watches . Cet exemple montre comment supprimer toutes les cellules de la fenêtre Espion.
Sub DeleteAllWatches()
Application.Watches.Delete
End Sub
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.