DataGridView1 max et min valeur

Version imprimable

Bonjour,

voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub DataGridView1_CellEndEdit(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
        If (e.ColumnIndex = 1) Then
            Dim value As String = DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value
            If Not Information.IsNumeric(value) Then
                MessageBox.Show("S'il vous plaît entrez la valeur numérique.")
                If value.Trim.Length < 1 Then
                       'cenceledit = true
                    ToolStripStatusLabel1.Text = "Veuillez entrer minimum une valeur!"
                ElseIf value.Trim.Length > 9 Then
                       'cenceledit = true
                    ToolStripStatusLabel1.Text = "Veuillez ne pas dépasser 9 chiffres!"
                End If
                DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = "0"
                Exit Sub
            End If
        End If
    End Sub

comment limiter le nombre de chiffre dans datagradview quand edit dans la colomuns?
Merci de votre réponse

28/11/2015, 22h01
clementmarcotte

Bonjour,

C'est quoi ton VRAI problème ?

1) Utiliser un autre événement que EndEdit ?
2) Ton code actuel qui plante ?
Si oui, y a-t-il un message d'erreur ou un exemple de réponse erronée ?
3) Utiliser n'importe quelle colonne et pas juste la colonne 1 ?
4) Autre chose ?

Sans vouloir t'insulter, tu as l'air de te ficher de la règle qui demande de fournir des questions précises.

Bonsoir

Le test ne va pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
If (e.ColumnIndex = 1) Then
            Dim value As String = DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value
 
'Tester si la valeur est numérique 
If Not Information.IsNumeric(value) Then
                MessageBox.Show("S'il vous plaît entrez la valeur numérique.")
DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = "0"
                Exit Sub
End if
 
'et si la valeur est numérique tester :
If value.Length < 1 Then
                       'cenceledit = true
                    ToolStripStatusLabel1.Text = "Veuillez entrer minimum une valeur!"
 ElseIf value.Length > 9 Then
                       'cenceledit = true
                    ToolStripStatusLabel1.Text = "Veuillez ne pas dépasser 9 chiffres!"
 End If

29/11/2015, 20h01
clementmarcotte

Bonjour,

Citation:

Envoyé par olive7140

Bonsoir

Le test ne va pas

J'espère pour lui que notre expert des questions posées en paraboles n'aura jamais besoin de nombres décimaux, et qu'il a pensé de ramener ses nombres en texte en nombres arithmétiques. ;)
02/12/2015, 18h37
hacker59

Bonsoir,
j'ai trouver la solution a mon problème.
Bonne soirée a+