Discussion :

[Terminator]

Bonjour à tous:

J'ai mis un flexgrid et tout va bien

Mais lorsque l'utilisateur appuye sur une case (une cellule), il peut entrer des valeurs. Puis lorsque il appuye sur ENTER, il y a un bruit qui apparait (comme pour les megbox) et ma selection va sur un combo qui n'appartient pas au flex, mais à la form.

Je voudrais, lorsque l'utilisateur entre des données, lorsqu'il appuye sur ENTER, la selection passe directement à la cellule d'en bas.

Comment faire?

[ouskel'n'or]

Tu n'a pas une propriété qui permette de fixer le déplacement droite ou bas (je ne connais rien aux flexgrid alors si je dis un bêêêtise... je me pardonne)

A+

[méphistopheles]

quoi qu'il en soit: code de la touche enter= 13 (keyaskii et keycode)


pareil que ouskelnor pour les flexgrids

salut

[leroissejp]

Bonsoir,
Vois si ce code peux t'aider ?

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
Dim i
For i = 1 To MSFlexGrid1.RowSel + 1
MSFlexGrid1.RowSel = i
Next i
End If
End Sub

jpleroisse

[Terminator]

Macthe pas trop le code

Ou alors je l'utilise mal???

Faut rien cganger au code ou alors faut mofifier?

[AlainTech]

Macthe pas trop le code

... ne nous dit absolument rien sur ce qui se passe.

Message d'erreur?
Si oui, lequel et à quelle ligne?

Quel nom as-tu donné à ta FlexGrid?
Où as-tu mis le code?

Aide-nous un peu pour qu'on puisse t'aider.

[zazaraignée]

Salut

Code :

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

1
2
3
4
5
6
Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        KeyAscii = 0
        MSFlexGrid1.Row = MSFlexGrid1.RowSel + 1
    End If
End Sub

Se code est dans le plus simple mais ne tient pas compte des limites du FlexGrid. Faudra ajouter un test sur la position actuelle de la cellule sélectionnée pour ne pas déborder.

[méphistopheles]

Faut rien cganger au code ou alors faut mofifier?

ben faut quand même remplacer "MSFlexGrid1" par le nom de ta flexgrid

sinon, il faut peut-être ajouter une limite histoire d'éviter que ton code descende à une cellule inexistante ("erreur 14" )

salut

[Terminator]

Désolé de répondre si tardivement

J'ai aucun message d'erreur, juste que lorsque j'appuye sur enter (meme avec le code donné), rien ne se passe, ou plutot si, la meme chose que ce que j'avais avant (cad bruit puis la selection se dirige vers une combo que j'ai dans mon form!!!!

J'ai bien changé le nom pour mettre mon flexgrid (appelé "flex")

Code :

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

1
2
3
4
5
6
7
8
Private Sub flex_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
Dim i
For i = 1 To flex.RowSel + 1
flex.RowSel = i
Next i
End If
End Sub

[zazaraignée]

Salut

Ce doit être une question de préférences dans le système... Chez moi, ton code ne fait qu'agrandir la sélection vers le bas... Est-ce bien ce que tu cherches à faire?

[edam]

par hazar, tu n'as un code de type

Code :

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

if keyascii=13 then cobo.setfocus

ou quelque chose de ce genre

[zazaraignée]

Salut

Personnellement, je ne comprends pas l'utilité de la boucle For Next... J'ai fait ceci qui marche très bien:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub flex_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        KeyAscii = 0
        If flex.RowSel = flex.Rows - 1 Then
            flex.Row = 1  'ou 0 (zéro) selon les FixedRows
          Else
            flex.Row = flex.RowSel + 1
        End If
      Else
        flex.Text = flex.Text & Chr(KeyAscii)
    End If
End Sub

[ridan]

Jette aussi un coup d'oeil sur cette source : http://vb.developpez.com/sources/?pa...ridsaisissable

[Terminator]

Au fait, ce que je cherche à faire:

J'ai des cellules (une seule de mes colonnes est editable, cad l'utilisateur ne peut entrer des valeurs que pour une seule colonne).
Lorsque l'utilisateur clique sur la premiere cellule (qui se trouve sur la ligne 1 car la ligne zéro est fixe), il entre un nombre.
Ensuite, je souhaite lors de il appuye sur touche entrée, la selection descende (cad que le curseur doit aller sur la cellule juste en dessous).

Les derniers codes seront testés ce soir, car pour l'instant je n'ai pas mon travail avec moi

A bientot