Afficher/masquer valeurs zéro

Bonjour le Forum !

J'utilise actuellement 2 macros distinctes pour afficher ou pour masquer les "valeurs zéro" d'une feuille.

Sub Masquer_Valeurs_0()
    ActiveWindow.DisplayZeros = False
End Sub

Sub Afficher_Valeurs_0()
    ActiveWindow.DisplayZeros = True
End Sub

Y a-t-il un moyen de faire une seule macro qui bascule d'un état d'affichage à l'autre ?

Merci !!!

Bonsoir gloub,

Sub test()
ActiveWindow.DisplayZeros = Switch(ActiveWindow.DisplayZeros = 0, -1, ActiveWindow.DisplayZeros = -1, 0)
End Sub

Si la valeur est à 0 (true) tu passes à -1 (false)

Si la valeur est à -1 (false) tu passes à 0 (true)

Bien cordialement

Bonjour,

Une autre proposition avec une fonction personnalisée.

Cdlt.

Public Function Display_zeros(Setting)
    ActiveWindow.DisplayZeros = Setting
End Function

Et dans tes procédures :

Public Sub TEST()
    Display_zeros False
    'ou
    'Display_zeros True
End Sub

Wow !

Réponse en 6 minutes chrono !

Nickel, merci !!!

Edit :

Désolé Jean-Eric, le temps d'implémenter la réponse de Ginga999 et de lui répondre, je n'ai pas vu la tienne, qui me va très bien aussi.

Merci aussi !!

Sinon il y avait çà...

If ActiveWindow.DisplayZeros = True Then ActiveWindow.DisplayZeros = False Else ActiveWindow.DisplayZeros = True

N'en jetez plus !!!

Je vais créer 3 boutons rien que pour pouvoir choisir l'une des 3 macros :D