enlever le zero sur workbook

[flo2002]

re bonjour à tous,

je cherche une petite macro à mettre sur mon workbook pour eviter l'affichage de la valeur zero.

merci

 

[Tibo]

Re : enlever le zero sur workbook

Salut Flo,

Pourquoi ne pas essayer une Mise en Forme Conditionnelle ?

La cellule est / égale à / 0 (zéro)

puis appliquer la même couleur de police que la couleur de fond des cellules.

@+

 

[flo2002]

Re : enlever le zero sur workbook

merci mais au pire je peux aller sur outil option affichage et decocher afficher la valeur zero.
Mais mon probleme est que par macro je colle les information d'un autre fichier et en route il perd cette mise en forme.
donc ce n'est pas tres beau.
merci comme meme.

 

[ChTi160]

Re : enlever le zero sur workbook

Salut flo
bonjour le fil
voila une macro qui peut peut être te servir lol
la plage est à définir
si présence de Zéros on vide si vide on mets Zéro lol
Sub testZero()
Dim tableau As Variant
Dim L As Integer
Dim C As Byte
tableau = Range("B4:F27").Value
For L = 1 To UBound(tableau, 1)
For C = 1 To UBound(tableau, 2)
Select Case tableau(L, C)
Case Is = "0"
tableau(L, C) = ""
Case Is = ""
tableau(L, C) = 0
Case Else
tableau(L, C) = tableau(L, C)
End Select
Next
Next
Application.ScreenUpdating = False
Cells(4, 2).Resize(UBound(tableau, 1), UBound(tableau, 2)) = tableau
Application.ScreenUpdating = True
End Sub

 

[ChTi160]

Re : enlever le zero sur workbook

Salut flo 'arff j'ai tenté réponse rapide mais je ne vois rien lol bon!!!!!
bonjour le fil
voila une macro qui peut peut être te servir lol
la plage est à définir
si présence de Zéros on vide si vide on mets Zéro lol
Sub testZero()
Dim tableau As Variant
Dim L As Integer
Dim C As Byte
tableau = Range("B4:F27").Value 'on remplis un tableau des valeurs de la plage
For L = 1 To UBound(tableau, 1) 'pour chaque ligne
For C = 1 To UBound(tableau, 2) 'pour chaque colonne
Select Case tableau(L, C) 'celon la valeur
Case Is = "0" 'si présence de Zéro
tableau(L, C) = "" 'on vide
Case Is = "" 'si vide
tableau(L, C) = 0 'on remplis avec Zéro
Case Else
tableau(L, C) = tableau(L, C) 'sinon on copie la même chose
End Select
Next
Next
'ici on recolle les donnée à leur place
Application.ScreenUpdating = False
Cells(4, 2).Resize(UBound(tableau, 1), UBound(tableau, 2)) = tableau
Application.ScreenUpdating = True
End Sub
bonne journée

 

[flo2002]

Re : enlever le zero sur workbook

Merci je note et je test!