Discussion :

[LANGAZOU]

Bonjour,

j'ai deux Textbox successifs qui indiquent les bornes Min(Textbox1) et Max(Textbox2).
je veux que lorsque la borne Min est vide ou lorsque par erreur la borne Min est sup au borne Max il y'aura un message box qui s'affiche (Borne Min> Borne Max) et le setfocus se positionne de nouveau sur la borne Min (Textbox1).

Merci de m'indiquer ou mettre le code (dans le before ou afterupdate)

Merci pour votre aide.

[Docmarti]

Bonjour

Le plus simple est comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
If TextBox2 <> "" And (TextBox1 = "" Or TextBox1 > TextBox2) Then
  MsgBox "Allo"
  TextBox1.SelStart = 0
  TextBox1.SelLength = Len(TextBox1.Text)
 
  TextBox1.SetFocus
  Application.OnTime Now + TimeValue("00:00:01"), "SetFocusSurTextbox1"
 End If
End Sub

Dans un module

Code :

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

1
2
3
Sub SetFocusSurTextbox1()
 UserForm1.TextBox1.SetFocus
End Sub

[LANGAZOU]

bonjour,

Merci pour votre réponse .
Est que ya t-il un moyen pour utiliser le after update mieux qu'utiliser un commandbutton ?
Merci.

[clementmarcotte]

Dans l'aide de VBA, ils disent que l'événement AfterUpdate est généré à chaque modification du contenu. Donc quand tu vas écrire anticonstitutionnellement dans ton contrôle tu vas générer 25 événements AfterUpdate plus tous ceux que tu vas générer en te trompant de lettre.

Comment veux-tu que ton textbox "sache" que ton nombre au complet va avoir 1, 10, 3, ou 5 caractères ?

[LANGAZOU]

Bonjour,

je suis débutant en vba et j'ai cru que l'after update peut verifier automatiquement le montant de la borne inf et indique selon la borne max s'il y'a un dépassement ou pas.

[Docmarti]

C'est plutôt le BeforeUpdate que tu cherches, car avec le AfterUpdate il est trop tard car le curseur est déjà rendu ailleurs.
Utilise donc BeforeUpdate et Cancel.
Mais le Update pose un problème : c'est qu'il faut qu'il y ait au moins une modification faite dans le Texbox1, sinon l'événement Update (Before ou After) ne se déclenchera pas.
Personnellement, je n'ai jamais utilisé les événements Update.

Code :

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

1
2
3
4
5
6
7
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
 TextBox1.Value = Trim(TextBox1.Value)
 If TextBox2 <> "" And (TextBox1 = "" Or TextBox1 > TextBox2) Then
   MsgBox "Allo"
   Cancel = True
 End If
End Sub

Tu serais mieux avec l'événement Exit du Textbox avec le code de mon premier message. Car il se déclenche même s'il n'y a pas eu de modification de la valeur.

[LANGAZOU]

Merci beaucoup Mr Docmarti pour votre aide et votre suivi quotidien.

A très bientôt.