Private macro cellule = "0" si cellule =""

Bonjour le forum,

J'ai une plage de cellule W3:W153 d'un onglet Facturation, dans laquelle je voudrais que lorsque la cellule ="" (rien) , il se mette automatiquement un 0.

Quel pourrait être le code ?

Merci,

Vincent

Bonjour, Vincent,

Tu pourrais taper dans toute tes cellules la formule suivante : =SI(W3:W153="";0)

Si les cellules sont vides, un zéro sera inscrit,

Amicalement, papy Pierrot

Bonjour,

Un exemple.

Cdlt

Option Explicit
Public Sub test()
Dim sH As Worksheet
Dim plage As Range
Dim Cellule As Range

    Application.ScreenUpdating = False

    Set sH = ActiveSheet
    Set plage = sH.Range("W3:W153")
    For Each Cellule In plage
        If Cellule = "" Then Cellule = 0
    Next

    Set sH = Nothing: Set plage = Nothing

End Sub