deplacement horizontal dans un datagrigview avec la touche entrer

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour

Par défaut lorsque l'on appuie sur la touche "enter" lors de la saisie dans un datagridview cela fait passer a la ligne suivante.
J'aimerai que cela passe a la cellule suivante pour continuer la saisie.

J'ai fait ce code mais en mettant un point d'arret je ne passe pas dessus, quelqu'un aurait il une idée du pourquoi?
Code:

1 2 3 4 5 6 7 8 Private Sub DGV_Remise_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DGV_Remise.KeyDown If e.KeyCode = Keys.Enter Then DGV_Remise.CurrentCell = DGV_Remise.CurrentRow.Cells(DGV_Remise.CurrentCell.ColumnIndex + 1) End If End Sub
Merci d'avance

21/09/2011, 19h25
Pol63

essaye sur d'autres évènements (cell quelque chose peut etre)
21/09/2011, 19h54
gilles_906

merci de prendre le temps de me répondre.

Sur les evenements cell .... je passe dessus car le code s'arrete sur le point d'arret.

Mais je ne peux pas faire mon code dessus car sur entré ou sorti d'une cellule aller a la cellule suivante va me faire tourner en rond dans la procédure ;)

Je n'arrive pas a comprendre pourquoi la procédure

Code:

Private Sub DGV_Remise_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DGV_Remise.KeyDown

ne se fait pas sur appuie sur n'importe quel touche en ayant le curseur dans le DGV

Mon datagrigview n'a pas de datasource il est tout bete il sert pour la saisie.
21/09/2011, 20h05
Pol63

Citation:

Envoyé par gilles_906

Je n'arrive pas a comprendre pourquoi la procédure

Code:

Private Sub DGV_Remise_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DGV_Remise.KeyDown

ne se fait pas sur appuie sur n'importe quel touche en ayant le curseur dans le DGV

parce que le datagridview lors de l'entrée en mode saisie instancie un controle (selon le type la colonne un textbox, combobox ou autre) et le pose graphiquement au même endroit que la cellule
et c'est donc ce controle créé qui intercepte l'évènement keydown à la place du dgv
une fois la validation terminée, le dgv récupère la valeur du controle créé, la met dans sa cellule et détruit le controle

d'ailleurs tu peux te brancher sur l'évènement qui dit que le controle d'édition a été créé (cellenteredit ou un truc dans le genre), ajouter une liaison à l'évènement keydown de ce control à l'exécution (addhandler)
(il faut aussi penser à retirer le handler créé sous peine de fuite mémoire, via removehandler)

merci pour l'explication, mais j'aurais du rajouter débutant sur ma question :?

Alors j'ai compris pourquoi cela ne passait pas sur la procedure.

J'ai trouver CellEndEdit qui doit surement etre la fin de l'édition du control instancié par le DGV.

D'aprés ce que j'ai compris tu me dis de renvoyer a la procedure keydown sur cellEndEdit?

du genre:
Code:

1 2 3 Private Sub DGV_Remise_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_Remise.CellEndEdit DataGridView1_KeyDown(sender, e) End Sub
Le soucis est que e n'est pas accepté j'ai cette erreur:

Citation:

Impossible de convertir une valeur de type 'System.Windows.Forms.DataGridViewCellEventArgs' en 'System.Windows.Forms.KeyEventArgs'.

De plus je n'ai compris le addhandler pourrais tu m'en dire un peu plus dessus.

Merci d'avance

21/09/2011, 20h49
Pol63

non je n'ai pas dit ca
par contre cellendedit doit suffire, essaye de déplacer la cellule active dans cet évènement

ben j'ai cette erreur l'evenement ne gere pas les touches ou alors c'est moi qui est loupé un truc :?
Code:

1 2 3 4 5 6 7 Private Sub DGV_Remise_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_Remise.CellEndEdit If e.KeyCode = Keys.Enter Then DGV_Remise.CurrentCell = DGV_Remise.CurrentRow.Cells(DGV_Remise.CurrentCell.ColumnIndex + 1) End If End Sub
j'ai cette erreur

