Insertion d'une Ligne dans MSFlexGrid

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:

---

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

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

Code:

---

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:

---

MSFlexGrid1.AddItem Row("1")

---

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

Citation:

---

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...

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

En ajoutant à la fin ?

Code:

---

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

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

Impeccable, ça marche à merveille.

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

Cdlt

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:

---

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"

---

Voilà ... tu sais maintenant tout

pense au "Résolu"

Ca marche bien sans, je prend note quand meme pour ne pas reposer la question plus tard.
Encore merci:yaisse2:

Bonjour

une question Qu'est le MSFlexGrid ?

Merci

Un ActiveX il me semble, present dans les contrôles supplementaires de VBA.

Il a à peu près la forme d'une DataGrid (si ça te parle plus)

http://upimago.com/out.php/t66090_Sanstitre.bmp.jpg

Je ne peux pas t'en dire plus.

Information à confirmer

Oui, mais son nom ds les contrôles supplémantaires, je ne le trouver pas

Microsoft FlexGrid Control, version 6.0 (chez moi)

Merci

j'avais du passé dessus sans le voir,