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.