Discussion :

[gebraq]

Bonjour à tous,

Voici mon problème :

Je fais de l'encodage dans une colonne précise d'un datagrid et je fais un test de valeur de cette colonne qui ne peut dépasser un maximum ... Si ce maximum est dépassé, je souhaite garder le focus sur la même colonne dans la même ligne ... pour empêcher la saisie de l'info suivante ....
Voici les code utilisé :

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
20
21
22
 Private Sub dgvPointsTmp3_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvPointsTmp3.CellValueChanged
        Dim Test As Integer = dgvPointsTmp3.Rows(e.RowIndex).Cells(8).Value
        Dim Max As Integer = dgvPointsTmp3.Rows(e.RowIndex).Cells(9).Value
 
        Select Case Test
            Case 0
                Dim result As DialogResult = MessageBox.Show("Eleve absent ?", "Attention !", MessageBoxButtons.YesNo)
                If result = DialogResult.Yes Then
                    dgvPointsTmp3.Rows(e.RowIndex).Cells(10).Value = True
                    Exit Sub
                Else
                    Exit Select
                End If
                dgvPointsTmp3.Update()
            Case > Max
                MessageBox.Show("Cote erronée > '" & Max & "'", "Attention !")
                Dim rowNumber As Integer = (e.RowIndex + 1)
                Dim cellNumber As Integer = 8
                dgvPointsTmp3.CurrentCell = dgvPointsTmp3(cellNumber, rowNumber)
                Exit Select
        End Select
    End Sub

En cas de dépassement du maximum, après affichage de la messagebox, le focus est donné à la bonne cellule mais dans la ligne suivante ...

Quelqu'un a-t'il une idée pour résoudre le problème ???

D'avance, merci

[m4k-Hurrican]

Bonjour,
Euh... Peut-être parce que tu as mis cette ligne

Code :

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

Dim rowNumber As Integer = (e.RowIndex + 1)

[popo]

A priori, tu veux valider la valeur de la cellule et garder le focus si cette valeur n'est pas valide.

La grille possède un événement pour ça.
https://docs.microsoft.com/fr-fr/dot...tframework-4.8

puis

Code :

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

e.Cancel = true;

[gebraq]

Bonjour,
Euh... Peut-être parce que tu as mis cette ligne

Code :

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

Dim rowNumber As Integer = (e.RowIndex + 1)

Merci de la réponse mais cela ne solutionne pas mon problème de maintien du pointeur dans la cellule testée ...

Par défaut, e.Rowindex de la première ligne renvoie 0 et que j'utilise cette valeur ou cette valeur +1 le pointeur se déplace toujours sur la même cellule, row suivante ...

[excalybur]

... Si ce maximum est dépassé, je souhaite garder le focus sur la même colonne dans la même ligne ... pour empêcher la saisie de l'info suivante ....

Bonjour,

Si j'ai bien compris ton problème : Il me semble qu'il te faut créer un algorithme de test pour vérifier si tu sort de ta matrice de ton grid. Si c'est le cas il faut affecter d'office un valeur ad'hoc 'valeur maximum bordure' . Du coup ta case 'butoir' aura le focus.

Si cela passe quand même à la ligne suivante test avec une valeur de 'butoir' moins 1.

Si cela peut t'aider.

[m4k-Hurrican]

Par défaut, e.Rowindex de la première ligne renvoie 0 et que j'utilise cette valeur ou cette valeur +1 le pointeur se déplace toujours sur la même cellule, row suivante ...

Pourtant, c'est e.RowIndex qu'il faut que tu utilises, et il faut aussi que tu entres en édition sur la cellule concernée juste après avoir pointé dessus, en utilisant

Code :

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

dgvPointsTmp3.BeginEdit(True)

Par ailleurs, pointer sur une colonne avec son n° n'est pas forcément une bonne chose (réorganisation de colonnes par l'utilisateur ou le développeur, insertion de colonnes, etc...).
Utilises plutôt le nom de la colonne, dans ce genre là :

Code :

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

dgvPointsTmp3.CurrentCell = dgvPointsTmp3.Item("nom_De_La_Colonne", e.RowIndex)

Maintenant, cette méthode est surtout utilisée lorsqu'on désire placer le curseur sur une cellule différente (cas de champs liés).
Dans le cas d'une validation simple de valeur, comme l'a indiqué Popo, il vaut peut être mieux utiliser les évènements dédiés à la validation.

[gebraq]

A priori, tu veux valider la valeur de la cellule et garder le focus si cette valeur n'est pas valide.

