Déplacer les lignes d'une listview

christian.bedere · 11 Avril 2009

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 · 12 Avril 2009

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 · 12 Avril 2009

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 · 12 Avril 2009

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é.

Code:

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 · 13 Avril 2009

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 · 13 Avril 2009

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

Déplacer les lignes d'une listview

christian.bedere

XLDnaute Occasionnel

Pièces jointes

cibleo

XLDnaute Impliqué

christian.bedere

XLDnaute Occasionnel

bqtr

XLDnaute Accro

Pièces jointes

christian.bedere

XLDnaute Occasionnel

bqtr

XLDnaute Accro

Pièces jointes

Discussions similaires