Programme VBA

[Nimbus]

Bonjour,

J'ai un soucis avec mon programme VBA.
Je veux qu'il m'affiche "non conforme" quand la valeur est supérieure à +3 et inférieure à -3.
Voila mon programme mais, quand je l'exécute, il ne prend en compte que le premier "if". Je ne comprend pas pourquoi.

Private Sub Resultat_verre_droit_Change()
Range("L8") = Resultat_verre_droit.Value
If Resultat_verre_droit < -3 Then
Label21.Visible = True 'Label masqué
Sheets(1).Range("L8").Interior.Color = vbRed
Else
Label21.Visible = False 'Label visible
Sheets(1).Range("L8").Interior.Color = vbGreen
End If
If Resultat_verre_droit > 3 Then
Label21.Visible = True 'Label masqué
Sheets(1).Range("L8").Interior.Color = vbRed
Else
Label21.Visible = False 'Label visible
Sheets(1).Range("L8").Interior.Color = vbGreen
End If
End Sub


Merci de votre aide

Nimbus

 

[Pierrot93]

Re : Programme VBA

Bonjour,

regarde peut être ceci, à adapter :

Label1.Visible = CDbl(TextBox1) < -3 Or CDbl(TextBox1) > 3
Sheets(1).Range("L8").Interior.Color = IIf(CDbl(TextBox1) < -3 Or CDbl(TextBox1) > 3, vbRed, vbGreen)

bonne journée
@+

 

[Dull]

Re : Programme VBA

Salut Nimbus et Bienvenue sur XLD, le Forum

Essaye peut-être comme cela

Private Sub Resultat_verre_droit_Change()
Range("L8") = Resultat_verre_droit.Value
Label21.Visible = IIf(Resultat_verre_droit < -3 Or Resultat_verre_droit > 3, True, False) 'Label masqué
Sheets(1).Range("L8").Interior.Color = IIf(Resultat_verre_droit < -3 Or Resultat_verre_droit > 3, vbRed, vbGreen)
End Sub

EDITION: Salut Pierrot 🙂

Bonne Journée

 

[Nimbus]

Re : Programme VBA

Merci Dull ça fonctionne à merveille!!!!!