XL 2010 Supprimer (effacer) réellement le zéro dans les cellules avec un bouton macro.

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 3 Février 2021

• #2

Bonjour David,
Une solution simple en PJ avec :

VB:

Sub SupZero()
Application.ScreenUpdating = False
For L = 1 To Range("A65500").End(xlUp).Row
    For C = 1 To 4
        If Cells(L, C) = 0 Then Cells(L, C) = ""
    Next C
Next L
End Sub

 

Pièces jointes

• David..xlsm

  30.6 KB · Affichages: 5

Vote positif 0 Vote négatif

bambi

XLDnaute Occasionnel

• 3 Février 2021

• #3

Bonjour @DAVID-44-

Il y a aussi une solution dans les options, options avancées, Options d'affichage de la feuille de calcul et décocher Afficher un zéro dans les cellules qui ont une valeur nulle

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 3 Février 2021

• #4

Bonjour sylvanu et bambi
Merci pour votre rapidité !!!!
Merci beaucoup.
Bonne soirée.

 

Vote positif 0 Vote négatif