Ce code permet de taper du texte dans la cellule d'un MSFlexGrid ou MSHFlexGrid comme dans une feuille Excel.
Au début j'utilisais un textbox qui venait audessus de la cellule mais cea pose un problème lorsqu'il y a une scrollbar. Voici donc la solution :
Source / Exemple :
Private Sub flex_KeyDown(KeyCode As Integer, Shift As Integer)
If flex.Text <> "" Then
Select Case KeyCode
Case 8 'backspace
flex.Text = Left(flex.Text, (Len(flex.Text) - 1))
Case 46 'suppr
flex.Text = ""
End Select
End If
End Sub
Private Sub flex_KeyPress(KeyAscii As Integer)
If KeyAscii > 28 Then 'av cette condition on peut restreindre les entrées utilisateurs en autorisant seulement les chiffres par ex. la on interdit juste les caracteres non gérés par windows
flex.Text = flex.Text & Chr(KeyAscii)
End If
End Sub
Conclusion :
Merci à www.developpez.com , y sont plus doué que sur VBfrance .. mais bon .. je tiens à déposer ma pierre à l'édifice .
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.