Ces quelques lignes de commande vous permettront de remplir les cellules d'une MSHFlexGrid à la manière d'Excel, évitant ainsi de passer par l'intermediare de inputBox comme je l'ai vu par exemple sur ce site...
Ce code est trés simple...
Imaginons une grille MSHFlexGrid nommé "maGrille"
L'astuce c'est de passer par l'évènement KeyPress qui a lieu lorsque l'utilisateur appuie sur une quelconque touche (lettres capitales et minuscules, chiffres, ponctuation, Entrée, Tab, Retour arrière)
Source / Exemple :
Private Sub maGrille_KeyPress(KeyAscii As Integer)
maGrille.Col=maGrille.ColSel
maGrille.Row=maGrille.RowSel
maGrille.Text=maGrille.Text & Chr(KeyAscii) 'ecris instantanément dans la cellule ce que vous tapez
' ceci permet une infinité de possibilités, par ex: supprimer le contenu d'une cellule avec la touche Retour arrière
If (KeyAscii=8) Then 'chaque touche correspond a un code, ici Retour correspond au code 8
maGrille.Text=Empty
End If
Conclusion :
j'espere ke cette petite source pourra en dépanner plus d'un...
Merci a Setaou.
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.