Insertion d'une Ligne dans MSFlexGrid

**Bib0ucH** · 12/12/2007, 15h12

Bonjour a tous, je suis un utilisateur récent de VBA et...
j'ai un petit problème...

J'ai créé une MSFlexGrid sur ma Form.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CmdChanger_Click()
 
If TxtNew.Value = TxtNew2.Value Then
 
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
 
 
MSFlexGrid1.TextMatrix(1, 1) = CboxFI.Value
MSFlexGrid1.TextMatrix(1, 2) = TxtRef.Value
MSFlexGrid1.TextMatrix(1, 3) = TxtNew2.Value
MSFlexGrid1.TextMatrix(1, 4) = TxtMAJ.Value
MSFlexGrid1.TextMatrix(1, 0) = DTPicker1.Value
 
Else: MsgBox ("/!\ Attention aux indices /!\")
End If
End Sub

Voila le codes de mon bouton servant a remplir ma grille a l'aide desTextBox si dessus.

Mon probleme est le suivant :
Au moment ou je clic sur mon bouton,les informations de mes TextBox rentrent dans la premiere ligne de ma Flexgrid.Si je changes les valeurs des mes TextBox, et que je reclic sur mon bouton, une ligne se créait sous la premiere et les anciennes valeurs sont remplacées par les nouvelles.
Ainsi de suite.j'ai donc UNE seule ligne (la premiere) avec des valeurs, et un certains nombres (le nombre de clic effectuer) VIDE

J'aimerai que mes premières valeurs ce deplace ds la deuxieme ligne et que les nouvelles soient ds la premieres ...

J'espere que je suis assez clair

Merci d'avance

Cdlt Vince

**Bib0ucH** · 13/12/2007, 11h04

J'ai modifier mon petit bout de Code pour mon bouton, ce qui donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CmdChanger_Click()
 
If TxtNew.Value = TxtNew2.Value Then
 
MSFlexGrid1.AddItem Row("1")
MSFlexGrid1.TextMatrix(1, 1) = CboxFI.Value
MSFlexGrid1.TextMatrix(1, 2) = TxtRef.Value
MSFlexGrid1.TextMatrix(1, 3) = TxtNew2.Value
MSFlexGrid1.TextMatrix(1, 4) = TxtMAJ.Value
MSFlexGrid1.TextMatrix(1, 0) = DTPicker1.Value
 
Else: MsgBox ("/!\ Attention aux indices /!\")
End If
End Sub

J'ai une erreur pdt la compilation "Sub ou Function non définie" pour la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MSFlexGrid1.AddItem Row("1")

Je ne connais pas la syntaxe, d'avance merci pr votre aide
Cdlt

**ucfoutu** · 13/12/2007, 11h05

Envoyé par Bib0ucH

AIE,

personne n'a eu ce problème ou mon explication n'est pas assez clair???

Ton explication n'est en effet pas assez claire.

On va t'aider à exprimer ce que tu veux par un jeu de questions réponses, alors :

Que veux-tu ?

1) écraser tout ou partie (et si partie : à compter de quel rang ?)
ou
2) ne rien écraser mais ajouter des rangs renseignés à ceux déjà existants ?
Si c'est celà (option 2) : en les ajoutant à la fin, celà va vitre. Si tu veux les ajouter au début, par contre, il te faudra faire une boucle (lourd) à chaque ajout, pour tout décaler ...

3) si tu choisis l'option 2 en ajoutant à la fin et pas au début, tu as toujours la possibilité (on sait faire) d'assurer le confort de l'utilisateur sans l'obliger à "scroller" pour aller aux derniers ajouts..

Voilà ... tu dis...

**Bib0ucH** · 13/12/2007, 11h08

Reponse 2 (désolé pour l'explication, j'maitrise pas encore tt le langage)

**ucfoutu** · 13/12/2007, 11h11

En ajoutant à la fin ?

**Bib0ucH** · 13/12/2007, 11h17

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CmdChanger_Click()
 
If TxtNew.Value = TxtNew2.Value Then
'Inserer une nouvelle ligne au dessus de la precedente avec les valeurs suivantes 
MSFlexGrid1.AddItem Row("1")
 
MSFlexGrid1.TextMatrix(1, 1) = CboxFI.Value
MSFlexGrid1.TextMatrix(1, 2) = TxtRef.Value
MSFlexGrid1.TextMatrix(1, 3) = TxtNew2.Value
MSFlexGrid1.TextMatrix(1, 4) = TxtMAJ.Value
MSFlexGrid1.TextMatrix(1, 0) = DTPicker1.Value
 
Else: MsgBox ("/!\ Attention aux indices /!\")
End If
End Sub

Donc ajouter une ligne au debut

Autant pour moi :
Je voudrais

Ne rien écraser, mais ajouter des rangs renseignés avec les valeurs de mes TextBox, au début de ma FlexGrid, par consequant, faire une boucle

**ucfoutu** · 13/12/2007, 11h19

voilà alors la syntaxe pour forcer la position de l'ajout :

object.AddItem (item As String, index)

où index est la position.
Si index est omis ===>> ajout à la fin

donc :

MSFlexGrid1.AddItem ta_donnée, 1

ajoutera ta_donnée en position (rang) 1
et VB décalera tout ce qui suit spontanément en boucle vers le bas

**Bib0ucH** · 13/12/2007, 11h22

Impeccable, ça marche à merveille.

Merci beaucoup et encore pardon pour l'explication pas très clair

Cdlt

**ucfoutu** · 13/12/2007, 11h26

Bon...

J'ai oublié une précision :

si ta grille a plusieurs colonne et que tu veux renseigner toutes les colonnes, il te faut procédéer en 2 étapes :

etape 1 : ajout d'un rang en en profitant pour renseigner la 1ère case
étrape 2 : complétion des autres colonnes éventuelles de ce rang

exemple à main levée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 MSFlexGrid1.Rows = 6
  MSFlexGrid1.FixedCols = 1
  MSFlexGrid1.FixedCols = 1
  MSFlexGrid1.Height = 735
  MSFlexGrid1.TextMatrix(0, 0) = "voilà ma première ligne"
  MSFlexGrid1.TextMatrix(1, 0) = "voilà ma deuxième ligne"
  MSFlexGrid1.TextMatrix(2, 0) = "et cà c'est ma troisième ligne"
  MSFlexGrid1.TextMatrix(3, 0) = "voyez ma quatrième ligne"
  MSFlexGrid1.TextMatrix(4, 0) = "j'en suis à la cinqième"
  MSFlexGrid1.TextMatrix(5, 0) = "j'en suis à la sixième"
 
  'et là, j'ajoute au rang 2
  MSFlexGrid1.AddItem "a", 2
  MSFlexGrid1.TextMatrix(2, 1) = "coucou"