Le portail francophone de la géomatique

Merci pour la réponde.

La logique du code me parait clair mais par contre il faudrait que je l'adapte a mon code précédent. pour info celui ci regroupe 4 procédures, en fait une par bouton, lorsque l'on ajoute une ou plusieurs variables, lorsque l'on les retire et les deux autres lorsque l'on ajoute ou retire tout.
Dans quelle cas dois je inserer cette fonction ? Je ne suis pas a l'aise avec les fonctions n'en ayant jamais codé moi meme

Merci pour le temps que vous m'accordez


Fab

En fait pour résumer l'utilisateur a a l'écran une première liste qui contient toutes les valeurs distinctes d'une colonne de la table. Avec l'aide des boutons il décide de tout sélectionner ou seulement une ou plusieurs valeurs qui l'intéresse. A l'actionnement du bouton la deuxième liste visible à l'écran se remplit avec les valeurs sélectionnées. L'idée est juste , pour plus de clarté d'ôter les valeurs sélectionnés de la première.

Je te joins un screen pour plus de visibilité(dans l'exemple joins il n'y a qu'une valeur mais le mode de fonctionnement est le même si il y'en a 3000.



Fabien

Salut Fabius,

Bonne nouvelle, j'ai trouvé mon vieux code. Je te le joint et donne le code source avec...Il y a même une table pour le tester. Dans la boite de dialogue tu n'a qu'à faire ouvrir et choisir la table. Il s’agit de listbox et non de multilistbox mais on peu adapter. Le tout compiler en 10.5 mais tu as le MB s'il y a des modifs a faire

JF

Bonjour,

Dans mon exemple il s'agit de listbox ordinaire...mais on à la preuve que ces possible.
Il s'agit de changer les contrôles et adapter au Mlistbox

JF

Je viens de tester plusieurs types d'adaptations ce matin mais malheureusement celui qui m'intéresse a savoir la multilistbox n'est pas encore au point ! En fait lors d'une première sélection cela fonctionne très bien, la première valeur sélectionnée disparait de la liste1 et apparait dans la liste2. C'est lorsque j'essaye de transposer la valeur suivante que le bas blesse. En effet , celle ci disparait de la liste1 mais c'est le cas également de la valeur suivante. cette valeur étant remplacer par une ligne blanche dans la liste 1...

Ci joint le code adapté (en fait après plusieurs tentatives c'est finalement voir complètement proche du code de ton programme )

SUB AJOUT

dim ligne,i as smallint
dim trouve as logical
ligne =readcontrolvalue(50)
dim listTemp() as string
 
while ligne <> 0
  'trouve = false
   for i = 1 to UBound(liste2)  
     if liste1(ligne) = liste2(i) then trouve = true end if
   next
   if trouve = false then
         redim liste2(UBound(liste2)+1)
            liste2(i) = liste1(ligne)
            Redim listTemp(list1size - 1) 
  
            Do while i < ligne            'On remplit listtemp avec les valeurs inferieurs a celle qu'on vient de rajouter
            listTemp(i) = liste1(i)
            i = i + 1
            Loop

            Do while i < list1size            'puis avec celles superieures
            listTemp(i) = liste1(i + 1)
            i = i + 1
            Loop

            i = 1
            list1size = list1size - 1          'Boucle qui met à jour la var liste1
            Redim liste1(list1size)
            Do while i <= list1size
            liste1(i) = listTemp(i)
            i = i + 1 
            Loop

            Redim listTemp(0)
        alter control 51 title from variable liste2()
        alter control 50 title from variable liste1()
        call tri
          ligne =readcontrolvalue(50)
        end if
 wend

alter control 82 enable
alter control 83 enable
alter control 84 enable
END SUB

Bonjour Jean et encore merci pour ton retour.

J'ai adapté le code a ma problématique (sensiblement proche de celle présente dans ton fichier) et cela fonctionne super bien pour les boutons ajouter / enlever un ou plusieurs éléments !! Par contre les boutons tout effacer et tout remplir me ressorte un beug, c'est a dire que des lignes sont présentes dans les multilistbox et je peux interagir dessus mais aucune valeur n'apparait. Je vais chercher ce matin d'ou peut venir ce probleme.

En tout cas ce mode de fonctionnement est vraiment beaucoup plus sympa avec les données qui se transvasent comme cela . Pour info la routine tri sert en fait a trier les observation par ordre alphabétique (enfin alphanumérique puisque les premiers caractères du champs sont des chiffres). Lorsque je j'ajoute puis j'enlève une observation celles ci se trouve trier dans la liste dans laquelle elle se trouve.


Fab

[EDIT] En fait les listes ne sont pas vides, il ne retourne que la dernière observation et après test de la valeur item c'est bien uniquement la dernière valeur qui est présente. Petite précision dans mon programme la valeur présente dans la liste1 et le résultat d'une sélection SQL concaténant deux champs unique (identifiant et nom commun) groupé par ce même champs afin d'éliminer les valeurs en double.

Dernière modification par Fabius (Tue 07 December 2010 15:48)

En fait tu peux pointer sur une ligne dans la listbox mais celle ci est vide sauf pour la derniere observation de la liste qui elle est bien renseigné. Je viens de réussir a faire fonctionné le code en indiquant a la multilistbox 1 un "title from variable liste1()" et un "title "" value 1" a la seconde.

Je peux t'envoyer le prog si tu veux mais en message privé puisque celui contient certaines données d'entreprises diront nous

Je dois prendre un peu de temps pour tester si les valeurs sélectionnés sont les bonnes mais a priori ca fonctionne! Un grand merci en tout cas. Je pense que ce bout de code ainsi que d'autre sur les différentes boites de dialogues pourrait être regroupés pour aider les néophytes ainsi que tout ceux cherchant a parfaire leurs connaissances

PS: dans le code que tu avais joins il manque juste une parenthèse au moment de tester dans une boucle si une valeur est inférieur a une autre valeur calculé pour ceux qui voudraient récupérer ce code