remplacer par avec condition

[mathieu.ms]

Bonsoir à tous,

Je reviens vers vous car j'ai un nouveau problème.

Voila je souhaite remplacer les cellules vides d'une zone ( B3:J11) par des zéros mais avec une condition bien sur ( si B3 ou B4 ou B5 etc sont différents de vides alors mettre des zéros dans les cellules vides des lignes)

Voici un petit exemple
B3 est différent de vide(toto) , C3 est = 1, D3=2, E3=vide (alors remplacer par 0)
B4=vide alors les cellules de la ligne 4 vides ne sont pas remplacées par des zéros et reste à vide.

Merci par avance pour vos réponses.

 

[vbacrumble]

Re : remplacer par avec condition

Bonsoir

Sub zeros()
Dim r As Range, c As Range
Set r = Range("B3:B11")
For Each c In r
If IsEmpty(c) Then
c.Resize(, 11).SpecialCells(xlCellTypeBlanks).Value = 0
End If
Next
End Sub