Discussion :

[vilcoy]

Bonjour,

J'ai une datagridview que je remplis à la main de cette façon :

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
23
24
25
 
'Création des colonnes
dgvCoefMarge.Columns.Add("margeid", "Id")
dgvCoefMarge.Columns("margeid").Visible = False
dgvCoefMarge.Columns.Add("code", "Code")
dgvCoefMarge.Columns("code").ReadOnly = True
dgvCoefMarge.Columns.Add("libelle", "Libellé")
dgvCoefMarge.Columns("libelle").ReadOnly = True
dgvCoefMarge.Columns.Add("taux", "Taux")
dgvCoefMarge.Columns("taux").ReadOnly = True
dgvCoefMarge.Columns.Add("coef", "Coefficient")
 
'Ajout des lignes depuis un datatable "donnees"
Dim ligneCoef as Datarow
For Each ligneCoef In donnees.Rows
            dgvCoefMarge.Rows.Add()
            Dim derniere As Integer = dgvCoefMarge.Rows.Count - 1
            dgvCoefMarge.Item(0, derniere).Value = ligneCoef.Item("margeid")
            dgvCoefMarge.Item(1, derniere).Value = ligneCoef.Item("codeactanal2")
            dgvCoefMarge.Item(2, derniere).Value = ligneCoef.Item("codeactlibelle")
            dgvCoefMarge.Item(3, derniere).Value = ligneCoef.Item("codeacttaux")
            dgvCoefMarge.Item(4, derniere).Value = ligneCoef.Item("coef")
            ' cellule 4 = de type numérique
            dgvCoefMarge.Item(4, derniere).ValueType = GetType(Double)
        Next

L'utilisateur a donc un tableau dans lequel je l'autorise à modifier la 4ème cellule ("coef").
Je n'arrive pas à interdire la saisie d'une valeur nulle.
Comment faire ?

Merci !

[bidou]

Sur l'évènement CellEndEdit je suppose

[vilcoy]

Oui, j'utilise le CellEndEdit avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim nouveaucoef As Double
' Test : la valeur saisie est elle nulle ?
If dgvCoefMarge.Item(e.ColumnIndex, e.RowIndex).Value Is DBNull.Value Then
  MessageBox.Show("Merci de saisir une valeur")
 
  ' Focus sur la cellule erronée
  dgvCoefMarge.Item(e.ColumnIndex, e.RowIndex).Selected = True
  dgvCoefMarge.BeginEdit(True)
  Exit Sub
End If
nouveaucoef = CDbl(dgvCoefMarge.Item(e.ColumnIndex, e.RowIndex).Value)

Mais je trouve que c'est très sale comme code ...

De plus, ça ne marche pas bien : si l'utilisateur valide avec Entrée, il a :
- un message "Merci de saisir une valeur"
- la cellule du dessous est sélectionnée et vidée
- un deuxième message "Merci de saisir une valeur"
- la cellule erronée est sélectionnée et en édition

-> donc ça a vidé la cellule du dessous (qui n'avait rien à voir dans l'histoire !)

Il me semble bizarre d'être obligé de passer par des bouts de code un peu pourris au lieu de définir une propriété quelque part qui interdit le null.

Que faire ?

[bidou]

regardes éventuellement du coté des DataGridViewCellStyle avec les propriétés NullValue, IsNullValueDefault, etc...

[vilcoy]

OK, merci pour ton aide, j'ai résolu le problème de la façon suivante :

Je déclare un style de datagridview "unStyle", dans lequel je définis la valeur à mettre en cas de saisie nulle. Je mets une valeur que je sais invalide pour le type de ma cellule :

Code :

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

1
2
3
4
 
Dim unStyle As New DataGridViewCellStyle
unStyle.NullValue = "VALEURNULLE"
dgvCoefMarge.Columns("coef").DefaultCellStyle = unStyle

Ensuite, lorsque je crée mes cellules, je définis un type double :

Code :

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

1
2
3
4
 
dgvCoefMarge.Item(4, derniere).Value = ligneCoef.Item("coef")
' cellule 4 = de type numérique
dgvCoefMarge.Item(4, derniere).ValueType = GetType(Double)

Ca permet de générer un évènement de type DataError lorsque l'utilisateur entre une valeur invalide, il n'y a plus qu'à la gérer :

Code :

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

1
2
3
4
 
Private Sub dgvCoefMarge_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dgvCoefMarge.DataError
     MessageBox.Show("Valeur saisie invalide")
End Sub

Merci Bidou.