Pb entre SetFocus et AfterUpdate

[mécano41]

Bonjour à tous,

Je reviens à la charge avec un problème que j'avais évoqué hier (validation de date) mais qui a été résolu par un autre moyen.

Ici, c'est un cas général de validation numérique et j'ai besoin de l'AfterUpdate mais le SetFocus ne veut pas fonctionner avec...

J'ai essayé avec le BeforeUpdate et Cancel=0 mais c'est pareil

Je n'ai pas le curseur (c'est d'autant plus bizarre que si je mets Dia.value="xxx" avant le SetFocus, la mise à jour se fait mais toujours pas de curseur)

Merci d'avance,

Cordialement

 

[Guest]

Re : Pb entre SetFocus et AfterUpdate

Bonjour Mécano,

Rajoute:

Private Sub Dia_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = Not Valide
End Sub

Et tu remet Valide=True sur l'évènement Enter de chaque Textbox

Deuxième solution, utiliser l'évènement Exit des textbox pour les valider

A+

 

[mécano41]

Re : Pb entre SetFocus et AfterUpdate

Bonjour Hasco et merci pour ta réponse.

Je viens d'essayer ta solution mais :

- que je mette le Dia_Exit(...) en plus (avec ou sans le SetFocus dedans)
- que je remplace AfterUpdate par Dia_Exit(...) dans ma routine actuelle

ne change malheureusement rien ; je n'ai toujours pas le curseur dans la TextBox ...

Merci tout de même

Cordialement

 

[Guest]

Re : Pb entre SetFocus et AfterUpdate

Re,

Et avec ceci:

Private Sub Dia_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dia.SelStart = 0
    Dia.SelLength = Len(Dia)
    Cancel = Not Valide
End Sub

Pour sélectionner le texte de dia

Ou cela:

Private Sub Dia_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dia.SelStart = Len(Dia)
    Cancel = Not Valide
End Sub

Pour mettre le curseur en fin de text de Dia.

A+

 

[skoobi]

Re : Pb entre SetFocus et AfterUpdate

Bonjour mécano41,
Hasco 🙂,

il faut également démarrer l'usf en modal (enlève le "0"):
Private Sub CommandButton1_Click()
BdDlg1.Show (0)
End Sub

 

[Guest]

Re : Pb entre SetFocus et AfterUpdate

RE,

Je vais en faire râler certains, mais je ne résiste pas à la tentation de saluer l'honorable Skoobi😀

A++

 

[mécano41]

Re : Pb entre SetFocus et AfterUpdate

Les deux fonctionnent, à condition effectivement de mettre l'USF en modal.

Merci à tous et bonne journée.

cordialement