Saisie de Mots_Croisés [Résolu]

[Chrysostome]

Salut à tous,
afin de faire un masque de saisie pour Mots-Croisés, j'ai besoin de passer sur la case suivante après saisie d'une lettre, mais serait-il possible d'aller sur le contrôle suivant en passant par le Control.TabIndex ou autre mais en annulant la liste des champs.
Je suis preneur d'une autre solution, sachant que je n'ai pas réussi avec sendkeys "{TAB}", ni avec KeyPress, KeyDown, KeyUp, etc...
Tout le tableau est balayé, le focus ne s'arrête que sur la dernière case, qui n'a pas la fonction "suivant".

Merci de vos solutions.

[User]

Salut,

et le :

Code :

Me.TonControle.setfocus

Pourrait t'aider ?

[jpcheck]

Salut,

est-ce que la methode SetFocus repond a ta question ?

issue de l'aide en ligne

Example
The following example uses the SetFocus method to move the focus to an EmployeeID text box on an Employees form:

Code :

Forms!Employees!EmployeeID.SetFocus

soit en cassoulet

Exemple
Lexmple suivant utilise la methode SetFocus pour mettre le focus usr la Textbox EmployeeID du formulaire Employees :

Code :

Forms!Employees!EmployeeID.SetFocus

[Chrysostome]

Merci de ta réponse, mais mon problème est que j'ai 400 cases (20 x 20). Et j'aimerais autant de manière esthétique que pratique, ne pas faire A1.keyUp
A2.setfocus
Puis A2.KeyPress , A3.Setfocus.

Merci de t'être penché sur mon problème.

[jpcheck]

Salut,

tu peux envisager une fonction Generique a laquelle tu fournis le nom de ton control, et tu lui appliques le set focus "standard"

Exemple de code mis directement dans ton form

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
' je pars ici d'un exemple de control avec un nom Lettre_Chiffre allant de A_1 a O_15 (grille de scrabble), je vais de A1 en haut a gauche, puis B1, jusqu'a O15
Sub SpecialSetFocus(strControlName As String)
Dim Lettre As String
Dim Nombre As Integer
Lettre = Cstr(Split(strControlName,"_")(0))
Nombre= CInt(Split(strControlName,"_")(1))
 
'cas particulier derniere cellule O_15, repart en A1
If Nombre = 15 and Lettre = "O" Then
   Nombre = 1
   Lettre = "A"
Else
   If Nombre = 15 then 'je descends verticalement, en repartant a A
      Nombre = Nombre + 1
      Lettre = "A"
   Else 'je me deplace horizontalement
      Lettre = Chr(Asc(Lettre)+1)
      Nombre = Nombre
   End If
End If
Me.Controls(Lettre & "_" & Nombre).SetFocus
End Sub

le code dans ton evenement

Code :

SpecialSetFocus Screen.ActiveControl.Name

[Chrysostome]

Juste une petite adaptation, et hop, c'est parti mon ...

Merci encore.

[jpcheck]

Si la solution apportee te convient et la suite de ton sujet est toute trouvee, merci de nous l'indiquer en cliquant sur