Changer la valeur d'une cellule en sondant une zone

Bonjour à tous,

Je début sur VBA et ma demande risque d'être assez stupide.

J'aimerais sonder une zone et que les valeurs valant "#DIV!0" deviennent égales à "0".

Voici mon code :

Sub Macro11()

' Macro11 Macro

Dim i As Integer

Dim j As Integer

For i = 7 To 32

For j = 7 To 12

If Cells(i, j).Value = "0" Then

Cells(i, j) = "100%"

End If

Il ne fonctionne pas et je ne sais pas pourquoi...

En vous remerciant,

Simon

End Sub

A essayer

Sub test()

For i = 7 To 32
    For j = 7 To 32
        If IsError(Cells(i, j)) Then Cells(i, j) = 0
    Next
Next

End Sub

Bonjour,

Top super merci ça fonctionne

Savez-vous pourquoi le mien ne fonctionnait pas ?

Merci beaucoup,

Simon

ReBonjour,

Tu lui disais "Si la valeur de la cellule est "0", la remplacer par "100%"

Ah d'accord merci beaucoup.