slaurent01
XLDnaute Junior
Bonjour le forum,
Bonjour à tous, j'ai un problème dans mon programme. J'ai un calcul qui doit se faire selon des tranches. j'ai donc saisi le code suivant :
Si la valeur est > 3000 le calcul se fait bien, sinon il s'arrête toujours à la première tranche. Je ne comprends pas pourquoi ca ne marche pas. J'appelle donc à l'aide et vous en remercie par avance.
Je joins le code de mon programme qui ne marche pas.
cordialement
Stéphane
Bonjour à tous, j'ai un problème dans mon programme. J'ai un calcul qui doit se faire selon des tranches. j'ai donc saisi le code suivant :
Code:
Sub test()
Dim val As Currency
Dim val1 As String
Dim fourn1 As Currency
Dim fourn2 As Currency
val = ThisWorkbook.Worksheets("Feuil1").Range("A2").Value
val1 = ThisWorkbook.Worksheets("Feuil1").Range("b2").Value
If val > 3000 Then
fourn1 = val * 0.04
Else
If val > 1 Or val < 150 Then
fourn1 = 15
Else
If val > 150 Or val < 380 Then
fourn1 = 45
Else
If val > 380 Or val < 760 Then
fourn1 = 60
Else
If val > 760 Or val < 1500 Then
fourn1 = 75
Else
If val > 1500 Or val < 3000 Then
fourn1 = 90
End If
End If
End If
End If
End If
End If
If val1 = "N" Then
fourn2 = 0
Else
fourn2 = (val * 0.01 * 8.5) + 8
End If
Range("c2").Value = fourn1
Range("d2").Value = fourn2
End Sub
Si la valeur est > 3000 le calcul se fait bien, sinon il s'arrête toujours à la première tranche. Je ne comprends pas pourquoi ca ne marche pas. J'appelle donc à l'aide et vous en remercie par avance.
Je joins le code de mon programme qui ne marche pas.
cordialement
Stéphane