Aide pour simplifier un code

Version imprimable

Bonjour

Faire une comparaison de 2 textbox par rapport à 2 tolérances avec affichage d'un label

pour le moment
je fais la comparaison sur la textbox1 avec la tolérance 1 et affiche le label conforme ou non-conforme
je fais la comparaison sur la textbox2 avec la tolérance 2 et affiche le label conforme2 ou non-conforme2

Voici le code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 Private Sub UserForm_Initialize() Dim tol1, tol2 As Single tol1 = 95 tol2 = 120 txt1.Value = tol1 txt2.Value = tol2 labYes.Visible = False LabNo.Visible = False labYes2.Visible = False labNo2.Visible = False End Sub Private Sub txt3_AfterUpdate() If txt3.Value = "" Then labYes.Visible = False LabNo.Visible = False Exit Sub End If Dim tol1 As Single Dim val1 As Single tol1 = UserForm1.txt1.Value val1 = UserForm1.txt3.Value If val1 < tol1 Then LabNo.Visible = True labYes.Visible = False ElseIf val1 >= tol1 Then labYes.Visible = True LabNo.Visible = False End If End Sub Private Sub txt4_AfterUpdate() If txt4.Value = "" Then labYes2.Visible = False labNo2.Visible = False Exit Sub End If Dim tol2 As Single Dim val2 As Single tol2 = UserForm1.txt2.Value val2 = UserForm1.txt4.Value If val2 < tol2 Then labNo2.Visible = True labYes2.Visible = False ElseIf val2 >= tol2 Then labYes2.Visible = True labNo2.Visible = False End If End Sub
Ce que je cherche a faire

afficher le label "non conforme" ou " conforme" qu'une seule fois c'est a dire (comme la formule SI OU)

Si textbox1 et textbox2 sont supérieur ou égale alors on affiche le label "conforme"
Si textbox1 ou textbox2 sont conforme alors on affiche le label "non-conforme"
si textbox1 et textbox2 sont non-conforme alors on affiche le label "non-conforme"

et ne plus avoir besoin des label conforme2 et non-conforme2

Voili voilou

merci pour vos retour

04/04/2019, 14h59
MarcelG

Salut et bienvenu sur le Forum,

Utilise l'instruction Select Case avec pour argument la valeur booléenne True.
Le code considèrera la première instruction vraie.

Bonjour
comment peut-on raisonnablement écrire cela :

Code:

1
2
3
4
5
6
7
8
9
10
Tol1 = usfPVTG.txt1.Value ' ---
                       '        | ----------->> donc Tol1 = val1
val1 = usfPVTG.txt1.Value ' ---
 
    If val1 < Tol1 Then ' -------------------->> ne risque pas d'être le cas puisqu'égaux
        '......
    ElseIf val1 >= Tol1 Then ' -------------------->> ne risque pas d'être le cas puisqu'égaux
         '......
    End If
End Sub

Pas d'autre commentaire.

Citation:

Envoyé par unparia

Bonjour
comment peut-on raisonnablement écrire cela :

Code:

1
2
3
4
5
6
7
8
9
10
Tol1 = usfPVTG.txt1.Value ' ---
                       '        | ----------->> donc Tol1 = val1
val1 = usfPVTG.txt1.Value ' ---
 
    If val1 < Tol1 Then ' -------------------->> ne risque pas d'être le cas puisqu'égaux
        '......
    ElseIf val1 >= Tol1 Then ' -------------------->> ne risque pas d'être le cas puisqu'égaux
         '......
    End If
End Sub

Pas d'autre commentaire.

une erreur de frappe
je corrige le message

04/04/2019, 15h14
MarcelG

Salut Unparia.

Citation:

je corrige le message

D'accord, mais tu regardes du côté de Select Case comme indiqué précédemment.
04/04/2019, 15h18
skyzix

Citation:

Envoyé par MarcelG

Salut Unparia.

D'accord, mais tu regardes du côté de Select Case comme indiqué précédemment.

Je suis entrain ;-)
04/04/2019, 18h13
skyzix

En fait ça ne change rien

je suis toujours obligé d'utiliser labYes2 et labNo2
04/04/2019, 18h13
unparia

Re

on va commencer par être à la fois concis, succinct et clair :
Commençons par le double tandem "interactif" txt1, txt3 et labno, labyes

