MsFlexGrid
Résolu
Sinsitrus
Messages postés
849
Date d'inscription
samedi 11 juin 2005
Statut
Membre
Dernière intervention
21 août 2015
-
18 sept. 2009 à 11:29
Profil bloqué - 19 sept. 2009 à 01:08
Profil bloqué - 19 sept. 2009 à 01:08
5 réponses
Salut Sinistrus
Dans les propriétés de ta MSFlexGrid tu mets Rows sur 21 et Cols sur 2 (soit 21 lignes et 2 colonnes : les colonnes sont pour désignation et quantité)
Tu déclares une variable Private LIgne as Long accessible pour toute la feuille
Dans le form_load de la feuille tu fais
MSGrid.colwitdh(0) = 200 ' largeur de la première colonne ( à ajuster)
MsGrid.Colwidth(1) = 300 ' largeur de la seconde colonne ( à ajuster)
MSGrid.Clear
MSGrid.Textmatrix(0,0) = "Désignation" ' entête des colonnes
MSGrid.Textmatrix(0,1) = "Quantité"
Ligne& = 1 ' on se positionne sur le première ligne à entrer
Private Sub B_AddAvoir_Click()
If Ligne& = 22 then
MsgBox "Toutes les lignes sont remplies"
End if
MSGrid.TextMatrix(Ligne&,0) = T_Designation.Text
MSGrid.TextMatrix(Ligne&,1) = T_Quantite.Text
Ligne& = Ligne& +1
End Sub
La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.
GRENIER Alain
Dans les propriétés de ta MSFlexGrid tu mets Rows sur 21 et Cols sur 2 (soit 21 lignes et 2 colonnes : les colonnes sont pour désignation et quantité)
Tu déclares une variable Private LIgne as Long accessible pour toute la feuille
Dans le form_load de la feuille tu fais
MSGrid.colwitdh(0) = 200 ' largeur de la première colonne ( à ajuster)
MsGrid.Colwidth(1) = 300 ' largeur de la seconde colonne ( à ajuster)
MSGrid.Clear
MSGrid.Textmatrix(0,0) = "Désignation" ' entête des colonnes
MSGrid.Textmatrix(0,1) = "Quantité"
Ligne& = 1 ' on se positionne sur le première ligne à entrer
Private Sub B_AddAvoir_Click()
If Ligne& = 22 then
MsgBox "Toutes les lignes sont remplies"
End if
MSGrid.TextMatrix(Ligne&,0) = T_Designation.Text
MSGrid.TextMatrix(Ligne&,1) = T_Quantite.Text
Ligne& = Ligne& +1
End Sub
La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.
GRENIER Alain
Salut Sinistrus
Je ne vois pas l'utilité d'un second bouton pour ajouter les lignes qui manquent
Si au départ ta grille compte 20 lignes où est le problème ?
Ensuite avec ton bouton1 tu remplis les lignes une à une avec la propriété TextMatrix de ma MsFlexGrid
La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.
GRENIER Alain
Je ne vois pas l'utilité d'un second bouton pour ajouter les lignes qui manquent
Si au départ ta grille compte 20 lignes où est le problème ?
Ensuite avec ton bouton1 tu remplis les lignes une à une avec la propriété TextMatrix de ma MsFlexGrid
La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.
GRENIER Alain
Sinsitrus
Messages postés
849
Date d'inscription
samedi 11 juin 2005
Statut
Membre
Dernière intervention
21 août 2015
18 sept. 2009 à 18:50
18 sept. 2009 à 18:50
Salut !
Au load j'ai ligne = 0 puis un bouton qui ajoute les éléments un a un.
A 20 ligne j'ai un msgbox qui me signale la fin de l'ajout car ligne 20 ateinte.
Mais si je fais au load comme tu propose, 20 lignes, si j'ajoute une ligne, il ajoutera "après" les 20 ligne et donc pas "dans" les 20 mais me fera 21 lignes.
Le bouton ajouter passe par la commande AddItem comme suite :
Private Sub B_AddAvoir_Click()
MSFGrid.AddItem T_Designation.Text & Chr(9) & T_Quantite.Text & Chr(9)
End Sub
C'est un exemple tiré de mon code...
Au load j'ai ligne = 0 puis un bouton qui ajoute les éléments un a un.
A 20 ligne j'ai un msgbox qui me signale la fin de l'ajout car ligne 20 ateinte.
Mais si je fais au load comme tu propose, 20 lignes, si j'ajoute une ligne, il ajoutera "après" les 20 ligne et donc pas "dans" les 20 mais me fera 21 lignes.
Le bouton ajouter passe par la commande AddItem comme suite :
Private Sub B_AddAvoir_Click()
MSFGrid.AddItem T_Designation.Text & Chr(9) & T_Quantite.Text & Chr(9)
End Sub
C'est un exemple tiré de mon code...
Sinsitrus
Messages postés
849
Date d'inscription
samedi 11 juin 2005
Statut
Membre
Dernière intervention
21 août 2015
19 sept. 2009 à 00:23
19 sept. 2009 à 00:23
Salut et merci encore Galain !
Dans ma source Facturation, c'est l'option qui me manquais pour pouvoir utiliser cette application.
Encore un grand merci a toi pour le temps et ta précieuse aide.
Dans ma source Facturation, c'est l'option qui me manquais pour pouvoir utiliser cette application.
Encore un grand merci a toi pour le temps et ta précieuse aide.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question