Bonjour le forum,
J'ai une macro qui me donne une erreur d'exécution sur 2007 :
C'est une macro de JOB75 et je précise qu'elle tourne sur du 2010.
Quelqu'un aurait-il une piste?
Merci.
J'ai une macro qui me donne une erreur d'exécution sur 2007 :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tablo, i As Long, t
tablo = [c3:c500]
For i = 1 To UBound(tablo)
t = tablo(i, 1)
If Not (IsEmpty(t) Or IsError(t)) Then _
If IsNumeric(Replace(t, ".", ",")) _
Or IsNumeric(Replace(t, ",", ".")) _
Then tablo(i, 1) = Val(Replace(t, ",", "."))
Next
[c3:c500] = tablo
End Sub
Quelqu'un aurait-il une piste?
Merci.