Discussion :

[js8bleu]

Bonjour à tous,

J'ai un texte box (txtarticle) à partir duquel lorsque je commence à saisir un article qui se trouve dans ma table article m'affiche un flexgrid (msfarticle) avec comme contenu tous les articles commençant par les lettres saisies dans mon textbox. Tout marche parfaitement. Maintenant mon problème est que j'aimerai utiliser les touches de directions pour sélectionner l'article qui m'intéresse dans mon flexgrid et une fois dessus, taper sur la touche entrée pour que le libellé de ce dernier aille dans mon textbox. Merci d'avance.

NB : Avec keyup je peux déclencher l'évènement mais comment faire pour amener le curseur sur la 1ère cellule de mon MSFlexgrid?

Cordialement

[ProgElecT]

mais comment faire pour amener le curseur sur la 1ère cellule de mon MSFlexgrid?

Dans un MSFlexgrid, le deplacement par les flèches de direction est automatique.
Je suppose que tu veux par cette fonction automatique atteindre une colonne et/ou une ligne qui est declaré comme faisant partie de FixedCols et/ou FixedRows. Si s’est le cas, tu ne pouras pas l’atteindre par une commande dans ton code, il te faux diminuer le nombre de FixedCols et/ou FixedRows.

taper sur la touche entrée pour que le libellé de ce dernier aille dans mon textbox.

Mes ton Form, propriété KeyPreview = True (en design, car non accessible quand le projet ou programme exécutable est en cours)
Petite demo:

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
Option Explicit
 
Private Sub Form_Load()
Dim T As Integer, U As Integer
'juste pour remplir le grid afin de demo
For T = 1 To MSFlexGrid1.Rows - 1
 For U = 1 To MSFlexGrid1.Cols - 1
  MSFlexGrid1.TextMatrix(T, U) = CStr(T * U)
 Next U
Next T
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If Me.ActiveControl.Name = "MSFlexGrid1" Then
 If KeyAscii = 13 Then
  'c'est ici que l'on récupère le contenu de la cellule du MSFlexGrid
  Text1.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, MSFlexGrid1.Col)
 End If
End If
End Sub

[js8bleu]

Bonjour et Merci ProgElecT pour ton aide.

En effet, je te remercie beaucoup pour ton code qui marche à merveille . Concernant les touches de direction aussi je pense que c'est réglé car j'ai mis comme déclaration de txtproduit à keyup et j'y ai mis msfarticle.setfocus et comme propriété SelectionMode de msfarticle à libre. Comme par magie je peux utiliser les touches de direction. Merci pour tout et excellente soirée.

Cordialement