Discussion :

[zoumzoum59]

Bonjour à tous

J'ai une userform avec 4 frame et dans chaque frame 10 textbox jusque la tout va bien.
Chaque textbox a une procedure textbox_Exit du type:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1.Value <> "" Then
 
        If (IsDate(TextBox1)) = True Then
            h1 = Replace(TextBox1.Value, ".", ":")
            TextBox1 = Format(TextBox1.Value, "hh\H mm")
        Else
            MsgBox "Entrez une valeur valide !!": _
                Cancel = True: Exit Sub
        End If
    End If
    TextBox1.BackColor = RGB(255, 255, 255)
End Sub

Donc mon problème et que quand je passe d'un textbox a un autre tout va bien, meme quand il sont dans des frame diffèrentes.

Mais quand je clic sur le bouton Ok de la userform la procedure exit du textbox actif à ce moment là ne fonctionne pas.

Quelqu'un pourrait me dire pourquoi et comment palier à ce phénomène.

Merci d'avance

[ouskel'n'or]

Essaie de mettre ton code dans l'événement AfterUpdate :

Code :

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

Private Sub TextBox1_AfterUpdate()

[zoumzoum59]

Merci ouskel'n'or

A priori ça à l'air de mieux fonctionner mais je terminerai les essaies demain car je n'ai plus les idées tout à fait clair, il me faut un peu de repos.

[jmfmarques]

Je n'aurais pas du tout procédé ainsi mais autrement :

une sous-routine de contrôle (appelons-là ici controlesaisie, à laquelle j'aurais passé comme paramètre la textbox).
Cette sous-routine aurait été appelée ;
- à chaque événement exit d'une textbox concernée par ce contrôle
- à l'événement click de mon bouton de command en ne lançant alors que le contrôle concernant la dernière textbox saisie (ce qui se gère parfaitement par une vairiable ad hoc qui se met à jour à l'entrée dans une textbox)

Cette méthode allège de surcroît considérablement le code.

Je précise que si le contrôle peut différer entre une textbox et l'autre, il suffit de passer comme 2ème paramètre un n° identificateur du type de contrôle à effectuer, à gérer alors aved des If Then... ou avec Select Case.

[ouskel'n'or]

Hello jemefe,
Je suis d'accord avec toi, et c'est d'ailleurs ce que j'aurais fait. Je me contentais là de répondre à la question.
Cette procédure unique serait sans doute à appeler dans les mêmes conditions, cad dans AfterUpdate.
Quant à la méthode, l'avantage du select case sur le nom du textbox servant d'index de contrôle, par rapport au "if... then", serait de simplifier la relecture.
Auquel cas il ne serait même pas utile "de passer comme 2ème paramètre un n° identificateur du type de contrôle à effectuer"
A noter qu'on peut également identifier le typeName du contrôle et ne retenir que les textbox dans le test effectué par Select Case

[zoumzoum59]

Bonsoir jmfmarques et ouskel'n'or

J'ai pas exactement le resultat recherché avec:

Code :

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

Private Sub TextBox1_AfterUpdate()

Si je suis bien ce qui ce passe, j'ai l'impression que la procedure AfterUpdate est lu deux fois Quand je click sur le bouton Ok, elle est lu une premiere fois.
Et tout s'arrete je suis obligé de reclicker sur le bouton ok, pour quelle se termine.

Donc si vous avez quelque cose que je pourrait exploiter je vous en remercie.

Mais j'ai besoins d'un peu d'explication car votre niveau d'explication et difficile à comprendre pour moi

Merci