macro a plusieurs condition

[valerie]

bonjour

voici mon casse tete :

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" ?

merci par avance de votre precoeise aide !

cordialement

valerie

 

[Efgé]

Re : macro a plusieurs condition

Bonjour valerie,
Une méthode , un peu passage en force... ...mais ça fonctionne.

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

Cordialement

 

[valerie]

Re : macro a plusieurs condition

Merci de ta reponse mais c'est un peu trop compliqué pour moi !
tu n'aurais pas une solution avec les macro si ?

 

[Eric 45]

Re : macro a plusieurs condition

Bonjour à tous
Bonjour valerie, Efgé

Peut être avec cette solution :

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

mais je n'ai pas testé

Eric

 

[Efgé]

Re : macro a plusieurs condition

Re
Alors ce n'est pas une macro mais une formule ,

=SI(ET(A1>0,74;A1<0,8);"-2%";SI(ET(A1>=0,8;A1<=0,95);"0%";SI(ET(A1>0,95;A1<=0,99);"+2%";SI(ET(A1>=1;A1<=1,04);"+3,5%";""))))

A mettre en B1
Cordialement

 

[Efgé]

Re : macro a plusieurs condition

EDIT Bonjour Eric 45, c'est la demande du SI qui me fait pencher pour une formule