salu Fox
Vite fait sa ressemblerait a ceci
Sub essai()
MyValue = InputBox("Veuillez entrer le nombre d'engins", "Nombre d'engins", "1")
If MyValue < 1 Then Exit Sub
For i = 1 To MyValue
MyValue2 = InputBox("Veuillez entrer le nombre de tours", "Engin No:" & i, "1")
If MyValue2 < 1 Then Exit Sub
If MyValue2 < 40 Then
resultat = MyValue2 * 75
Else
resultat = MyValue2 * 90
End If
Cells(i, 1) = i
Cells(i, 2) = resultat
Next i
End Sub
Reste a adapter a ton gout
Mytå