Discussion :

[Ricardo01]

Bonjour à tous,
je débute en VBA et je me demandais comment serait il possible de transférer des items d'une liste A vers une liste B.
Ces items sont rangés à une place bien précise sur ma feuille et je voudrais que si je transfert des données vers une liste B que ces données soient rangées au bon endroit.
Merci d'avance

Bonjour à tous,
Serait il possible d'utiliser un SpinButton?

[Krovax]

Le problème n'est pas ce que tu vas utiliser quelque soit le moyen il te faut une macro qui réalise ce que tu veux. Et ensuite la seul question est comment tu la lance? Ca peut etre a l'ouverture du fichier, la modification d'une cellule, un double clique, un bouton , le passage de la sourie sur une zone, un spin button......

Je n'ai pas ouvert ton fichier (je le fait très rarement) donc pour ce qui est de la macro je ne peux pas t'aider
Ha oui et si tu veux des réponse a ta question ne met pas le sujet de delestage)

[Ricardo01]

Bonjour,
Je pense utilisé un commandbutton avec ce code

Code :

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

1
2
3
4
5
6
Private Sub CommandButton3_Click()
    Dim ligne As Variant
    Dim i As Integer
        i = ListBox1.ListIndex
    ListBox2.AddItem ListBox1.List(i, 0)
End Sub

Le seul soucis c'est que je voudrais l'item qui a été ajouté à la listbox2 disparaisse de listbox1, quelqu'un a t-il une idée?
Merci d'avance

[Krovax]

Code :

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

ListBox1.RemoveItem (i)

pour plus d'info sur les listebox
http://silkyroad.developpez.com/VBA/...serForm/#LII-G

[Ricardo01]

Je te remercie pour ta réponse si rapide, le code marche et merci pour le lien.
Cependant juste un petit bémol lorsque je clique sur le bouton de commande sans qu'aucun item soit sélectionné le premier item est transféré dans la deuxième liste ect... donc le bouton ne prend pas en compte les sélections de la liste

[Krovax]

C'est pas rigolo de toujours donner la solution je vais essayer de te montrer comme la trouver tout seul
Essaye de faire un test ajoute un bouton a ton user form
Avec ce code

Code :

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

1
2
3
Private Sub CommandButton2_Click()
MsgBox ListBox1.ListIndex
End Sub

Essaye de ne rien sélectionner
et regarde la valeur de listindex

Ensuite tu n'a plus cas faire un test pour que tu ne fasse quelque chose que si listindex ne vaux pas cette valeur la.
Et la tu aura gagné