Discussion :

[Touffe54]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[mercatog]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Touffe54]

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.

[ctac_]

Bonjour,

Essayer comme ça !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

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 dans l'évènement Exit de la TextBox :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
MaMacro
End Sub

Code dans l'évènement Exit de la Frame :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Frame1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
MaMacro
End Sub

Code dans un Module Standard :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sub MaMacro()
MsgBox "coucou"
End Sub