Problème boucle Boolean

Bonjour,

je veux faire une boucle boolean pour voir si une coordonné Xi est compris dans l'intervalle [xA;xB]:

Voici mon code:

(ps mes coordonnées sont rentrés via des textbox)

Function Appartient()

Dim Xi As Boolean

Xi = True

UserForm1.Xi.Value = Xi

If Xi > UserForm1.xA.Value And Xi < UserForm1.xB.Value Then

Xi = True

MsgBox ("Xi est compris dans l'intervalle")

Range("C" & Range("C" & Cells.Rows.Count).End(xlUp).Row + 1).Select

ActiveCell.Value = UserForm1.Xi.Value

Else

MsgBox ("Xi n'est pas compris dans l'intervalle")

End If

End Function

Merci à ceux qui prendront le temps de me lire et de me répondre

Bien à vous

Bonjour

Je pense que tu mélanges beaucoup de chose

Boolean c'est True ou False (-1 et 0)

En plus tu as un contrôle (TextBox ?) qui s'appelle du même nom que la variable Xi

Pourquoi tu emploies une fonction, tu ne retournes aucun résultat