Datagrid et interception de keys
Résolu
cs_rocknroll2
Messages postés
100
Date d'inscription
vendredi 30 janvier 2004
Statut
Membre
Dernière intervention
22 janvier 2010
-
9 sept. 2007 à 17:00
cs_rocknroll2 Messages postés 100 Date d'inscription vendredi 30 janvier 2004 Statut Membre Dernière intervention 22 janvier 2010 - 10 sept. 2007 à 16:21
cs_rocknroll2 Messages postés 100 Date d'inscription vendredi 30 janvier 2004 Statut Membre Dernière intervention 22 janvier 2010 - 10 sept. 2007 à 16:21
5 réponses
chaibat05
Messages postés
1883
Date d'inscription
samedi 1 avril 2006
Statut
Membre
Dernière intervention
20 novembre 2007
2
9 sept. 2007 à 18:24
9 sept. 2007 à 18:24
le DataGrid1.Text = Format$(DataGrid1.Text, "0,00")
donne de droles de résultat !
essaies plutôt :
DataGrid1.Text = Replace(DataGrid1.Text, ".", ",")
<hr />I LIKE TO BE HERE WHEN I CAN
<hr />
donne de droles de résultat !
essaies plutôt :
DataGrid1.Text = Replace(DataGrid1.Text, ".", ",")
<hr />I LIKE TO BE HERE WHEN I CAN
<hr />
chaibat05
Messages postés
1883
Date d'inscription
samedi 1 avril 2006
Statut
Membre
Dernière intervention
20 novembre 2007
2
9 sept. 2007 à 18:08
9 sept. 2007 à 18:08
Salut,
essaies dans l' evenement AfterColEdit qui se declenche
après la modification des données d'une colonne ...
Private Sub DataGrid1_AfterColEdit(ByVal ColIndex As Integer)
If ColIndex = LaColonne Then _
DataGrid1.Text = Format$(DataGrid1.Text, "0,00")
End Sub
<hr />
I LIKE TO BE HERE WHEN I CAN
<hr />
essaies dans l' evenement AfterColEdit qui se declenche
après la modification des données d'une colonne ...
Private Sub DataGrid1_AfterColEdit(ByVal ColIndex As Integer)
If ColIndex = LaColonne Then _
DataGrid1.Text = Format$(DataGrid1.Text, "0,00")
End Sub
<hr />
I LIKE TO BE HERE WHEN I CAN
<hr />
chaibat05
Messages postés
1883
Date d'inscription
samedi 1 avril 2006
Statut
Membre
Dernière intervention
20 novembre 2007
2
9 sept. 2007 à 18:33
9 sept. 2007 à 18:33
tu peux aussi faire ceci :
Private Sub DataGrid1_KeyPress(KeyAscii As Integer)
If DataGrid1.Col = LaColonne Then If KeyAscii 46 Then KeyAscii 44
End If
End Sub
et reserver le AfterColEdit vérifier pour la validation de type de donnée.
<hr />I LIKE TO BE HERE WHEN I CAN
<hr />
Private Sub DataGrid1_KeyPress(KeyAscii As Integer)
If DataGrid1.Col = LaColonne Then If KeyAscii 46 Then KeyAscii 44
End If
End Sub
et reserver le AfterColEdit vérifier pour la validation de type de donnée.
<hr />I LIKE TO BE HERE WHEN I CAN
<hr />
cs_rocknroll2
Messages postés
100
Date d'inscription
vendredi 30 janvier 2004
Statut
Membre
Dernière intervention
22 janvier 2010
10 sept. 2007 à 09:34
10 sept. 2007 à 09:34
Bonjour chaibat05
Merci pour ces renseignements, je teste aujourd'hui et post le(s) résultat(s)
Rocknroll2
Ouais, je serais un Pro du VB6 et du PHP dans 10/15 ans ;)
Merci pour ces renseignements, je teste aujourd'hui et post le(s) résultat(s)
Rocknroll2
Ouais, je serais un Pro du VB6 et du PHP dans 10/15 ans ;)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cs_rocknroll2
Messages postés
100
Date d'inscription
vendredi 30 janvier 2004
Statut
Membre
Dernière intervention
22 janvier 2010
10 sept. 2007 à 16:21
10 sept. 2007 à 16:21
re, chaibat05
Ta réponse me convient tout à fait.
Merci à toi,
Rocknroll2
Ouais, je serais un Pro du VB6 et du PHP dans 10/15 ans ;)
Ta réponse me convient tout à fait.
Merci à toi,
Rocknroll2
Ouais, je serais un Pro du VB6 et du PHP dans 10/15 ans ;)
