Résolu Programmer fenêtre espion Excel par VBA

[valia82]

Bonjour. Je cherche depuis des heures des informations sur des possibilltés de programmer par VBA de fenêtre-espion "built-in" (Ruban/Formules/fenêtre espion). Connaissez-vous le nom d'objet VBA pour cette fonctionnalité d'Excel ? Merci !

 

[drul]

Salut,
il s'agit de "Application.Watches"

Vous devez être connecté pour voir les liens.

 

[valia82]

Salut, drul. Et merci.
Ce que j'ai trouvé, en attendant, est ce code VBA qui fait apparaître la fenêtre espion :

Sub Show WatchWindow ()
CommandBars.ExecuteMso "WatchWindow"
End Sub

OU

Sub ShowWatchWindow_2()
Application.CommandBars.ExecuteMso ("WatchWindow")
End Sub

Merci pour le lien aussi. Comme je suis débutante, je n'arrive pas à utiliser ce qui est décrit sur ce lien. Je cherche maintenant de pouvoir ajouter/supprimer des valeurs dans cette fenêtre espion built-in Excel par VBA.

Bonne journée à nous tous

 

[drul]

Re,

Sub AjoutWatch()
    Application.Watches.Add (ThisWorkbook.Sheets("Sheet1").Range("A1"))
End Sub

Sub supprimeWatch()
    Application.Watches(ThisWorkbook.Sheets("Sheet1").Range("A1")).Delete  
End Sub

 

[valia82]

Merci !
Voici donc le code qui permet de faire apparaître le fenêtre, d'y mettre la valeur de la cellule A1 et de supprimer cette valeur de la fenêtre ensuite.

Sub ShowWatchWindow_2()

Application.CommandBars.ExecuteMso ("WatchWindow")
Application.Watches.Add Workbooks("Code_VBA_pour_fenetre_espion.xlsm").Sheets("Feuil1").Range("Cellule_A1")
' Application.Watches.Add Workbooks("Code_VBA_pour_fenetre_espion.xlsm").Sheets("Feuil1").Range(cell1)
Application.Watches(ThisWorkbook.Sheets("Feuil1").Range("A1")).Delete


End Sub 'ShowWatchWindow_2()

Ce serait pratique d'avoir, au lieu de Range("A1"), une désignation plus général de type "cellule active" pour que ce soit possible d'ajouter dans la fenêtre la valeur de cellule active dans la feuille - A3 ou D5 ou TT9 etc. - sans être obligé de revenir en VBA.

 

[drul]

re,

Sub AjoutWatch()
    Application.Watches.Add (Selection.Address)
End Sub

 

[valia82]

re,

Sub AjoutWatch()
    Application.Watches.Add (Selection.Address)
End Sub

Merci.