XL 2019 Show Zéros ou Hide Zéros

[frederio]

Bonsoir a tous
Tu vous connais comment faire ?
Si tu veux être d’accord avec moi ??? vous m’aidez a expliqué comme Excel Merci


Comment faire Show Zéros ou Hide Zéros sur la feuille 1,2,3,4

 

[laurent950]

Bonsoir @frederio ,

Une solution ci-dessous :

Sub z0()
    Dim wsvw As WorksheetView, Zeros As Boolean
    For Each wsvw In ActiveWindow.SheetViews
        If wsvw.Sheet.Name <> "acceuil" Then
            wsvw.DisplayZeros = Not wsvw.DisplayZeros
            Zeros = wsvw.DisplayZeros
        End If
    Next wsvw
    ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.Caption = IIf(Zeros, "Hide Zeros", "Show Zeros")
End Sub

 

[sylvanu]

Bonsoir Frederio, Laurent,
Ou sans VBA avec une case à cocher et une MFC.