Déplacer item multicolonne dans listbox

[2susy]

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?

'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]

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 :

'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]

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]

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]

Re : Déplacer item multicolonne dans listbox

Re,
Salut pierrejean,🙂

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

Cordialement

 

[pierrejean]

Re : Déplacer item multicolonne dans listbox

Re

Salut Spit 🙂

très joli travail !!!

 

[Spitnolan08]

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 :

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

Cordialement