Citation:

'KeyCode' n'est pas un membre de 'System.Windows.Forms.DataGridViewCellEventArgs'

21/09/2011, 21h14
Pol63

en effet
mais tu n'as pas besoin de tester la touche, end edit est appelé lors de la fin de saisie, donc soit entrée, soit un clic en dehors
donc tu peux directement setter currentcell
21/09/2011, 21h20
gilles_906

Arf j'y ai bien cru :(

Citation:

L'opération n'est pas valide, car elle se traduit par un appel réentrant à la fonction SetCurrentCellAddressCore.

je pense que le fait de passer a la cellule suivante ouvre et referme le control en mode edition, du coup ca tourne en rond.

Une autre idée? ou je n'ai peut etre pas la bonne facon d'aborder la chose?
21/09/2011, 21h41
Pol63

sinon tu peux dire à l'utilisateur de faire flèche droite pour valider au lieu d'entrée, et ca fonctionne :D
21/09/2011, 21h44
gilles_906

oui ou Tabulation ca fonctionne aussi :)
m'enfin c'est pas super surtout que c'est l'utilisatrice qui m'a demandé de faire ça.

j'ai fini par trouver :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private _endedit As Boolean Private Sub DataGridView1_CellEndEdit(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit _endedit = True End Sub Private Sub DataGridView1_SelectionChanged(sender As Object, e As System.EventArgs) Handles DataGridView1.SelectionChanged If _endedit Then _endedit = False DataGridView1.CurrentCell = DataGridView1.Rows(DataGridView1.CurrentRow.Index - 1).Cells(DataGridView1.CurrentCell.ColumnIndex + 1) End If End Sub
c'est pas ce qu'il y a de plus propre, mais je ne pense pas qu'il y a plus propre et qui fonctionne :D

je te laisse gérer les dépassements (si on est à droite et qu'on demande à mettre currentcell sur column+1 ca dépasse le tableau et ca va planter, donc il faut tester avant de faire +1, éventuellement aller en début de ligne suivante)

Super merci beaucoup
Bonne idée le flag qui empêche de tourner en rond :P
je vais gérer le dépassement.

Edit 1: ça marche impec je gère le dépassement en testant la dernière colonne
Il y a juste un hic c'est qu'il ne faut plus toucher a la sourie ni a la touche Tab ou a la flèche droite :mouarf: sinon => dépassement

Edit 2: Voila le code que j'ai fais pour gérer la sourie (sur le même principe du flag), pour la touche Tab, elle est géré par le try catch :oops:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
    Private _endedit, _LeClick As Boolean
    Private Sub DGV_Remise_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DGV_Remise.SelectionChanged
 
        If _endedit And _LeClick Then
            _endedit = False
            _LeClick = True
            If DGV_Remise.CurrentCell.ColumnIndex = 4 Then
                DGV_Remise.CurrentCell = DGV_Remise.Rows(DGV_Remise.CurrentRow.Index).Cells(0)
            Else
 
                Try
                    DGV_Remise.CurrentCell = DGV_Remise.Rows(DGV_Remise.CurrentRow.Index - 1).Cells(DGV_Remise.CurrentCell.ColumnIndex + 1)
                Catch
                End Try
            End If
        End If
    End Sub
    Private Sub DGV_Remise_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_Remise.CellEndEdit
        _endedit = True
    End Sub
    Private Sub DGV_Remise_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DGV_Remise.MouseDown
        _LeClick = False
    End Sub
    Private Sub DGV_Remise_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DGV_Remise.MouseUp
        _LeClick = True
    End Sub

j'avais pas testé tous les modes de sortie, et en effet c'est pas terrible avec la souris ou autre :D

voici donc un autre code qui marche beaucoup mieux :
Code:

1 2 3 4 5 6 7 8 9 10 Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, keyData As System.Windows.Forms.Keys) As Boolean If keyData = Keys.Enter AndAlso Me.DataGridView1.IsCurrentCellInEditMode Then Me.DataGridView1.EndEdit() DataGridView1.CurrentCell = DataGridView1.CurrentRow.Cells(DataGridView1.CurrentCell.ColumnIndex + 1) Return True Else Return MyBase.ProcessCmdKey(msg, keyData) End If End Function
à mettre sur le form
Overrides veut dire qu'on remplace la fonction d'origine, cette fonction est celle qui s'occupe de récupérer les évènements clavier (avant tout le monde) et surement de l'envoyer au bon control

