Saisie de texte dans un msflexgrid

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 658 fois - Téléchargée 37 fois

Contenu du snippet

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 .

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
vendredi 21 octobre 2005
Statut
Membre
Dernière intervention
6 décembre 2005

salut, ton code il est très interressant, j'ai pas pu lir les commentaires des autres mais j'étais étonné par la note de ton code.
en tous cas il est très claire, très facile à utiliser, il m'a aidé dans mon projet. Bon travail, et bon courage
10/10
Messages postés
18
Date d'inscription
mercredi 27 octobre 2004
Statut
Membre
Dernière intervention
29 juin 2007

C'est du delire
Messages postés
18
Date d'inscription
vendredi 3 janvier 2003
Statut
Membre
Dernière intervention
9 juillet 2009

Salut Lir ..; paske c toi ... dans les alentours de 350 ? , tout dépend de la date de remise.
Messages postés
28
Date d'inscription
dimanche 19 janvier 2003
Statut
Membre
Dernière intervention
26 mars 2008

Salut davyboy,

Puisque tu te proposes ..

Combien tu prends pour faire les codes suivant : ?

1er code :
Avec une base access 2000, je veux pouvoir imprimer
soit un contact, (une ligne ) soit tous les contacts, ( toutes les lignes )en selectionnant dans une liste deroulante ( combo ), le numero du contact ou tous les numeros contacts ou le nom ou tous les noms.
Impression avec l'imprimante par defaut.

2eme code :
Faire une recherche dans la base access 2000 d' un contact par son numero de contact ou par le nom d' un contact, et afficher le resultat de la recherche dans un datagrid.

3eme code :
exporter un contact avec un choix deroulant de : soit un format Word soit en Excel soit en Txt windows soit en PDF.
Messages postés
18
Date d'inscription
vendredi 3 janvier 2003
Statut
Membre
Dernière intervention
9 juillet 2009

moi je veux bien te le faire .. suis pas cher en plus ... sinon .. DATA c un contrôle comme le FlexGrid ... tu remplaces ton contr^ole Flex par un Data. Et ensuite dans le code que je t filé tu remplaces Flex par Data .. sinon je te le fais, avec facturation si tu veux.
Afficher les 14 commentaires

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.