Discussion :

[capi81]

Salut le forum

J'ai crée le code ci-dessous pour vérifier certaines conditions.
Mais je constate qu'il n'ya que la 1ère et la troisième conditions qui fonctionnent bien.
Quand bien même les conditions de la 2è conditions sont reunion, le résultat ne donne pas. Je ne sais pas pourquoi. C'est le résultat de la 1ère condition qui s'affiche et non celui de la 2ème.
Merci de m'éclairer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Calcul3()
If Val(Me.TextBox9) >= 1 And Val(Me.TextBox11) <= 350000 Then
Me.TextBox15 = "DZ"
Me.TextBox16 = "Analyste"
ElseIf Val(Me.TextBox9) >= 1 And Val(Me.TextBox11) > 350000 And Val(Me.TextBox11) <= 750000 Then
Me.TextBox15 = "DR"
Me.TextBox16 = "RAR"
Else
Me.TextBox15 = "DGAE"
Me.TextBox16 = "RPR"
End If
End Sub

[eriiic]

Bonjour,

Si un If est valide les Elseif suivants ne sont pas exécutés. Et ton premier test est inclu dans le second qui n'est jamais testé.
Essaie qq chose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Calcul3()
    If Val(Me.TextBox9) >= 1 And Val(Me.TextBox11) <= 350000 Then
        If Val(Me.TextBox11) > 750000 Then
            Me.TextBox15 = "DZ"
            Me.TextBox16 = "Analyste"
        Else
            Me.TextBox15 = "DR"
            Me.TextBox16 = "RAR"
        End If
    Else
        Me.TextBox15 = "DGAE"
        Me.TextBox16 = "RPR"
    End If
End Sub

En plus tu gagnes du temps, tu ne fais pas 2 fois les mêmes tests.
eric

[Philippe Tulliez]

Bonjour,
L'exécution du programme au mode pas à pas (Touche raccourci F8) permet de vérifier aisément si notre analyse de procédure est correcte.
A lire Le débogage sous Visual Basic 6 (1ère partie)

[capi81]

Salut eriiic et Philippe

Merci pour vos solutions.
Philippe:merci pour le cours que je suis entrain de lire pour bien comprendre.
eriiic: je teste votre solution mais j'ai omis d'ajouter une précision.
En effet, la valeur de la textbox11 est généralement négative.
Il est nécessaire de la ramener en valeur positive afin de pouvoir faire la comparaison.
Voici ce que j'ai bricolé mais le résultat n'est pas satisfaisant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Calcul3()
    If Val(Me.TextBox9) >= 1 And (Val(Me.TextBox11) * -1) <= 350000 Then
        If (Val(Me.TextBox11) * -1) > 750000 Then
            Me.TextBox15 = "DZ"
            Me.TextBox16 = "Analyste"
        Else
            Me.TextBox15 = "DR"
            Me.TextBox16 = "RAR"
        End If
    Else
        Me.TextBox15 = "DGAE"
        Me.TextBox16 = "RPR"
    End If
End Sub

Merci d'apprécier

[eriiic]

Utilise Abs(Val(Me.TextBox11)) pour rendre toujours positif.


Par contre je n'avais pas lu dans le détail ton code et vu que tu utilisais 2 fois TextBox11
Il ne peut pas être à la fois <=350000 et >750000
Revois la logique et l'ordre de tes tests.
Si tu n'y arrives pas dis en français et en détail ce que tu veux. On ne peut pas deviner à partir de lignes manifestement fausses.

eric

[Philippe Tulliez]

Bonjour,
La valeur contenue dans un contrôle TextBox est de type String.
Pour la comparer il est donc préférable de la convertir en type numérique ou utiliser la fonction Val.
S'il faut comparer la valeur absolue (obtenir 20 pour -20), il suffit d'utiliser la fonction Abs

[capi81]

Merci pour vos conseils (val et abs) que j'ai bien noté.
Voici mon besoin que je reformule:
J'ai par exemple 3 agenst et chaque agent à des pouvoir:
pour le premier:
si la valeur de la textbox9 >= 1 et la valeur de la textbox11 <= 350000 voici ce qui doit se produire dans textbox15 et textbox16:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Me.TextBox15 = "DZ"
Me.TextBox16 = "Analyste"

2è cas:
Il faut que la valeur de la textbox9 >= 1 et que la valeur de la textbox11 soit comprise entre 350000 et 750000 (350000>Textbox11<= 750000). si cette condition est vérifiée, voici ce qui doit se produire textbox15 et textbox16:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Me.TextBox15 = "DR"
Me.TextBox16 = "RAR"

3è agent: si les 2 premières conditions ne sont pas vérifiées, voici ce qui doit se passer textbox15 et textbox16:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Me.TextBox15 = "DGAE"
Me.TextBox16 = "RPR"

[Philippe Tulliez]

Bonjour,
Si tu arrives à l'exprimer, il me semble que tu peux le programmer
Voici un exemple pour ton premier cas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 If Val(TextBox9) >= 1 And Val(TextBox11) <= 350000 Then
    TextBox15 = "DZ": TextBox16 = "Analyste"
 End If

[capi81]

C'est ce que j'ai essayé de traduire dans mon post #1 et qui ne fonctionne pas bien.
J'ai pas encore bien assimilé les notions sur la compréhension et le déblocage des erreurs donc si vous pouvez revoir et apprécier mon code du post #1.
Merci pour vos riches contributions

[eriiic]

Dans ce cas ce que tu avais mis au début aurait dû fonctionner
Sans doute le abs() qui te manquait.
Dans le elseif And Val(Me.TextBox11) > 350000 est superflu puisque tu sais que non (déjà testé au-dessus)

Si toujours pb et pas de fichier pour le forum fait comme philippe à dit : pas à pas et contrôle la valeur des variables et expressions.
eric

[capi81]

Salut eriiic

J'ai gardé l'ancien code et ajouter abs et ca fonctionne.
Merci à vous et Philippe.