en mettant ça dans le Exiting d'un champ, ça équivaut à un RefreshHideFormulas, mais sans le bouton.
- Code : Tout sélectionner
Sub Exiting(Source As Field)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Call uidoc.RefreshHideFormulas
End Sub