Si je regarde ton code j'en déduis que tu cherches à faire ce que résume ceci :
labno ne doit être visible que si, à la fois, txt1 <> "", txt2 <> "", txt3 < txt1
labyes ne doit être visible que si, à la fois, txt1 <> "", txt2 <> "", txt3 >= txt1
Est-ce le cas ?
Si oui, la réponse sera simple et tu verras que ce seul effort d'exposé du but est déjà à lui seul (comme c'est souvent le cas;)) le début de la solution, sinon la solution elle-même
Si non, il va te falloir faire des efforts pour exposer précisément ce que tu veux

Bonjour ...

et avec cela ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Txt1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   If Txt1 = "" Or Txt3 = "" Then Exit Sub
    LabNo.Visible = Txt3 < Txt1: LabYes.Visible = Txt3 >= Txt1
End Sub
Private Sub Txt3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Txt1 = "" Or Txt3 = "" Then Exit Sub
    LabNo.Visible = Txt3 < Txt1: LabYes.Visible = Txt3 >= Txt1
End Sub
Private Sub Txt2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Txt2 = "" Or Txt4 = "" Then Exit Sub
    LabNo2.Visible = Txt4 < Txt2: LabYes2.Visible = Txt4 >= Txt2
End Sub
Private Sub Txt4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Txt2 = "" Or Txt4 = "" Then Exit Sub
    LabNo2.Visible = Txt4 < Txt2: LabYes2.Visible = Txt4 >= Txt2
End Sub

Edit : je n'ai pas intégré les contrôles de validité (saisies numériques)

04/04/2019, 18h51
eriiic

Bonjour à tous,

pour simplifier aussi, tu peux ne t'occuper que de LabNo.Visible.
Et à la fin :

Code:

LabYes.Visible = Not LabNo.Visible

eric
04/04/2019, 19h01
skyzix

Citation:

Envoyé par unparia

Re

on va commencer par être à la fois concis, succinct et clair :
Commençons par le double tandem "interactif" txt1, txt3 et labno, labyes

Si je regarde ton code j'en déduis que tu cherches à faire ce que résume ceci :
labno ne doit être visible que si, à la fois, txt1 <> "", txt2 <> "", txt3 < txt1
labyes ne doit être visible que si, à la fois, txt1 <> "", txt2 <> "", txt3 >= txt1
Est-ce le cas ?
Si oui, la réponse sera simple et tu verras que ce seul effort d'exposé du but est déjà à lui seul (comme c'est souvent le cas;)) le début de la solution, sinon la solution elle-même
Si non, il va te falloir faire des efforts pour exposer précisément ce que tu veux

Re..
bon je n'ai pas fait gaffe je viens de changer mon code sans avoir vu vos réponses (mode boulet)
sinon oui je pense que mon exposé n'est pas très claire.

alors ce que je cherche à faire
labNo doit être visible que si txt3 < txt1 et/ou txt4 < txt2
labYes doit être visible que si à la fois txt3 >= txt1 et txt4 >= txt2

voili voulou
04/04/2019, 19h18
unparia

Citation:

voili voulou

?
-->> que nenni
Commence par compléter. Juste pour me montrer que tu sais t'appliquer, au moins ...
Et confirme ton ou du "et/ou" (car je devine une "pagaille").
Prends ton temps, mais sois très, très, très clair. Dans le cas contraire, je ne reviendrai plus dans cette discussion.

EDIT : des adieux à faire m'appellent à m'absenter trois jours. Je te relirai donc Lundi matin.
05/04/2019, 06h21
skyzix

Citation:

Envoyé par unparia

?
-->> que nenni
Commence par compléter. Juste pour me montrer que tu sais t'appliquer, au moins ...
Et confirme ton ou du "et/ou" (car je devine une "pagaille").
Prends ton temps, mais sois très, très, très clair. Dans le cas contraire, je ne reviendrai plus dans cette discussion.

EDIT : des adieux à faire m'appellent à m'absenter trois jours. Je te relirai donc Lundi matin.

bonjour

je vois 4 possibilités

Si txt3 < txt1 et txt4 < txt2 alors labNo visible
Si txt3 < txt1 et txt4 >= txt2 alors labNo visible
Si txt3 >= txt1 et txt4 < txt2 alors labNo visible
Si txt3 >= txt1 et txt4 >= txt2 alors labYes visible

PS: Posté depuis un smartphone à petites touches et gros doigts :ptdr:
05/04/2019, 07h00
eriiic

Bonjour,

tu ne fais que le dernier (pas trop dur) et tu finis par :

Code:

LabNo.Visible = Not LabYes.Visible

eric
05/04/2019, 08h44
MarcelG

Bonjour à vous, Bonjour au Forum,

