Supprimer les Zéros d'une feuille de calcul

christian.bedere · 2 Février 2012

Bonjour à vous !!

Mon soucis aujourd'hui se pose sur les zéros de ma feuille de calcul.
En effet je saisis des données par le biais d'un userform qui pour des raisons de calculs de repas sont nulles par défaut, donc affichant la valeur zéro. Ces valeurs sont analysées par un TCD.

Comment pouvez-vous m'aider, car j'aimerai pouvoir supprimer par macro les valeurs dont les cellules sont égales à 0.
Sur l'exemple donné, il y a des cellules dont les nombres ont des 60,40,20, or je ne veux pas supprimer les 0 contenus dans ces valeurs là, mais uniquement les valeurs nulles.

J'espère qu'à nouveau, vous pourrez m'apporter votre aide précieuse.

Très belle journée à tous

Kiki

R@chid · 2 Février 2012

Re : Supprimer les Zéros d'une feuille de calcul

Salut,
Format de cellule ==> Personnalise : Standard;;
@ + +
Rachid

Dull · 2 Février 2012

Re : Supprimer les Zéros d'une feuille de calcul

Salut Christian.bedere, Rachid, le Forum

Sinon Outils/Options Onglet Affichage et décocher "Valeurs Zéro" fonctionne bien aussi

ou par Macro dans un module standard

Code:

Sub EnleveZero()
Dim i As Byte, j As Byte
For i = 4 To 40
    For j = 10 To 19
        If Cells(i, j) = 0 Then Cells(i, j) = ""
    Next j
Next i
End Sub

Bonne Journée

JCGL · 2 Février 2012

Re : Supprimer les Zéros d'une feuille de calcul

Bonjour à tous,
Salut Rachid,
Salut mon ami Didier,

Pour le plaisir de croiser Dull :

Sub Del_0()
Dim Cel As Range
Application.ScreenUpdating = 0
For Each Cel In Range("J5:S" & Range("A65536").End(xlUp).Row)
If Cel = 0 Then Cel = ""
Next
End Sub

A++
A + à tous

Tibo · 2 Février 2012

Re : Supprimer les Zéros d'une feuille de calcul

Bonsoir à tous,

Sans macro ni formule :

CTRL H - Rechercher : 0 - Cocher : Totalité du contenu de la cellule - Remplacer tout

Je suppose que cette méthode doit être transposable en macro.

@+

JCGL · 2 Février 2012

Re : Supprimer les Zéros d'une feuille de calcul

Bonjour à tous,
Salut Tibo,

Effectivement beaucoup plus rapide :

Option Explicit

Sub Test()
Cells.Replace What:="0", Replacement:="", LookAt:=xlWhole
End Sub

A + à tous

christian.bedere · 3 Février 2012

Re : Supprimer les Zéros d'une feuille de calcul

Bonjour à tous...

Merci à vous pour cette aide formidable.

Toujours aussi efficace, merci
Tres belle journée et bon week end, bon courage à ce qui travaillent avec ce froid polaire

Kiki

Dull · 3 Février 2012

Re : Supprimer les Zéros d'une feuille de calcul

Salut Le Fil, Tibo, JC

Tibo à dit:
Sans macro ni formule :
CTRL H - Rechercher : 0 - Cocher : Totalité du contenu de la cellule - Remplacer tout @+

JCGL à dit:
Sub Test()
Cells.Replace What:="0", Replacement:="", LookAt:=xlWhole
End Sub

Les Solutions les plus simples sont souvent les meilleures

Bonne Journée les amis

Supprimer les Zéros d'une feuille de calcul

christian.bedere

XLDnaute Occasionnel

Pièces jointes

R@chid

XLDnaute Barbatruc

Dull

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

Tibo

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

christian.bedere

XLDnaute Occasionnel

Dull

XLDnaute Barbatruc

Discussions similaires