Discussion :

[Décibel]

Bonjour,

Toujours pour ma caisse tactile, je souhaiterai trouver le code VBA pour pouvoir faire bouger une liste de données dans une "zone de liste" sur la fonction "souris appuyèe".
C'est à dire que j'ai une zone de liste avec mes articles dedans, mais pour attraper l'ascenceur avec les doigts, ce n'est pas simple, alors si il est possible de cliquer dans la liste et de déplacer les données vers le haut ou le bas pour toutes les voirs ce serait top...

Merci !!!!

[Tofalu]

C'est déjà le cas, si tu déplaces la souris appuyée vers le bas, plus bas que le bas de la liste, la sélection défile vers le bas.

[Décibel]

Super !
Je n'avais pas vu cette possibilité, mais sinon avoir un code qui te gère un déplacement sur le clic appuyé et souris déplacé c'est trop complexe ?

[Tofalu]

Mes tests ont conduit à un blocage de l'uc et au redemarrage forcé du PC

[Décibel]

Woarrf...
Pour autant ce doit être possible...
Un truc comme l'iphone où tu faits déplacer les données avce une inertie...

[Décibel]

J'ai fais simple, 2 boutons qui permettent de faire un scrol dans la liste...

Le code pour le bouton vers le bas

Code :

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

1
2
3
4
5
6
7
On Error Resume Next
    Dim vSelected As Long
    vSelected = Me.Liste.ItemsSelected(0) ' le cas d'une zone de liste
    If vSelected < Me.Liste.ListCount - 1 Then
    vSelected = vSelected + 10 'pour aller de 10 lignes en 10 lignes
    Me.Liste.Selected(vSelected) = True
    End If

Le code pour le bouton vers le haut

Code :

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

1
2
3
4
5
6
7
On Error Resume Next
    Dim vSelected As Long
    vSelected = Me.Liste.ItemsSelected(0) ' le cas d'une zone de liste
    If vSelected < Me.Liste.ListCount - 1 Then
    vSelected = vSelected - 10 'pour aller de 10 lignes en 10 lignes
    Me.Liste.Selected(vSelected) = True
    End If

Ce n'est pas de moi...