Déplacer item multicolonne dans listbox

2susy · 15 Mai 2008

Bonjour au gens du forum !

nouvelle question après plusieurs jours de recherche infructueuses !
Je souhaite à l'aide de boutons flêchés monter et descendre des item dans une listbox.

J'ai trouvé une partie de code mais dans la mesure où je suis en multicolonne, il ne fonctionne que partiellement ! Y'a-t-il une bonne âme susceptible de m'aider?

Code:

'Faire descendre un élément
With List1
    .AddItem .Text, .ListIndex + 1
    .RemoveItem .ListIndex
End With
'Faire monté un élément
With List1
    .AddItem .Text, .ListIndex - 1
    .RemoveItem .ListIndex
End With

Merci d'avance à tous !!
Susy

Spitnolan08 · 15 Mai 2008

Re : Déplacer item multicolonne dans listbox

Bonjour,

En espérant que ta demande sera plus importante que ta précédente question et que tu ne l'oublies pas...

Si bien compris pour une listbox de 3 colonnes :

Code:

'Faire descendre un élément
With ListBox1
    .AddItem .Text, .ListIndex + 2
          For j = 2 To 3
             .List(.ListIndex + 2, j - 1) = .List(.ListIndex, j - 1)
          Next
    .RemoveItem .ListIndex
End With

A condition que ta macro d'insertion ne soit pas appelée par un évènement lié à la listbox.

Cordialement

Edit : Mais prends la bonne habitude à l'avenir de joindre un fichier exemple...

pierrejean · 15 Mai 2008

Re : Déplacer item multicolonne dans listbox

bonjour 2suzy
Salut Spit

Ayant fait un petit exemple (avec une methode differente de celle de Spit)
je la poste (avec la methode Spit)

2susy · 15 Mai 2008

Re : Déplacer item multicolonne dans listbox

Super merci c'est parfait, j'avançais un peu de mon côté aussi mais je ne parvenais pas à ce fabuleux résultat !!

merci à tous les deux !! et bonne soirée

Spitnolan08 · 15 Mai 2008

Re : Déplacer item multicolonne dans listbox

Re,
Salut pierrejean,

Puisque j'ai fait un exemple avec des spinbuttons je poste...

Cordialement

pierrejean · 15 Mai 2008

Re : Déplacer item multicolonne dans listbox

Re

Salut Spit

très joli travail !!!

Spitnolan08 · 15 Mai 2008

Re : Déplacer item multicolonne dans listbox

Re,

Merci pierrejean mais il y a quelques imperfections dont celle ci :
Pour éviter un bug en cas de non sélection d'un item dans la listBox, remplacer la 1ère ligne par :

Code:

'***Faire descendre ou monter un élément
If SpinButton1.Value = 0 Or ListBox1.ListIndex = -1 Then GoTo 1

Cordialement

Déplacer item multicolonne dans listbox

2susy

XLDnaute Junior

Spitnolan08

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

Pièces jointes

2susy

XLDnaute Junior

Spitnolan08

XLDnaute Barbatruc

Pièces jointes

pierrejean

XLDnaute Barbatruc

Spitnolan08

XLDnaute Barbatruc

Discussions similaires