Fonction Change() et Controle ActiveX

**canary** · 30/05/2013, 14h51

Bonjour à tous,

J'ai une TextBoxA en Contrôle ActiveX dans mon document Word. J'ai codé ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub TextBoxA_Change()
If Me.TextBoxA.Value < 20 Then
        Me.TextBoxA.BackColor = vbRed
        If MsgBox("Erreur", vbOKCancel + vbExclamation, "Attention") = vbOK Then
        Me.TextBoxA.BackColor = vbWhite
        Else
        Me.TextBoxA.BackColor = vbRed
        End If
Else
        Me.TextBoxA.BackColor = vbWhite
End If
End Sub

Le problème est que lorsque je veux taper par exemple "30" : en tapant le "3" en premier alors le code se déclenche... ce qui n'est pas top pour l'utilisateur.

Avez-vous une solution à me proposer ?
Merci par avance,

**Heureux-oli** · 02/06/2013, 20h07

Salut,

Je pense que ce serait plus facile d'utiliser le LostFocus de ce contrôle au lieu du change.

**canary** · 03/06/2013, 14h46

Bonjour,

En effet cette solution fonctionne.
Cependant, si la personne rentre le chiffre "30" alors la fenêtre d'erreur se déclenchera que lorsqu'il cliquera ailleurs dans le document Word.
Si par exemple il descend l'ascenseur et clique seulement ensuite alors la fenêtre apparait, mais on ne sait plus où était la case.

Peut-on mettre un code pour remonter automatiquement à la case à remplir ?
J'ai essayé avec un :

Code :

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