Pour ma part, je ne démords pas d'une instruction Select Case avec True pour argument.
Les cas gérés seraient ceux exposés au post #13.
05/04/2019, 10h18
skyzix

Bonjour

Citation:

Tu ne fais que le dernier (pas trop dur) et tu finis par :

Code:

LabNo.Visible = Not LabYes.Visibleeric

A la fin de quoi ? je pige pas

Citation:

Bonjour à vous, Bonjour au Forum,

Pour ma part, je ne démords pas d'une instruction Select Case avec True pour argument.
Les cas gérés seraient ceux exposés au post #13.

Un peu la même chose ou je mets l'instruction Select Case ?
05/04/2019, 10h36
MarcelG

Citation:

Un peu la même chose ou je mets l'instruction Select Case ?

Tout d'abord, tu t'informes sur cette instruction.
Et tu tiens compte de l'argument que je t'ai indiqué.

Tu peux placer cette instruction sur l'évènement Exit de la dernière zone de texte informée, dont va dépendre l'affichage.
05/04/2019, 10h59
skyzix

Bon là les gars vous m'avez complément perdu
Tant pis pour moi.
05/04/2019, 11h12
MarcelG

1 pièce(s) jointe(s)

1 - Tu cherches à te documenter sur l'instruction VBA Excel Select Case, notamment en ce qui concerne l'argument True
2 - Tu observes le cheminement de saisie du formulare, et tu places cette instruction à l'évènement Exit du dernier Textbox.

Tu dois t'informer, observer la logique de saisie puis gérer un évènement.
Et cela, tu peux le faire.

Bien entendu, tu peux revenir sur le Forum avec un code complet en explicitant ton éventuelle problématique.

En espérant avoir été clair.

P.S. Ci-joint une liste de liens utiles

Bon après avoir fait une pause café, pris l'air et fait 2 ou 3 trucs au boulot

Voici un exemple de code que je viens de faire

Dans cette exemple c'est conforme

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Select_Case_true()
tol1 = 95
tol2 = 120
val1 = 95
val2 = 120
 
Select Case True
 
    Case val1 >= tol1 And val2 >= tol2
        MsgBox "Conforme"
   Case Else
        MsgBox "Non-conforme"
End Select
End Sub

dans celui là c'est non-conforme

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Select_Case_true()
tol1 = 95
tol2 = 120
val1 = 98
val2 = 119
 
Select Case True
 
    Case val1 >= tol1 And val2 >= tol2
        MsgBox "Conforme"
   Case Else
        MsgBox "Non-conforme"
End Select
End Sub

Ai-je bon ?

05/04/2019, 12h23
MarcelG

Citation:

Ai-je bon ?

C'est à toi de voir.
Si tu places un point d'arrêt au début de l'instruction et su tu procèdes à une exécution pas à pas, alors le débuggeur considèrera la 1ere instruction vraie et sortira de la gestion des cas.
D'où, d'ailleurs, l'importance de la place relative à chaque cas.

Ensuite, tu devras placer cette procédure au sein de l'évènement Exit du Textbox adéquat.

Nota.
Evite d'utiliser des mots clés de VBA dans la nomenclature des procédures.

Voici le code de mon premier post modifié avec Select Case true.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub UserForm_Initialize()
 
Dim tol1, Tol2 As Single
tol1 = 95
Tol2 = 120
 
txt1.Value = tol1
txt2.Value = Tol2
 
labYes.Visible = False
labNo.Visible = False
 
 
End Sub
 
Private Sub txt4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
 
Dim tol1, Tol2, val1, val2 As Single
tol1 = UserForm1.txt1.Value
Tol2 = UserForm1.txt2.Value
val1 = UserForm1.txt3.Value
val2 = UserForm1.txt4.Value
 
Select Case True
 
    Case val1 >= tol1 And val2 >= Tol2
        labYes.Visible = True
        labNo.Visible = False
 
    Case Else
        labNo.Visible = True
        labYes.Visible = False
 
End Select
 
End Sub

05/04/2019, 12h35
skyzix

Citation:

Envoyé par MarcelG

Nota.
Evite d'utiliser des mots clés de VBA dans la nomenclature des procédures.

C'est à dire ?

Edit: ok je viens de piger (Sub Select-case-true () )
05/04/2019, 12h46
MarcelG

Le code semble bien structuré.
Comme tu l'as fait, il est opportun d'initialiser les propriétés à gérer (ici, la propriété "Visible")

Remarques:
- Si un objet parent se répète, alors utiliser le bloc With peut contribuer à une bonne lisibilité du code.
- Comme les affichages sont contraires, tu peux purger ton code en plaçant après l'étude des cas

