Interdire une valeur nulle dans une cellule de datagrid

Version imprimable

Bonjour,

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

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
 
'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 !

05/03/2007, 13h56
bidou

Sur l'évènement CellEndEdit je suppose

Oui, j'utilise le CellEndEdit avec ce code :
Code:

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 ?

05/03/2007, 14h26
bidou

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

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:

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:

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:

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.