Boucle for

Bonsoir

Je souhaite avoir votre avis sur une macro que je n'arrive pas à faire fonctionner. Le message d'erreur concernant l'objet s'affiche à chaque fois.

Sub remplacement ()

For j = 3 to 26

For i = 5 to 8

If sheets(3).range(i, j)= "" then

Sheets(3).range(i, j).select

Activecell.formulaR1C1 = "0"

Enfin if

Next i

Next j

End sub

Le principe est qu'à chaque fois que la cellule (i, j) est vide je souhaite qu'elle soit remplacé par 0.

Merci d'avance

Bonjour,

est ce que la cellule est vraiment vide ou si elle contient une formule qui retourne une chaine vide "" ?

Sub remplacement()
For j = 3 to 26
 For i = 5 to 8
  If Sheets(3).Cells(i, j) = "" Then Sheets(3).Cells(i, j) = 0
 Next i
Next j
End Sub

La réponse est correcte.

C'est ce que je voulais.

Merci

Bonne journée