donc si on appuit sur entree et que la currentcell est en mode edition, alors on dit qu'on termine l'édition (.endedit)
la cellule active ne descend même pas dans ce cas car le control n'est pas averti qu'on a fait entrée (et ne fait donc endedit lui même), donc il y a juste à faire +1 à droite
et on return true
dans le cas contraire :
Return MyBase.ProcessCmdKey(msg, keyData)
calà signifie qu'on veut appeler le code de base de la fonction, qui va renvoyer la touche frappée où il faut
dans le if, vu qu'on appelle pas MyBase.ProcessCmdKey on a inhibé le code d'origine

Bonjour,
j'avais ce bout de code dans mes papiers (je ne sais qui en est l'auteur).
Il semble gérer les passages à la ligne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
    Dim row As Integer
    Dim column As Integer
    Dim modeEdition As Boolean
 
    Private Sub DGV_Remise_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DGV_Remise.SelectionChanged
        If modeEdition = True Then
            row = DGV_Remise.CurrentCell.RowIndex
            column = DGV_Remise.CurrentCell.ColumnIndex
            column += 1
            If column = DGV_Remise.ColumnCount Then
                row += 1
                column = 0
            End If
            DGV_Remise.CurrentCell = DGV_Remise.Rows(row - 1).Cells(column)
            modeEdition = False
        End If
    End Sub
 
    Private Sub DGV_Remise_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DGV_Remise.EditingControlShowing
        modeEdition = True
    End Sub
 
    Private Sub DGV_Remise_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DGV_Remise.KeyDown
 
        If e.KeyCode = Keys.Enter Then
 
            ' Lorsque l'on valide une cellule en mode NON édition, on passe à la cellule suivante sur la même ligne, 
            ' ou à la 1ère cellule de la ligne suivante si la cellule est la dernière de la ligne en cours.
            ' Avec création d'une nouvelle ligne si cette ligne est la dernière.
            row = DGV_Remise.CurrentCell.RowIndex
            column = DGV_Remise.CurrentCell.ColumnIndex
            column += 1
            If column = DGV_Remise.ColumnCount Then
                row += 1
                If row = DGV_Remise.Rows.Count Then
                    If row = DGV_Remise.RowCount Then
                        If DGV_Remise.DataSource IsNot Nothing Then
                            'bindingSource1.AddNew() '(Indiquer le nom du BindingSource)
                        Else
                            DGV_Remise.Rows.Add()
                        End If
                    End If
                End If
                column = 0
            End If
 
            DGV_Remise.CurrentCell = DGV_Remise.Rows(row).Cells(column)
 
            ' Arrivant en fin de ligne, par defaut Enter crée une nouvelle ligne, mais vu qu'elle a déjà été
            ' créée par programmation, nous indiquons que l'événement a été géré.
            e.Handled = True
        End If
    End Sub

Excellant Pol63 du grand art :ccool:

Joli code et qui marche très bien.
Merci beaucoup pour le coup de main.

chrismonoye
Merci d'avoir pris le temps de répondre.
Je n'ai pas testé ton code, mais à première vu cela ne va pas fonctionner en mode édition (c'est le mode dans lequel on est, lorsque l'on saisie quelque chose) voir plus haut dans la réponse de Pol63 le pourquoi.

