Discussion :

[zanimox]

Bonjour,
Je ne trouve pas la réponse à ma question dans le forum. Ce doit être bête comme chou ...
J'ai un userform avec 2 textbox : le n° de mois et le n° de semaine; je contrôle que le n° de mois est entre 1 et 12, sinon message d'erreur (ça ca va !). Mais dans ce cas je ne veux pas que le focus passe au n° de semaine et ça je n'y arrive pas.
J'ai placé une commande setfocus sur mon textbox (si il y erreur) mais rien n'y fait !
Je pense que la solution tourne autour des évennements ENTER et EXIT mais je ne comprends pas leur fonctionnement.
Pouvez vous m'aider, SVP ? Je suis crevé ! Merci d'avance.

[kiki29]

Salut, voir du côté de TextBoxX.SetFocus

[AlainTech]

Voir plutôt du côté de l'événement Exit et son paramètre Cancel.
S'intéresser surtout à la petite note tout en bas de l'aide (F1) sur les événements Enter et Exit.

[Lynx92260]

Bonjour

Pour garder le focus sur un textbox en cas d'erreur est sur l'evenement BeforeUpdate voir l'exemple ci dessous de ce que j'ai l'habitude de faire ....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub TxtDateMandat_Enter() 
    ' je stocke la date avant la saisie par l'itulisateur
    TxtDateMandat.Tag = TxtDateMandat
End Sub
 
Private Sub TxtDateMandat_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    ' Si la saisie est incorrecte on ne valide pas la saisie avec Cancel=True    
     If Not IsDate(TxtDateMandat) Then
        MsgBox "La saisie n'est pas une date !" 
        ' Je recupere l'ancienne valeur 
        TxtDateMandat = TxtDateMandat.Tag
        ' Abandon de la mise à jour et focus reste sur le textbox
        Cancel = True
    End If
End Sub

[zanimox]

merci de vos réponse mais cela ne va tjs pas ! J'avais d'ailleurs vu tout cela :
le setfocus n'agit pas comme je veux,
j'avais lu la note sur enter et exit, rien à faire et d'ailleurs je ne comprends pas le but de ces évenements ?
enfin, j'ai bien utilisé le beforeupate (sans le tag car je veux garder la saisie pour la modifier); le contrôle et le message sont ok mais le focus passe au champs suivant !
D'aures idées ? Soyez en remerciés d'avance.

[Lynx92260]

C est impossible ...

Pour empecher il faut mettre la variable "Cancel = True" pour empecher la suite de saisie comme je l'ai fait dans l'exemple . Enleve les autres evenements "exit" ou "enter"

Cancel si true veut dire annuler la saisie par l'utilisateur sinon false c 'est ok

[AlainTech]

Enleve les autres evenements "exit" ou "enter"

Je ne vois pas pourquoi...

Un petit exemple (sans test de condition), en gardant le contenu et en le sélectionnant:

Code :

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

1
2
3
4
5
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Me.TextBox1.SelStart = 0
  Me.TextBox1.SelLength = Len(Me.TextBox1.Text)
  Cancel = True
End Sub

Mais, je l'admets, le résultat est identique dans l'événement BeforeUpdate.

[zanimox]

re
Merci, mais toujours pas résolu. Je vous joins un bout du code initial pour le champs n° de mois, par exemple :

Code :

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

1
2
3
Private Sub Mois_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = CtrlMois()
End Sub

Pas d'autre évenement de géré.

La fonction Ctrlmois() donne TRUE si il y a une erreur, FALSE si tout va bien, je la joins aussi :

Code :

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

1
2
3
4
5
6
7
8
9
Private Function CtrlMois()
CtrlMois = True
If Mois < 1 Or Mois > 12 Then
   x = message(1, 2, "")
   Mois.SetFocus
   Exit Function
End If
CtrlMois = False
End Function

n.b. : Si j'ai bien compris vos réponses, le setfocus est même inutile puisque j'utilise le BEFOREUPDATE avec TRUE dans le cas d'erreur ?

Ce que cela fait : contrôle OK mais le focus se retrouve sur le 1er bouton (valider), même pas sur le 2ème champs.

Cela ne peux pas être lié à la version 2000 d'excel ?

Merci d'avance.

[Lynx92260]

Cela me semble correcte la méthode le setfocus sert à rien à ce stade

Mais la function controlmois doit etre de type boolean.

Code :

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

Private Function CtrlMois() as Boolean

Mais cela devrait fonctionner quand meme en l'absence de type de valeur retourne par la fonction.

Donc il y a autre chose qui déclenche ces évenements il faut voir par le mode debug pas à pas .....

De plus le probleme du focus directe sur le bouton est du fait de l'ordre des tabulation des controls de l'usf. On peut voir par le menu Affichage Tabulation.

A défaut un extrait de ton fichier excel serait la bienvenue