Discussion :

[GOLDINGMAROC]

Bonjour,
Pour obliger une saisie numérique dans une TexBox j'ai lu le tutoriel correspondant sans problèmes en utilisant le code suivant :

Code :

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

1
2
3
4
Private Sub txtEcritFeuille_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("1234567890.", Chr(KeyAscii)) = 0 _
Or InStr(txtEcritFeuille.Value, ".") <> 0 And Chr(KeyAscii) = "."  Then KeyAscii = 0: Beep
End If

Pour appliquer le même truc mais pour une VSFlexGrid à la cellule courante j'ai utilisé le code suivant :

Code :

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

1
2
3
4
5
Private Sub VSFlexGrid_KeyPressEdit(ByVal Row As Long, ByVal Col As Long, KeyAscii As Integer)
If InStr("1234567890.", Chr(KeyAscii)) = 0 Or (InStr(VSFlexGrid.????, ".") And Chr(KeyAscii = ".")) Then
 KeyAscii = 0: Beep
End If
End Sub

Je me suit coincé sur l'instruction en rouge. Comment faire?
cordialement.

[AlainTech]

Bonjour,

Apparemment (si tu parles bien du VSFlexGrid de ComponentOne et sans avoir testé) ce devrait être

Code :

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

VSFlexGrid.Cell(0, Row, Col)

[GOLDINGMAROC]

Bonjour Alain,
je vous remercie pour votre participation à cette discussion.
j'ai essayé votre truc mais malheureusement ça n'a pas marché. j'ai même essayé de stoker les propriétés Row et Col dans des variables de type Integer (voir le code ci après) :

Code :

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

1
2
3
4
5
6
7
8
Private Sub VSFlexGrid_KeyPressEdit(ByVal Row As Long, ByVal Col As Long, KeyAscii As Integer)
  Dim i, j As Integer
  i = VSFlexGrid.Row
  j = VSFlexGrid.Col
  If InStr("1234567890.", Chr(KeyAscii)) = 0 Or (InStr(VSFlexGrid.Cell(0, i, j), ".") <> 0 And Chr(KeyAscii = ".")) Then
    KeyAscii = 0: Beep
  End If
End Sub

Résultat nul
A SUIVRE ....
Cordialement

[GOLDINGMAROC]

Bonjour Alain,
j'ai trouver le truc pour cette discussion en voici le Code :

Code :

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

1
2
3
4
5
Private Sub VSFlexGrid_KeyPressEdit(ByVal Row As Long, ByVal Col As Long, KeyAscii As Integer)
  If InStr("1234567890.", Chr(KeyAscii)) = 0 Or (InStr(VSFlexGrid.EditText, ".") <> 0 And Chr(KeyAscii) = ".") Then
    KeyAscii = 0: Beep
  End If
End Sub

Cordialement