condition if et ElseIf

Version imprimable

Bonjour,

J'ai un petit souci de condition, dont voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
If [Form_Prés-Fiche-client-courant_ASSOC].ASSOCINSTIT.Value Like "16*" And [Form_Prés-Fiche-client-courant_ASSOC].NOTES.Value Like "*FADOQ50*" Then
    If [Form_Prés-Fiche-client-courant_ASSOC].sommeprixht.Value < "50,00" Then
        CODEPRO.Value = "0,00$"
        CODEPRO1.Value = "0"
        ElseIf [Form_Prés-Fiche-client-courant_ASSOC].sommeprixht.Value >= "50,00" Or [Form_Prés-Fiche-client-courant_ASSOC].sommeprixht.Value < "100,00" Then
                CODEPRO.Value = "-5,00$"
                CODEPRO1.Value = "5"
        ElseIf [Form_Prés-Fiche-client-courant_ASSOC].sommeprixht.Value >= "100,00" Or [Form_Prés-Fiche-client-courant_ASSOC].sommeprixht.Value < "150,00" Then
                CODEPRO.Value = "-10,00$"
                CODEPRO1.Value = "10"
    End If
End If

Le code ne donne pas de promotion pour les montants inférieurs à 50$ => c'est parfait
Le code donne la promotion de 5$ pour les montant compris entre 50$ et 99.99$ => C'est parfait
Si la commande dépasse 100$, il ne donne pas le 10$ de réduction.

Je ne vois pas ce qui ne fonctionne pas.
Merci pour votre aide.

12/03/2020, 19h27
nico84

Bonsoir,

Je vois au moins 2 problèmes :
- tout nombre est supérieur à 50 ou inférieur à 100
- "100" est inférieur à "50"

je comprend, c'est compris comme du texte et le 100 est bien inférieur à 50...

je dois faire d'autre erreur car ça ne fonctionne toujours pas.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
If [Form_Prés-Fiche-client-courant_ASSOC].ASSOCINSTIT.Value Like "16*" And [Form_Prés-Fiche-client-courant_ASSOC].NOTES.Value Like "*FADOQ50*" Then
    If [Form_Prés-Fiche-client-courant_ASSOC].sommeprixht.Value < 50 Then
        CODEPRO.Value = "0,00$"
        CODEPRO1.Value = "0"
        ElseIf [Form_Prés-Fiche-client-courant_ASSOC].sommeprixht.Value >= 50 Or [Form_Prés-Fiche-client-courant_ASSOC].sommeprixht.Value < 100 Then
                CODEPRO.Value = "-5,00$"
                CODEPRO1.Value = "5"
        ElseIf [Form_Prés-Fiche-client-courant_ASSOC].sommeprixht.Value >= 100 Or [Form_Prés-Fiche-client-courant_ASSOC].sommeprixht.Value < 150 Then
                CODEPRO.Value = "-10,00$"
                CODEPRO1.Value = "10"
    End If
End If

Il donne bien la réduction de 5$ pour toute commande inférieur à 100$, au-dessus, il donne 5$ aussi au lieu de 10$

Salut

Code:

1
2
3
4
5
6
7
8
9
10
11
12
If [Form_Prés-Fiche-client-courant_ASSOC].ASSOCINSTIT.Value Like "16*" And [Form_Prés-Fiche-client-courant_ASSOC].NOTES.Value Like "*FADOQ50*" Then
    If [Form_Prés-Fiche-client-courant_ASSOC].sommeprixht.Value < "50,00" Then
        CODEPRO.Value = "0,00$"
        CODEPRO1.Value = "0"
        ElseIf [Form_Prés-Fiche-client-courant_ASSOC].sommeprixht.Value < "100,00" Then
                CODEPRO.Value = "-5,00$"
                CODEPRO1.Value = "5"
        ElseIf [Form_Prés-Fiche-client-courant_ASSOC].sommeprixht.Value < "150,00" Then
                CODEPRO.Value = "-10,00$"
                CODEPRO1.Value = "10"
    End If
End If

12/03/2020, 20h04
ambact

Je suis désolé pour mon niveau, c'était aussi simple que cela...

Merci Hyperion13

bonjour,
personnellement je trouve que la forme qui suis est plus lisible et maintenable!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
If [Form_Prés-Fiche-client-courant_ASSOC].ASSOCINSTIT.Value Like "16*" And [Form_Prés-Fiche-client-courant_ASSOC].Notes.Value Like "*FADOQ50*" Then
    Select Case [Form_Prés-Fiche-client-courant_ASSOC].sommeprixht.Value
        Case 0 To 49
            CODEPRO.Value = "0,00$"
            CODEPRO1.Value = "0"
        Case 50 To 99
            CODEPRO.Value = "-5,00$"
            CODEPRO1.Value = "5"
        Case 100 To 149
            CODEPRO.Value = "-10,00$"
            CODEPRO1.Value = "10"
        Case Else
            MsgBox "Err"
    End Select
End If