Lignesà0 Si ligneEmpty

Bonjour à toutes et à tous,

J'aimerai créer un programme qui mettrait les lignes de la colonne V,W et X à 0 s'il n'y a aucune valeur dedans.

J'ai tenté le pgm suivant :

Sub Lignesa0()
    If IsEmpty(V) = True Then
    Range("V").Value = 0
    End If
End Sub

Cela me met la ligne du Range en erreur ..^^'

Merci d'avance à tous pour votre aide

Hello,

Range("V2:X200").Replace What:="", Replacement:="0", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

Essaie ca, après il faut adapter la plage

@+

Bonjour,

Un essai :

Sub Lignesa0()

For Each Cellule In Range("V2:X100") 'Plage à adapter 
    If IsEmpty(Cellule) Then Cellule = 0
Next Cellule

End Sub

edit : salut Baroute !

Bonjour Baroute78,

C'est génial ça fonctionne ! merci beaucoup !

Bonjour Pedro22,

Quand je l'exécute, il ne se passe rien ..:/