Code:

leyes.Visible = Not leno.visible

(je crois que l'on t'a déjà signalé ce processus).

Comme cela
Code:

1 2 3 4 5 6 7 With UserForm1 tol1 = .txt1.Value Tol2 = .txt2.Value val1 = .txt3.Value val2 = .txt4.Value End With
je vais faire une recherche pour le

Code:

Not

05/04/2019, 14h27
skyzix

Je viens de passer un peu de temps sur l'opérateur Not
ce que je comprend c'est l'opérateur Not inverse le résultat d'une condition. Si une condition est vraie, elle devient fausse avec le mot-clé Not.
j'ai fais plusieurs essai mais sans succès
je ne vois pas comment faire la syntaxe dans le code
05/04/2019, 14h34
OrDonc

1 pièce(s) jointe(s)
Re

Marcel,le Select Case n’est intéressant que lorsqu’ il y a plus d’un cas non ?
En ciblant au plus près la demande

Citation:

je vois 4 possibilités
Si txt3 < txt1 et txt4 < txt2 alors labNo visible
Si txt3 < txt1 et txt4 >= txt2 alors labNo visible
Si txt3 >= txt1 et txt4 < txt2 alors labNo visible
Si txt3 >= txt1 et txt4 >= txt2 alors labYes visible

il n’y a qu’un seul cas de conformité donc un seul test suffit ainsi qu’une seule étiquette Lab
Code:

1 2 3 4 Sub K() Lab = "Non-conforme" If txt3 >= txt1 And txt4 < txt2 Then Lab = "Conforme" End Sub
Remarque :

Code:

LabNo2.Visible = Txt4 < Txt2: LabYes2.Visible = Txt4 >= Txt2

peut être remplacé par

Code:

LabNo2.Visible = Txt4 < Txt2: LabYes2.Visible = Not LabNo2.Visible

.
De façon générale, Not A est utilisé pour l’évènement contraire de celui de A sachant que contraire n’implique que 2 états (le1 ou le2 avec un ou exclusif).
J’aurais proposé cette dernière version mais elle est plus longue.

Plutôt de donner de multiples adresses de recherche, je préfère donner un exemple (à étudier ou pas) comme avec le fichier joint dans lequel, l'appel de la macro de notification peut être changé.
05/04/2019, 14h36
MarcelG

Not peut signifier aussi contraire.
C'est ce que signifie Eric au post #10.

Code:

monlabel_un.Visible = not monlabel_deux.Visible

signifie que si monlabel_deux est visible alors monlabel_un ne l'est pas.
A l'inverse, si monlabel_deux n' est pas visible, alors monlabel_un l'est.
05/04/2019, 14h42
MarcelG

Salut Ordonc,

(ravi de te retrouver)

Tout à fait. :plusser:
Mais il est bon de souligner ce processus True de gestion des cas, trop souvent ignoré, à mon sens.

Pour le reste, nos post se sont croisés.
05/04/2019, 14h54
eriiic
Re,

Citation:

A la fin de quoi ? je pige pas

Je développe un peu plus alors :
Tu viens d'exposer tes conditions :
Si txt3 < txt1 et txt4 < txt2 alors labNo visible
Si txt3 < txt1 et txt4 >= txt2 alors labNo visible
Si txt3 >= txt1 et txt4 < txt2 alors labNo visible
Si txt3 >= txt1 et txt4 >= txt2 alors labYes visible

Comme tu n'as qu'un seul cas avec labYes visible tu ne calcules que celui-là, l'autre label étant l'inverse par définition. Si Yes est affiché alors No ne l'est pas, et vice-versa.
Ce qui donne :
Code:

1 2 labYes.visible = (txt3 >= txt1) And (txt4 >= txt2) labNo.visible = Not labYes.visible
Je me suis contenté de copier-coller tes tests, met la réalité.
eric

Edit : je viens de voir que d'autres posts avaient suivi, et que OrDonc avait également développé cette partie dans le même sens.

Merci a tous

je crois que j'ai pigé

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Private Sub UserForm_Initialize()
 
Dim tol1, Tol2 As Single
tol1 = 95
Tol2 = 120
 
txt1.Value = tol1
txt2.Value = Tol2
 
labYes.Visible = False
labNo.Visible = False
 
 
End Sub
 
 
Private Sub txt4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
 
labYes.Visible = (txt3 >= txt1) And (txt4 >= txt2)
labNo.Visible = Not labYes.Visible
 
End Sub