fvalentin a écrit :
dans une boite de dialogue avec un seul bouton "ok" histoire de ne pas laisser le choix.
|
For i = 1 To 1
For j = 1 To 1
If Cells(i, j) = 0 Then
Cells.Replace What:="0", Replacement:="0,1", LookAt:=xlPart, SearchOrder:=xlByRows
MsgBox "0 est une valeur non exploitable, la valeur a été mise à la plus petite possible", vbOKOnly, "Alerte"
End If
Next j
Next i