Bonjour à tous
J aimerais remplacer jusqu à la dernière ligne
si #N/A ou si ""
alors 0
J' utilise cette macro
Sub Conversion2()
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Dim Cell As Range
Application.ScreenUpdating = False
For Each Cell In Range("B2:J" & DernLigne)
If Cell.Value = "" Then
Cell.Value = "0"
End If
Next
[A1].Select
End Sub
Parfois cela bloque je ne comprends plus
Si un oeil nouveau pouvait m'eclairer
J aimerais remplacer jusqu à la dernière ligne
si #N/A ou si ""
alors 0
J' utilise cette macro
Sub Conversion2()
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Dim Cell As Range
Application.ScreenUpdating = False
For Each Cell In Range("B2:J" & DernLigne)
If Cell.Value = "" Then
Cell.Value = "0"
End If
Next
[A1].Select
End Sub
Parfois cela bloque je ne comprends plus
Si un oeil nouveau pouvait m'eclairer