GRILLE SAISISSABLE FACON EXCEL (FLEXGRID)

econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 - 17 juin 2005 à 09:32
cs_AMIX Messages postés 3 Date d'inscription lundi 23 mai 2005 Statut Membre Dernière intervention 16 août 2005 - 15 août 2005 à 13:43
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/32107-grille-saisissable-facon-excel-flexgrid

cs_AMIX Messages postés 3 Date d'inscription lundi 23 mai 2005 Statut Membre Dernière intervention 16 août 2005
15 août 2005 à 13:43
Votre programme est génial.J'en ai fais un pareil pour une application personnelle de saisie de factures de ventes; mais votre méthode, digne d'un professionnel, m'a montré le gouffre de mon ignorance.Merci pour votre générosité.
BENCHLIKHA Abderrahmane, marocain, 61 ans.
mtassaout@hotmail.com
bouv Messages postés 1411 Date d'inscription mercredi 6 août 2003 Statut Membre Dernière intervention 3 mars 2019 1
11 août 2005 à 17:26
OK je modifi pas le post pour des raisons perso (je n'en veux pas) mais pour ceux que cela interresse c'est très simple, vous devez rajouter les lignes suivantes :

Sous Option Explicit

Dim sRow As String
Dim sCol As String


A la fin de Grille_KeyDown et Grille_KeyPress

sRow = Grille.Row
sCol = Grille.Col


Au début de Private Sub Grille_Click()

Grille.TextMatrix(sRow, sCol) = txtSaisie.Text
txtSaisie.Text = ""
txtSaisie.Visible = False
sRow = Grille.Row
sCol = Grille.Col

++
kokise Messages postés 120 Date d'inscription jeudi 5 mai 2005 Statut Membre Dernière intervention 21 décembre 2017
11 août 2005 à 15:29
non non c sa
kokise Messages postés 120 Date d'inscription jeudi 5 mai 2005 Statut Membre Dernière intervention 21 décembre 2017
11 août 2005 à 15:22
désolé trompé de destination !!!!
kokise Messages postés 120 Date d'inscription jeudi 5 mai 2005 Statut Membre Dernière intervention 21 décembre 2017
11 août 2005 à 15:22
Salut ton prog est bien mais je pense qu'on est obligé de cliquer sur entrer pour valider chaque saisie je pense qu'un changement de sélection sur la colonne c à d cliqué sur une autre colonne doit faire l'effet de l'entrer ça serai mieux.
rabihos Messages postés 3 Date d'inscription jeudi 16 juin 2005 Statut Membre Dernière intervention 29 juin 2005
29 juin 2005 à 15:47
merci kant meme
bouv Messages postés 1411 Date d'inscription mercredi 6 août 2003 Statut Membre Dernière intervention 3 mars 2019 1
29 juin 2005 à 15:42
désolé je ne pense pas pouvoir t'aider
rabihos Messages postés 3 Date d'inscription jeudi 16 juin 2005 Statut Membre Dernière intervention 29 juin 2005
29 juin 2005 à 10:19
bjr bouv,
modbus est un protocol , c un protocol de communication

voilà ..
bouv Messages postés 1411 Date d'inscription mercredi 6 août 2003 Statut Membre Dernière intervention 3 mars 2019 1
24 juin 2005 à 21:10
qu'est ce que modbus ?
rabihos Messages postés 3 Date d'inscription jeudi 16 juin 2005 Statut Membre Dernière intervention 29 juin 2005
24 juin 2005 à 15:59
bjr , est ce kelkun a une idée cmt faire pr envoyer des donnnés sur excel vers modbus en utilisant visuel basic ?

merci d avance
bouv Messages postés 1411 Date d'inscription mercredi 6 août 2003 Statut Membre Dernière intervention 3 mars 2019 1
22 juin 2005 à 13:18
Nouvelle MAJ dispo avec prise en charge des touches F2 et F5.
bouv Messages postés 1411 Date d'inscription mercredi 6 août 2003 Statut Membre Dernière intervention 3 mars 2019 1
21 juin 2005 à 20:58
OK COPIER/COLLER opérationnels.
Avec en plus prise en charge des touches SUPPR et Backspace ; et nagivation en arriere avec SHIFT+TAB.
Enfin j'ai mis le texte en bleu pour la cellule en surbrillance car en blanc on voyait pas grand chose.

Bonne prog
++
bouv Messages postés 1411 Date d'inscription mercredi 6 août 2003 Statut Membre Dernière intervention 3 mars 2019 1
20 juin 2005 à 07:52
Ouai j'y avais pas pensé. Je fais ça ce soir en rentrant du boulot ! Aucun de problème.
Utilisateur anonyme
19 juin 2005 à 23:27
Hahahaha!!!! le copier/Coller, c'est le plus grand mal de notre temps !!!!
Mais bon c'est tellement pratique .
bouv Messages postés 1411 Date d'inscription mercredi 6 août 2003 Statut Membre Dernière intervention 3 mars 2019 1
18 juin 2005 à 13:39
MAJ effectuée, merci JJDai
bouv Messages postés 1411 Date d'inscription mercredi 6 août 2003 Statut Membre Dernière intervention 3 mars 2019 1
18 juin 2005 à 13:34
Ah j'avais pas vu, avec tout mes copier/coller on fini par s'emmeler les pinceaux. Je modifie de suite.
Utilisateur anonyme
17 juin 2005 à 19:11
Pas mal, mais il y a un bug: l'affectation des propriete n'est pas correcte, aulieu d'affecter le parametres tu affecta la propriete elle meme.
par exemple aur lieu d'écrire
Public Property Let Cols(ByVal New_Cols As Integer)
Grille.Cols = Cols
End Property
Il vaudrait mieux écrire ça
Public Property Let Cols(ByVal New_Cols As Integer)
Grille.Cols = New_Cols
End Property
et ça pour "Rows" aussi
bouv Messages postés 1411 Date d'inscription mercredi 6 août 2003 Statut Membre Dernière intervention 3 mars 2019 1
17 juin 2005 à 13:57
Econs>> Effectivement les num de ligne ne s'incrementent pas automatiquement. En fait ce n'est pas un bug, on peut nommer chaque ligne comme on le souhaite. L'idée était bien de rendre la FlexGrid saisissable.
Pour l'explication finale effectivement j'ai essayé de dessiner un truc, mais il semble que quand 2 espaces se suivent, celui de trop est supprimé. Cela ne vient pas de ton explorateur. Je modifierai ça.

Merci pour ton commentaire.
Bonne prog
++
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 25
17 juin 2005 à 09:32
Piti bug :
Quand on rajoute des lignes, les numéros de lignes ne s'incrémentent pas dans la première colonne.

A part çà, c'est très bon ! :o)


Et remanie un peu ton explication finale. Tu as surement voulu dessiner quelque chose avec de l'ascii, mais là, c'est super moche (depuis mon browser en tous cas) :o)
Rejoignez-nous