Que mettre en argument quand on appelle la procédure Exit d'un TextBox

Bonjour,

Suite à ma précédente discussion, je voudrais savoir quel argument dois-je passer quand j'appelle la procédure Exit d'un TextBox.

J'ai essayé de passer la valeur False comme suit

Code:

---

TBNDev_Exit False

---

Mais je me fais insulter par Excel (Incopatibilité de type).
J'ai alors regarder le type de l'argument à passer, il est "calibrer" en MSForms.ReturnBoolean. Diantre, qu'est ce donc que cela ?

Sauriez-vous éclairer ma lanterne ?

Merci bien.

Essaies ceci pour comprendre
Crée un usf avec 2 textbox

Code:

---

1 2 3

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1.Text = "" Then Cancel = True End Sub

---

Merci Mercatog

Mais en fait cette discution fait référence à ma discution précédente.
En fait je souhaite lancer la procédure Exit d'un Textbox a partir de la procédure Exit d'une Frame.

Bonjour,

Essayer comme ça !

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Clovis() Dim Form_ReturnBoolean As MSForms.ReturnBoolean Dim Mon_ReturnBoolean As Boolean Mon_ReturnBoolean = Lire(VarPtr(Form_ReturnBoolean)) MsgBox Mon_ReturnBoolean End Sub Function Lire(Le_ReturnBoolean As Boolean) As Boolean Lire = Le_ReturnBoolean End Function

---

ctac

Citation:

---

Envoyé par Touffe54

En fait je souhaite lancer la procédure Exit d'un Textbox a partir de la procédure Exit d'une Frame.

---

Bonjour,

Soit tu recopies ta procédure dans l’évènement Exit de la Frame, soit tu places la procédure dans un Module Standard et tu peux l'exécuter depuis les évènements Exit de la TextBox et de la Frame

Code:

---

1 2 3 4

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) MaMacro End Sub

---

Code:

---

1 2 3 4

Private Sub Frame1_Exit(ByVal Cancel As MSForms.ReturnBoolean) MaMacro End Sub

---

Code:

---

1 2 3 4

Sub MaMacro() MsgBox "coucou" End Sub

---