La grille possède un événement pour ça.
https://docs.microsoft.com/fr-fr/dot...tframework-4.8

puis

Code :

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

e.Cancel = true;

Bonjour Popo,
suite à votre conseil, j'ai gambergé sur "datagridview.cellvalidating" mais sans succès : le pointeur d'écriture se déplace toujours sur la row suivante ...
Voici le code utilisé :

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
 
  Private Sub dgvPointsTmp3_CellValidating(sender As Object, e As DataGridViewCellValidatingEventArgs) Handles dgvPointsTmp3.CellValidating
 
        Dim Max As String = dgvPointsTmp3.Rows(e.RowIndex).Cells(9).Value.ToString
        Dim rownuber1 As Integer = (e.RowIndex)
 
        If dgvPointsTmp3.CurrentCell.ColumnIndex = 8 Then
 
            If dgvPointsTmp3.Rows(rownuber1).Cells(8).FormattedValue > Max Then
                MessageBox.Show(dgvPointsTmp3.Rows(e.RowIndex).ErrorText = "La cotation dépasse le maximum")
 
                e.Cancel = True
            End If
        End If
    End Sub

plus images du résultat et du debugging





Dans ce cas, le test "If dgvPointsTmp3.Rows(rownuber1).Cells(8).FormattedValue" n'est jamais validé !!!
Une autre idée ???

[m4k-Hurrican]

Il faut que tu utilises les valeurs transmises dans l'évènement, pas d'autres valeurs déjà.

Ton code :

Code :

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

If dgvPointsTmp3.CurrentCell.ColumnIndex = 8 Then

Ne devrait pas utiliser dgvPointsTmp3.CurrentCell.ColumnIndex, mais simplement e.ColumnIndex

[gebraq]

Il faut que tu utilises les valeurs transmises dans l'évènement, pas d'autres valeurs déjà.

Ton code :

Code :

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

If dgvPointsTmp3.CurrentCell.ColumnIndex = 8 Then

Ne devrait pas utiliser dgvPointsTmp3.CurrentCell.ColumnIndex, mais simplement e.ColumnIndex

Merci à tous pour vos conseils ...
J'ai trouvé la solution et voici le code utilisé :

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
Private Sub dgvPointsTmp3_CellValidating(sender As Object, e As DataGridViewCellValidatingEventArgs) Handles dgvPointsTmp3.CellValidating
 
        Dim Max As String = dgvPointsTmp3.Rows(e.RowIndex).Cells(9).Value.ToString
        Dim rownuber1 As Integer = (e.RowIndex)
 
        If dgvPointsTmp3.CurrentCell.ColumnIndex = 8 Then
 
            If dgvPointsTmp3.Rows(rownuber1).Cells(8).EditedFormattedValue > Max Then
                MessageBox.Show(dgvPointsTmp3.Rows(e.RowIndex).ErrorText = "La cotation dépasse le maximum")
 
                e.Cancel = True
            End If
        End If
    End Sub

En fait c'était évident : seul "EditedFormatedValue" renvoie la dernière valeur saisie dans la cellule testée ... (Évident mon cher Watson !!!)

[popo]

En fait c'était évident : seul "EditedFormatedValue" renvoie la dernière valeur saisie dans la cellule testée ... (Évident mon cher Watson !!!)

En fait non,
Mon cher Watson, m4k-Hurrican t'as déjà fait cette remarque que je me contenterai de citer :

Il faut que tu utilises les valeurs transmises dans l'évènement, pas d'autres valeurs déjà.

Et si tu regardes de plus près l'objet transmis dans l'événement, il possède une propriété FormattedValue, qui renvoie la valeur à valider.
https://docs.microsoft.com/fr-fr/dot...formattedvalue

Obtient le contenu mis en forme de la cellule à valider

Donc simplement

Code :

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

1
2
3
If e.FormattedValue > Max Then
   e.Cancel = True
End If

[gebraq]

En fait non,
Mon cher Watson, m4k-Hurrican t'as déjà fait cette remarque que je me contenterai de citer :


Et si tu regardes de plus près l'objet transmis dans l'événement, il possède une propriété FormattedValue, qui renvoie la valeur à valider.
https://docs.microsoft.com/fr-fr/dot...formattedvalue


Donc simplement

Code :

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

1
2
3
If e.FormattedValue > Max Then
   e.Cancel = True
End If

Résolu grâce à vos précieux conseils.
Grand merci à vous tous !