J'ai également bien peur que les clics de sourie crée des dépassements.

Voila comment je gère le passage à la ligne sur la colonne 4 (qui n'est pas la dernière d’ailleurs, mais la cinquième est optionnel pour la saisie) et sur la colonne 5
Vu que j'autorise l'ajout de lignes, le DGV à toujours la ligne d'ajout qui est visible (plus pratique pour la première saisie), on peut donc ajouter quand on veut une nouvelle ligne).
Par contre lorsque l'on arrive a la colonne 4 l'appuie sur enter passe directement sur la ligne de création, idem si on a saisie quelque chose dans la colonne 5.
Code:

1 2 3 4 5 6 7 8 9 10 11 If keyData = Keys.Enter AndAlso DGV_Remise.IsCurrentCellInEditMode Then DGV_Remise.EndEdit() If DGV_Remise.CurrentCell.ColumnIndex = 4 Or DGV_Remise.CurrentCell.ColumnIndex = 5 Then DGV_Remise.CurrentCell = DGV_Remise.Rows(DGV_Remise.CurrentRow.Index + 1).Cells(0) Else DGV_Remise.CurrentCell = DGV_Remise.CurrentRow.Cells(DGV_Remise.CurrentCell.ColumnIndex + 1) End If Return True Else Return MyBase.ProcessCmdKey(msg, keyData) End If

Bonjour,
bien que cette discussion soit clôturée résolue, j'ai un peu poursuivi.
Ce qu'il manque au code que j'ai proposé est de connaitre la touche appuyée avant tout.
C'est fait avec ProcessCmdKey (merci Pol)
Pour ceux que ça intéresse, voici un code qui gère la touche Enter dans un DGV, pour passer à la cellule de droite et si c'est la dernière de la ligne, passer à la ligne suivante.
Normalement (dans l'attente de tests plus poussés) :
- il fonctionne que la cellule soit en mode édition ou non (cellule type TextBox).
C'est intéressant pour des colonnes facultatives que l'on ne veut pas renseigner,
on avance toujours, dans le même réflexe avec la touche Enter, bien pratique.
- Il a l'air de bien supporter les touches Tab et Flèches,
ainsi que l'emploi de la souris (cellule active en mode édition).

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
    ' INTERFACE
    Private Sub DGV_Remise_CellValidating(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellValidatingEventArgs) Handles DGV_Remise.CellValidating
 
        IfCellModeEdit(DGV_Remise, e)
 
    End Sub
 
    Private Sub DGV_Remise_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DGV_Remise.KeyDown
 
        IfDgvKeyDown(DGV_Remise, Nothing, e)
 
    End Sub
 
 
    ' METIER
    Private row As Integer
    Private column As Integer
    Private keyIsEnter As Boolean = False
 
    Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean
 
        If keyData = Keys.Enter Then
            keyIsEnter = True
        Else
            keyIsEnter = False
            Return MyBase.ProcessCmdKey(msg, keyData)
        End If
 
    End Function
 
    Private Sub IfCellModeEdit(ByVal DGV As DataGridView, ByVal cellValidEvent As DataGridViewCellValidatingEventArgs)
 
        If DGV.IsCurrentCellInEditMode And keyIsEnter = True Then
            DGV.EndEdit()
            keyIsEnter = False
            row = DGV.CurrentCell.RowIndex
            column = DGV.CurrentCell.ColumnIndex
            column += 1
            If column = DGV.ColumnCount Then
                row += 1
                column = 0
            End If
            DGV.CurrentCell = DGV.Rows(row).Cells(column)
            cellValidEvent.Cancel = True
        End If
 
    End Sub
 
    Private Sub IfDgvKeyDown(ByVal DGV As DataGridView, ByVal BdgSource As BindingSource, ByVal keyEvent As System.Windows.Forms.KeyEventArgs)
 
        If keyEvent.KeyCode = Keys.Enter Then
            row = DGV.CurrentCell.RowIndex
            column = DGV.CurrentCell.ColumnIndex
            column += 1
            If column = DGV.ColumnCount Then
                row += 1
                If row = DGV.Rows.Count Then
                    If row = DGV.RowCount Then
                        If DGV.DataSource IsNot Nothing Then
                            BdgSource.AddNew()
                        Else
                            DGV.Rows.Add()
                        End If
                    End If
                End If
                column = 0
            End If
 
            DGV.CurrentCell = DGV.Rows(row).Cells(column)
            keyEvent.Handled = True
        End If
 
    End Sub

07/10/2011, 22h39
gilles_906

Bonsoir

J'ai enlevé le résolu afin de résoudre un problème que je rencontre concernant le code.

Tout d'abord merci a chrismonoye d'avoir continué a chercher mais je t'avoue ne pas avoir réussi a faire marcher ton code. En effet la touche enter ne fait plus rien elle ne change pas de curseur de place, car DGV_Remise_KeyDown et DGV_Remise_CellValidating ne sont pas appelé.

Pour ce qui est du code de Pol63 cela fonctionne bien sauf que dans le cas d'une combobox je me retrouve avec un champ vide une fois avoir appuyé sur "enter" dans plusieurs cas.

Exemple:
Dans la liste de la combobox les valeurs
Bonjour
Bienvenue
Bravo
coucou
cuicui

la combobox se trouve en deuxieme colonne dans le datagridview par exemple qui contient en première colonne un champ texte.

Utilisation:
je suis dans la premiere cellule (le champ texte) j'appuie sur 3 puis entrer => le 3 est dans la premiere cellule et le curseur passe a la deuxieme la combobox (tout va bien)

j'appuie sur la lettre b une liste s'ouvre en affichant
Bonjour
Bienvenue
Bravo
je descend avec la fleche bas pour aller sur Bienvenue et j'appuie sur "enter" => le curseur passe bien a la cellule suivante mais ma combobox reste vide

Ceci ne se produit pas forcement la premiere fois, mais plutot si l'on reviens dans la colonne de la combobox et que l'on change la valeur (d’ailleurs la cellule ne reste pas forcement vide mais garde l'ancienne valeur.

Deuxieme exemple:
Une fois la premiere ligne remplie on passe a la deuxieme

on rentre la valeur 4 dans la premiere cellule puis appuie sur enter => cela passe a la cellule combobox en assignant déja ce qui était dans la ligne précendente (ce n'est pas génant) mais si on appuie encore sur "enter" la cellule de la combobox reste vide. :?

J'espere que vous avez compris :oops:

En fait j'ai l'impression que le control combobox qui est généré par le datagridview génére un deuxieme control lorsqu'il execute la requete selection du a l'entré de la premiere lettre. l'affichage de la valeur choisi se fait bien, mais etant donné que l'on a fait:

Code:

Return True

dans la procedure ProcessCmdKey il doit manquer l'assignation de la valeur a la cellule du datagridview.

Une idée? une piste a me donner?

Merci d'avance
07/10/2011, 23h40
Graffito

Sans vouloir te décourager, malgré 2 réécritures des traitement des saisie dans les DGV (avec nécessité d'actions lors des sélections/modifications de lignes), on a finalement dans la 3ème réécriture totalement abandonné la saisie directe dans le DGV au profit de boutons [+] [-] et [update] qui lançent la saisie/modification du contenu d'une row dans un control séparé (form dédiée ou DGV à une seule ligne).
08/10/2011, 00h01
gilles_906

Graffito, ben effectivement cela ne m'encourage pas trop, surtout que je suis bien loin d'etre à ton niveau.
M'enfin je voie bien que j'y suis presque et qu'il ne manque pas grand chose.

Si j'arrive a capter ce que contient le control créer par le DGV quand la liste de la CBX s'ouvre je pense que c'est gagné.

Voir 40 message(s) de cette discussion en une page