Correction d'une macro SLP

Bon jour

ce macro ne marche pas avec mois il ne arête pas même que x=5 je veux la correction SLP

Sub Macro2()

' Macro2 Macro

' Macro enregistrée le 28/08/2009 par Said

Dim x, i As Double

For i = 0.1 To 100

x = x + 0.1

Range("c1") = x

If (25 / x) = 5 Then

Range("c3") = x

End If

End Sub

Merci pour tous mes amis

Salut le forum

Essaye comme ceci

Sub Macro2()

Dim i As Double

For i = 0.1 To 100 Step 0.1
    If (25 / i) = 5 Then Range("C3") = i
Next i

End Sub

Mytå

Il ne fonction pas il ne sélection pas l'étapes de range("c3")=i quand je sélectionner étapes par étapes

Re le forum

Essaye avec ceci et tu verras que i ne donne pas nécessairement 5

Sub Macro2()

Dim i As Single

For i = 0.1 To 100 Step 0.1
    If Int(25 / i) = 5 Then Range("C3") = i
Next i

End Sub

Mytå