slt,
coment faire pour transposter les données d'une liste box, ou on mis plusieurs choix selectionnable, vers une deuxième liste box ?

Salut,

De faire peut-être une boucle sur tout les élément selectionner puis transfert, ou de mettre à chaque séléction d'un item celui-ci dans un tableau et de le transférer dans ta deuxième listbox.

A+
Exploreur

 Linux a un noyau, Windows un pépin

non en faite j'aimerai savoir si y a moyen de faire plus simplement ; je dispose
 - CommandButtum
 - ListeBox1 ( plusieurs éléments mais un seul peut êrte selectionnable à la fois)
  -ListeBoxe ; lobjectif est de la remplire (rajouter) un élément selectioner à chaque fois en utilisant le Boutan

Réponse acceptée !

Salut,

Donc, quand tu séléctionnes un Item, puis que tu click dans command1 cela va ajouter dans List2 :

Private Sub Command1_Click()

If Not List1.Text = vbNullString Then List2.AddItem List1.Text

End Sub


Note : Tu peux aussi le faire sans Bouton de command

Ps : On valide une réponse QUE QUAND ton problème est résolu.....

A+
Exploreur

 Linux a un noyau, Windows un pépin

okay thx Explorer

l'avenir c'est les WebOS et l'informatique quantique

Re,

Ok....quoi ? C'est cela que tu souhaitais ?

Note : N'oublie pas de désélectionner les réponses qui ne réponde pas à ton problème....lol...

A+
Exploreur

 Linux a un noyau, Windows un pépin

oui c bon merci...je vois que t doué  VBA, je vais avoir besoin plus tard  lol

Re,

Ah non, VBA c'est pas ma partie....mais il y a des similitudes avec VB6....

A+
Exploreur

 Linux a un noyau, Windows un pépin

Bonjour et salut à Exploreur ...

Alors : "ticliques" 1 fois, "ticliques" 2 fois, etc... "ticliques" nfois.. et ...
Tu l'as n fois dans la listbox d' accueil ...

Vaut peut-être mieux prévoir le coup (avec, par exemple, une chaine de caractères du type "/index cliiqué/autre index cliqué/..... etc...
et jouer avec if instr(lachaine "/index/") =  0  pour s'assurer de ce que pas encore utilisé

Ok merci!
..et coment faire pour rajouter à chaque fois une ligne de Trois colonnes dans la listBox2 à partir de la listBox1 , d'un TextBox et d'un optionButton ?
j'ai essayé :

         span(1, 1) = FiberType.Text
         span(1, 2) = spanValue.Text
    
        If DispersionMin.Value = True Then
            span(1, 3) = "Dmin"
        ElseIf DispersionMoy.Value = True Then
            span(1, 3) = "Dmoy"
        Else: DispersionMax.Value = True
            span(1, 3) = "Dmax"
        End If
    
        ListSpan.AddItem span

et àa marche pas !