Discussion :

[kalocou]

Bonjour à toutes, à tous et surtout à "unparia" ;-)

après avoir cherché et recherché je m'en remets à votre science !
voila : un userform avec 5 textbox toutes simples (tb1, tb2, tb3 ,,,)
l'ordre de tabulation prévu est respecté, les alertes fonctionnent, tout baigne Sauf !
sauf que si l'utilisateur place le point d'insertion un ou deux controles plus loin on peut laisser des cases vides.
bien sur on pourrait faire un controle avant la validation finale mais ne peut on pas plus simplement prévoir d'empecher ce comportement et n'utiliser que l'avancement par la touche "entrée"?
Merci de votre attention

j'ai essayé ce que m'a suggéré jerome vaussenat mais ca ne fonctionne que si avant le déplacement de la souris le focus est détenu par celui auquel la procédure mouse est censée le rendre.
j'espère avoir été clair.
merci pour votre aide

[unparia]

Bonjour
Heureux de te voir dans la section adéquate. Mets-la maintenant en mémoire.
Bon.
Voici un truc :
Imaginons que tes textboxes s'appellent toto, titi et tata et qu'elles doivent être saisies dans cet ordre là, aucune ne devant l'être si les précédentes sont vides.
code dans userform :

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
17
18
19
Dim mesobligees
Private Sub UserForm_Activate()
  mesobligees = Array(toto, titi, tata)
End Sub
Private Sub coucou(t As MSForms.TextBox)
  For i = 0 To UBound(mesobligees)
    If mesobligees(i).Name <> t.Name Then
      If mesobligees(i).Text = "" Then mesobligees(i).SetFocus: Exit For
    Else
      Exit For
    End If
  Next
End Sub
Private Sub titi_enter()
  coucou ActiveControl
End Sub
Private Sub tata_enter()
  coucou ActiveControl
End Sub

Note que je n'ai pas besoin de traiter l'évènement de la textbox toto (c'est évident)
Voilà voilà ...

[kalocou]

merci à toi unparia
je suis en train d'essayer de comprendre ton mécanisme (ca prends forme petit à petit)

pour un paria
apres avoir adapté ta formule a mon usf ca coince sur la ligne :If mesobligees(i).Text = "" Then mesobligees(i).SetFocus: Exit For
ca me dit erreur non répertoriée !
peut etre que ca marche avec If mesobligees(i).Text = "" Then mesobligees(i-1).SetFocus: Exit For ?

[kalocou]

effectivement il fallait rajouter -1!
un oubli qui n'enlève rien à mes remerciements
et je clique sur résolu