Efface les zero

Bonsoir,

Pourquoi ca ne marche pas

Sub effacce0()

Dim MaPlage As Range, Cel As Range

Set MaPlage = Sheets("tournoi").Range("W3:X100")
For Each Cel In MaPlage 'pour toutes les cellules de la plage
If cell.Value = 0 Then
cell.Value = ""

End If
Next

End Sub

merci

Bonsoir,

Pas besoin de macro pour ça, allez dans les options excel et décochez ceci:

pascal44000

Cdlt

si, car je ne veux pas effacer tous les zéro de la feuille.

merci quand même ;)

Bonsoir,

Je suis persuadé que sans fautes d'orthographe, le code fonctionne...

Cel <> cell

De plus, tu définis ta variable "Cel" avec un C majuscule (bonne habitude de définir en "Nom Propre", d'ailleurs), et en tapant "cell", y'a rien qui te choque?

Bonne soirée

bonjour

pour une plage

format personnalisé : Standard;Std ;""

cordialement

Bonjour tout le monde...

@ Pascal44000...

J'ai la désagréable impression que vous venez faire vos courses sur ce site, sans vouloir rien payer (ce qui est le but d'un forum), mais surtout, sans non plus vouloir remercier les différents contributeurs qui vous ont aidés, ou vous aident encore...

Sur les 10 questions posées, à part 1 ou 2, vous n'avez jamais daigné donné suite...

Ici, Ici, Ici, Ici, Ici, Ici(bien qu'Arturo83 vous ait déjà fait remarquer votre manque d'élégance dans ce fil), Ici (où vous ne daignez même pas répondre à un modo), ce fil, ainsi que le suivant, où je doute que vous ne changiez de comportement...

Bref, vous venez de passer dans ma liste d'ignorés...

Bon courage dans vos prochaines courses....

Bonjour à tout le monde sauf au demandeur mis en liste noire aussi

Allez, bye pascal.
Reviens discrètement avec un autre pseudo et un autre comportement de bien élevé.
eric

Rechercher des sujets similaires à "efface zero"