Déplacer les lignes d'une listview

[christian.bedere]

Bonsoir le forum !!!


J'aimerai pouvoir afficher dans une listview les données d'une feuille de calcul et pouvoir les déplacer les unes en dessous des autres manuellement, par glisser-déposer, afin après de pouvoir les coller dans une feuille.

Pouvez-vous m'aider en me donnant un code pour les déplacer aisément.
je vous remercie bien
Bonne soirée

Christian

 

[cibleo]

Re : Déplacer les lignes d'une listview

Bonjour le forum,
Bonjour christian.bedere,

Un fichier sorti du grenier du forum signé Hervé 😀
Une Listbox associée à un spinbutton.
Ok, ce n'est pas une listview mais on peut s'en inspirer et puis cela peut servir à d'autres.

https://www.excel-downloads.com/threads/monter-et-descendre-une-liste.31728/

Bon week-end à tous.
Cibleo

 

[christian.bedere]

Re : Déplacer les lignes d'une listview

Salut Cibleo

Et merci pour l'intérêt apporté à mon post.
Malheureusement, en appliquant le code de la listbox à la listview, cela ne colle pas
Je poursuis les recherches.
Merci bcp !
Kiki

 

[bqtr]

Re : Déplacer les lignes d'une listview

Bonsoir Christian, cibleo

Un exemple de code avec un spinbutton adapté pour une listview à 3 colonnes.
Il suffit de sélectionner la ligne à manipuler et de clicker sur le bouton du spinbutton souhaité.

Private Sub SpinButton1_SpinDown()

Dim TabDown(3)
Dim Numero As Integer

If ListView1.SelectedItem Is Nothing Then Exit Sub

With ListView1
   TabDown(0) = .ListItems(.SelectedItem.Index).Text
   TabDown(1) = .ListItems(.SelectedItem.Index).ListSubItems(1).Text
   TabDown(2) = .ListItems(.SelectedItem.Index).ListSubItems(2).Text
   Numero = ListView1.SelectedItem.Index
    If Numero = .ListItems.Count Then Exit Sub
    .ListItems.Remove (.SelectedItem.Index)
    .ListItems.Add Numero + 1, , TabDown(0)
    .ListItems(Numero + 1).ListSubItems.Add , , TabDown(1)
    .ListItems(Numero + 1).ListSubItems.Add , , TabDown(2)
    .ListItems(Numero + 1).Selected = True
End With

End Sub

Private Sub SpinButton1_SpinUp()

Dim TabUp(3)
Dim Numero As Integer

If ListView1.SelectedItem Is Nothing Then Exit Sub

With ListView1
   TabUp(0) = .ListItems(.SelectedItem.Index).Text
   TabUp(1) = .ListItems(.SelectedItem.Index).ListSubItems(1).Text
   TabUp(2) = .ListItems(.SelectedItem.Index).ListSubItems(2).Text
   Numero = ListView1.SelectedItem.Index
    If Numero < 2 Then Exit Sub
    .ListItems.Remove (.SelectedItem.Index)
    .ListItems.Add Numero - 1, , TabUp(0)
    .ListItems(Numero - 1).ListSubItems.Add , , TabUp(1)
    .ListItems(Numero - 1).ListSubItems.Add , , TabUp(2)
    .ListItems(Numero - 1).Selected = True
End With

End Sub

A+

Edit: ajout du ficher

 

[christian.bedere]

Re : Déplacer les lignes d'une listview

Bonjour Pierre-Olivier


MERCI !!

Je crois que ce n'est pas la première fois que vous volez à mon secours et j'en suis ravi
Impeccable cela fonctionne à merveille

Encore merci et belle journée à vous

Kiki

 

[bqtr]

Re : Déplacer les lignes d'une listview

Re,

Voici une autre version qui permet de mieux suivre la ligne manipulée.
Elle se met en gras.

Bonne journée