Partager via


Objet Watches (Excel)

Collection de tous les objets Watch dans une application spécifiée.

Exemple

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

Méthodes

Propriétés

Voir aussi

Assistance et commentaires

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.