XL 2019 Supprimer que les "0" ou "0.0000" dans 2 colonnes précises

[Titof06]

Bonjour,

Je reviens vers vous pour une aide, svp.

Sur mon fichier joint, ainsi que la macro, je souhaiterais supprimer les "0" ou "0.0000" des Colonnes "EcoTaxe" & "EcoMobilier".

Je n'y arrive pas.

Je vous remercie par avance, et vous souhaite une agréable fin de journée,

Titof06

 

[TooFatBoy]

Bonjour,

Sur mon fichier joint, ainsi que la macro, je souhaiterais supprimer les "0" ou "0.0000" des Colonnes "EcoTaxe" & "EcoMobilier".

Que veux-tu dire par "supprimer" ?

 

[Titof06]

Bonjour,


Que veux-tu dire par "supprimer" ?

Bonjour TooFatBoy,

Je souhaiterais que les cellules soient vides.

Je te remercie par avance, et te souhaite une agréable fin de journée,

Titof06

 

[Titof06]

Bonjour Le Fil ,
j'ai mis

'   on efface les "0"
        If ActiveSheet.AutoFilterMode = True Then Selection.AutoFilter
        Sheets(ongnouv).Range(lett & "2:" & lett & nbr_lig_mef).Select
        'Selection.NumberFormat = "0.00"
        Selection.NumberFormat = "# ##0,00;-# ##0,00;;" 'Ici
    Sheets(ongnouv).Range("A1").Select

y'a beaucoup de Select dans cette procédure Lol
Bonne fin de Journée
Jean marie

Bonjour ChTi160,

Comment faire autrement, svp ?

Je vais essayer votre solution.

Je vous remercie par avance, et vous souhaite une agréable fin de journée,

Titof06

 

[Titof06]

Bonjour ChTi160,

Comment faire autrement, svp ?

Je vais essayer votre solution.

Je vous remercie par avance, et vous souhaite une agréable fin de journée,

Titof06

Bonjour ChTi160,

Je viens d'essayer votre solution, mais cela m'efface TOUS les EcoTaxe aussi (colonne N).

Je vous remercie par avance, et vous souhaite une agréable fin de journée,

Titof06

 

[TooFatBoy]

Je souhaiterais que les cellules soient vides.

Je ne sais pas faire ça. 🙁

 

[Titof06]

Je ne sais pas faire ça. 🙁

Bonjour TooFatBoy,

Ce n'est pas grave.

Je te remercie d'avoir essayé, et te souhaite une agréable fin de journée,

Titof06

 

[sylvanu]

Bonjour,
Et les rendre invisible serait il suffisant ?
Mettre les colonnes M et N en format personnalisé "0.00;;"
Le ";;" permet de ne pas afficher les valeurs zéro.

 

[Titof06]

Bonjour,
Et les rendre invisible serait il suffisant ?
Mettre les colonnes M et N en format personnalisé "0.00;;"
Le ";;" permet de ne pas afficher les valeurs zéro.

Bonjour sylvanu,

Hélas, non.

Comme valeur je dois avoir soit :
- rien, vide ou "", sans caractère
- une valeur du type "0.0200".

Je vous remercie par avance, et vous souhaite une agréable fin de journée,

Titof06

 

[sylvanu]

Re,
Dans quel but voulez-vous faire la différence entre vide et zéro?
Peut être y a t il une solution de contournement .

 

[sylvanu]

Re,
Pour effacer les zéros, on peut aussi faire :

Sub EffaceZéro()
For Each Cell In Range("M2:N" & Cells(Cells.Rows.Count, "A").End(xlUp).Row)
    If Cell.Value = 0 Then Cell.Value = ""
Next Cell

 

[Staple1600]

Bonsoir le fil,

Une autre solution à tester

Sub Bascule_ValeursZero()
ActiveWindow.DisplayZeros = Not ActiveWindow.DisplayZeros
End Sub

1ere exécution : décoche l'option
2ième exécution de la macro : coche l'option

PS: Correspond à cocher/décocher Afficher un zéro dans les cellules qui ont une valeur nulle
==> Fichier/Options/Options avancées/Option d'affichage de la feuille de calcul

 

[TooFatBoy]

Une autre solution à tester

Vu le nom "DisplayZeros", ça semble plus afficher ou masquer les zéros que les supprimer. Nan ? 🤔

 

[job75]

Bonsoir,

Je ne comprends rien à ce fil ! Au vu du post #1 j'aurais fait :

Sub a()
[M:N].Replace 0, "", xlWhole
End Sub

A+

 

[Staple1600]

Re

@TooFatBoy
Qu'on supprime un zéro dans une cellule ou qu'on ne l'affiche pas, le résultat est le même pour l'œil humain, Nan ?
Et je suppute que Titof06 est un homo sapiens sapiens.

Evidemment, si une cellule est au format texte : 0,0000 peut s'afficher dans Excel
Sinon Excel converti directement en 0
Et si c'est 0.0000 ce n'est pas un zéro "numérique", donc sera ignoré par DisplayZeros.

Sur ce , bonne soirée à tous.