Excel VBA

Bonjour,

Je suis bloqué sur une langage VBA pour mettre des conditions sur des textbox, je vous explique :

J'ai fait un formulaire avec des combobox et textbox.
Lorsque je saisie mes deux combobox, j'ai textbox18 (égale à la concaténation de mes deux combobox)

Sur une textbox, je veux que soit accepté la saisie entre une certaine plage (min et max) que se trouve sur la feuil "Ranges_1" et entre les cellules "A3:M34". Ma colonne A correspond au textbox18, et donc cela change lorsque je modifie mes 2 combobox.

Sur Excel, ça marche bien quand je mets une condition entre min et max dans "validation de donnée"
=RECHERCHEV($D$6;Ranges_1!$A$3:$M$34;3;FAUX), ici la valeur min est situé dans la colonne 3
=RECHERCHEV($D$6;Ranges_1!$A$3:$M$34;4;FAUX), ici la valeur max est situé dans la colonne 4
Sur la feuil Excel, ça marche super bien, mais je voudrais cela sur un formulaire Useform.


Voici mon codage auquel je doit procéder pour 4 textbox (ici je vous présente pour 2) :
Textbox6, le minimum acceptable est situé dans la colonne 3 et le maximum dans la colonne 4 (en fonction du textBox18 préalablement choisis)

Textbox7, le minimum acceptable est situé dans la colonne 6 et le maximum dans la colonne 7 (en fonction du textBox18 préalablement choisis)

Quand j'ai appliqué la formule ci-dessous, ça marche bien la plage acceptable (min - max) pour TextBox6, cependant pour TextBox7, je ne peux mettre aucune valeur qu'il montre ma message "See ranges for this fatty acids".


Ci-dessous mon code VBA :

Private Sub TextBox6_Change()
    Sheets("Model_FA").Range("D15").Value = TextBox6.Value
    Sheets("Model").Range("E16").Value = TextBox6.Value

Dim myRange3 As Range
Set myRange3 = Worksheets("Ranges_1").Range("A3:M34")
    If Not IsNumeric(TextBox6.Value) And TextBox6 <> "" Then
          MsgBox "Entry a number"
          TextBox6 = ""
    ElseIf TextBox6.Text < WorksheetFunction.VLookup(TextBox18.Text, myRange3, 3, False) Or TextBox6.Text > WorksheetFunction.VLookup(TextBox18.Text, myRange3, 4, False) And TextBox6 <> "" Then
          MsgBox "See ranges for this fatty acids"
          TextBox6 = ""
    End If
    
    End Sub
    

Private Sub TextBox7_Change()
    Sheets("Model_FA").Range("D16").Value = TextBox7.Value
    Sheets("Model").Range("E17").Value = TextBox7.Value

Dim myRange4 As Range
Set myRange4 = Worksheets("Ranges_1").Range("A3:M34")
    If Not IsNumeric(TextBox7.Value) And TextBox7 <> "" Then
            MsgBox "Entry a number"
            TextBox7 = ""
    
    ElseIf TextBox7.Text < WorksheetFunction.VLookup(TextBox18.Text, myRange4, 6, False) Or TextBox7.Text > WorksheetFunction.VLookup(TextBox18.Text, myRange4, 7, False) And TextBox7 <> "" Then
            MsgBox "See ranges for this fatty acids"
            TextBox7 = ""
    End If
    
End Sub

Merci beaucou de votre aide
Lucas

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.