Valeurs comprises suivant une entrée d' un comboBOx et un textBox

[Marcel]

Bonjour à tous,

j'ai fais un userForm, ou se trouve un Combobox avec une sélection de modèles de pièces ( 6 au total )

L'operateur doit introduire les résultats dans une textBox

Les valeurs pour 2 d'entre-elles ont une cote de 13.06 à 13.00 ( 15HP & ZP180 )

Les autres modèles ont des valeurs de 12.06 à 12.00 ( 7.5HP; 9HP; 10HP;13HP )

Lorsque les valeurs introduites sont hors tolérances un msg box averti du défaut, celà fonctionne avec une cote et un modèle mais pas avec la relation du combo, je voudrais bien que le message box ce lance lorsque:

ComboBox sur 15HP ou ZP180: Cotes introduite plus petite ou plus grande que 13.06 à 13.00

ComboBox sur les autres modèles octes introduite plus petite ou plus grande que 12.06 à 12.00

Voici une partie du code qui fonctionne pas :

'Valeurs Hors Tolérances  Orbit
If Val(ComboBox3) = "15HP" Then Val (TextBox6) < 13.03

             Select Case MsgBox("LARGEUR SLOT ORBIT MINI ou HORS TOLERANCE ! :" & TextBox6 _
                                & vbCrLf & "" _
                                & vbCrLf & "Pour Continuer Cliquer sur OK pour Modifier Cliquer sur Cancel" _
                                , vbOKCancel Or vbExclamation Or vbDefaultButton1, Application.Name)
             
                Case vbOK
                Case vbCancel
                            With TextBox6
                            .Value = ""
                            .SetFocus
                            End With
                
                            Exit Sub
             End Select
   End If

Je joint le fichier celà peut aider si je me suis fais mal comprendre.

Merci pour votre aide