[Autocad] Insertion d'une ligne dans une listbox (VBA)

Bonjour,
j'ai un problème. Je souhaiterais ajouter une ligne dans une listbox (déjà remplie). J'arrive à ajouter une ligne à la fin de la liste (position par défaut je présume) mais je voudrais l'insérer à une ligne donnée.
Je m'explique : ma listbox est formée de 4 colonnes correspondant aux coordonnées X,Y,Z et t (temps) de plusieurs points. J'ajoute alors une ligne en précisant ces 4 paramètres. Mais je n'arrive pas à la faire s'insérer où je veux : je veux qu'elle s'insère en fonction de la valeur de t.
Par exemple si mon nouveau point a t=38500 je voudrais qu'il s'insère à la ligne suivant t=38499 et précédent t=38505 (par exemple).

Pour l'instant j'ai écris ce qui suit mais je suis perdu, j'arrive pas à avancer :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

t = Val(Txtb_t.Text)   Dim i, j As Integer j = Liste.Lstb_pts.ListCount   For i = 1 To j   ??????   Liste.Lstb_pts.AddItem (Val(Txtb_x.Text)) Liste.Lstb_pts.List(Liste.Lstb_pts.ListCount - 1, 1) = Val(Txtb_y.Text) Liste.Lstb_pts.List(Liste.Lstb_pts.ListCount - 1, 2) = Val(Txtb_z.Text) Liste.Lstb_pts.List(Liste.Lstb_pts.ListCount - 1, 3) = Val(Txtb_t.Text)   Next

---

Merci pour votre précieuse aide qui me permettra d'avance !

Bonjour,

Peut-être une solution est-elle de travailler avec une deuxième liste en alternance et qui se superpose à la 1ère list.
Je m'explique: une deuxième liste même nom que la première mais index 1,
avec la propriété visible à false.
Tu recopies en 1ère partie la première liste dans la deuxième jusqu'au Listindex où tu veux insérer en fonction de la valeur de t.
Tu insères la nouvelle ligne dans la 2e listbox, puis tu insères la suite de la
1ère List dans la 2e Listbox.
Tu mets la 1ère List à " Clear " et tu la rends invisible,tu rends visible la 2e listbox avec la nouvelle valeur insérée au bon endroit.



A+

Bonjour,

le code suivant n'est pas testé mais dans le principe ça me parait plus simple de boucler sur les valeurs de ta liste pour comparer ta valeur "t'" avec celles de la liste en partant du début de cette dernière. Une fois que ta valeur t est supérieure à celle sur laquelle tu pointes dans la liste, c'est que tu dois insérer ta valeur à cet index, tu sors donc de la boucle et tu insères avec AddItem mais en précisant l'index. Ca doit donc donner quelquechose comme ça :

Code:

---

1 2 3 4 5 6 7

i = 0 Do If t > Liste.Lstb_pts.List(i, 3) Then Exit Do i = i + 1 Loop Until i = Liste.Lstb_pts.ListCount - 1 Liste.Lstb_pts.AddItem Val(Txtb_x.Text), i

---

Bonjour,

Oublie ma solution, plus compliquée et vois celle de Ohmonbato car en effet
Dans la MSDN

Utilisation du contrôle ListBox

...
Ajout d'un élément à un endroit défini
Pour ajouter un élément à un endroit précis, spécifiez une valeur d'index à la suite de l'élément à ajouter. Par exemple, la ligne de code suivante insère « Japon » en première position et repositionne en conséquence les éléments suivants :

List1.AddItem "Japon", 0

Remarquez que c'est la valeur 0, et non la valeur 1, qui spécifie le premier élément de la liste, comme illustré dans la figure 7.35.

Figure 7.35 Ajout d'un élément dans une liste

Merci pour vos piste de réflexion !

OhMonBatp, je comprends l'idée ais je ne parviens pas à faire fonctionner ceci correctement.
Iclic j'ai un peu de mal à comprendre ta proposition (je suis plutôt débutant en programmation).

Donc je creuse, creuse et si quelqu'un a encore des idées je suis très preneur !!
merci

Citation:

---

Envoyé par stick25

Je m'explique : ma listbox est formée de 4 colonnes correspondant aux coordonnées X,Y,Z et t (temps) de plusieurs points.

---

Salut,

les lisboxes de VB6 ne comportant qu'une seule colonne "reelle" (et donc "pointable" par un index) peux-tu nous confirmer que tu developpes bien sous VB6 et non sous VBA (VB pour applications Office) ?

EDIT : pour être plus clair :
Si tu developpes bien sous VB6 et non sous VBA :
Ne pas confondre les fausses colonnes (uniquement d'affichage et de presentation) avec de vraies colonnes.
Il vaudrait alors mieux que tu utilises une listview qui, elle, gere de vraies colonnes.
Il te faudra dans tous les cas (si tu veux un alignement en colonnes) gerer a la fois la ligne (pour la colonne principale) et la colonne (pour les "sous-items"), quitte a mettre des vides dans les colonnes ne correspondant pas a celle a remplir)

Je développe sous VBA et je suis débutant, donc je suis à votre entière écoute !!

Mon problème vient je pense principalement de la boucle pour trouver le numéro de ligne où devra être inséré le nouveaux point.
Je suis débutant et j'ai du mal à faire ce tit bout de code, donc si jamais quelqu'un pouvait m'aider...

Merci d'avance !

Pourrais-tu aussi préciser quel logiciel Office tu utilises ?
(j'ai déplacé sous Access, mais si tu développes sous Excel...)

Je suis sous Autocad.

Mais mon problème et juste un boucle for, ou while, donc je pense qu'elle ne changera pas d'un logiciel à un autre.
Merci.