Valeurs Nul

Bonjour

J'ai la macro suivante, mais j'aimerais que lorsque je copie dans A1:K19 les chiffres 0 s'effacent automatiquement sans bouton et a chaque fois que je modifie les valeurs de A1:K19.

Sub EffaceValeurNulle()

For i = 1 To 19 'de la ligne à la ligne

For j = 1 To 11 'de la colonne à la colonne

If Cells(i, j) <= 0 Then

Cells(i, j).ClearContents 'Font.Bold = True

End If

Next j

Next i

End Sub

Bonjour

et Fichier==> options==> options avancées ==> décocher afficher les valeurs à 0 ne te suffit pas ?

Sinon enregistrer une macro avec Remplacer 0 par rien

Cordialement

FINDRH

Bonjour

Ta phrase prête à confusion :

...

mic6259 a écrit :

j'aimerais que lorsque je copie dans A1:K19 les chiffres 0 s'effacent automatiquement sans bouton et a chaque fois que je modifie les valeurs de A1:K19

Chaque fois que tu copie ou que tu modifies ? A moins que ce ne soit chaque fois que tu colles ...?

Bye !

oui c'est a chaque fois que je colle

Bonjour

Un essai à tester. Te convient-il ?

Bye !

10essai-v1.xlsm (20.80 Ko)

Bonjour,

Une seconde proposition à étudier.

Cdlt.

10mic6259.xlsm (26.86 Ko)

Merci beaucoup a vous 2, je prend les 2 solutions qui me conviennent très bien l'une comme l'autre.

Rechercher des sujets similaires à "valeurs nul"