Aide pour simplifier un code

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

---

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 () )

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

---

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

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é.

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.

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.

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

---