dans ma cellule A1 j'ai mon prix, je voudrais mon resultat en B1
si mon prix est entre 0.75 et 0.8 resultat = -2%
si mon prix est entre 0.80 et 0.95 resultat =0%
si mon prix est entre 0.95 et 0.99 resultat =+ 2%
si mon prix est entre 1 et 1.04 je resultat = + 3.5 %
qui peut m'aider , svp, a construire ma macro "si" ?
Bonjour valerie,
Une méthode , un peu passage en force... ...mais ça fonctionne.
Code:
Sub Choix()
If Sheets("Feuil1").Range("A1").Value >= "0,75" And Sheets("Feuil1").Range("A1").Value < "0,80" Then
Sheets("Feuil1").Range("B1").Value = "-2%"
End If
If Sheets("Feuil1").Range("A1").Value >= "0,80" And Sheets("Feuil1").Range("A1").Value < "0,95" Then
Sheets("Feuil1").Range("B1").Value = "0%"
'ETC...
End If
End Sub
Option Explicit
Sub choix()
Dim mon_prix As Single
mon_prix = Range("A1").Value 'la valeur que tu récupères
' mon_prix étant la valeur à traiter
' mais on peut directement incorporer "Range("A1").Value" dans le code
' ci-dessous à la place de "mon_prix"
Select Case mon_prix
Case Is < 0.75: MsgBox "attention prix beaucoup trop petit"
Case Is < 0.8: Range("B1").Value = mon_prix * (0.98)
Case Is < 0.95: Range("B1").Value = mon_prix
Case Is < 1: Range("B1").Value = mon_prix * (1.02)
Case Is < 1.04: Range("B1").Value = mon_prix * (1.035)
End Select
End Sub