Discussion :

[bb62]

Bonjour tout le monde,

Je me poser une petite question :

Est-il possible de relier des boutons de déplacements à une zone de liste?

Je m'explique voilà j'ai une zone de liste et j'aimerais sans cliquer sur une ligne me déplacer avec l'aider d'un bouton de déplacement.

Merci d'avance.

[Tofalu]

Bonjour,

c'est tout a fait possible, regarde du coté de la propriété Selected de la zone de liste. Il suffit de lui passer l'indice et de dire si on la selectionne ou pas.

[bb62]

Pourrais tu m'éclairer un peu car la je nage, montre moi un exemple.

Merci beaucoup.

[Tofalu]

Et bien pour selectionner la deuxieme ligne :

Code :

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

Mazone.selected(1)=true

Vous pouvez utiliser la propriété Sélectionné (Selected) dans Visual Basic pour déterminer si un élément d'une zone de liste est sélectionné. Long en lecture/écriture.

expression.Selected(lRow)

expression Obligatoire. Expression renvoyant l'un des objets figurant dans la liste Application.

lRow Obligatoire Long. L'élément dans la zone de liste. Le premier élément est représenté par zéro (0), le second par un (1), etc.

Donc pour monter, il suffi d'incrementer le paramètre lRow, pour déscendre, décrementer

[bb62]

J'ai essaier ton code mais il ne marche po.
Je m'explique lorsque je suis sur la 1ère ligne le code que tu m'as donner ne marche po alors que lorsque je me place sur la 2ème ligne le code marche mais dans le sens contraire il monte au lieu de décendre.

Merci d'avance.

[Tofalu]

On peut voir ton code ?

Le code que je t'ai donné est juste un exemple d'accés à la propriété bien entendu, il faut adapter.

Avec par exemple sur le bouton descendre:

Code :

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

1
2
3
4
5
6
On error goto err
dim I as integer
i=maliste.itemsSelected(0)
maliste.Selected(I+1)=true
maliste.Selected(I)=false
err:

[bb62]

Merci ça marche pour décendre et pour monter c le même genre de code mais en mettant -1 c ça?

[bb62]

J'ai tout essayer et ça marche impect.

Mais une petite dernière question : Comment arrêter la selection sur le 1er et le dernieré ligne?

Merci d'avance.

[Tofalu]

Il suffit de tester si tu es à la fin ou non.

Code :

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

1
2
3
4
5
6
7
8
On Error GoTo err
Dim I As Integer
I = Liste0.ItemsSelected(0)
If I < Liste0.ListCount - 1 Then
Liste0.Selected(I + 1) = True
Liste0.Selected(I) = False
End If
err:

[Tofalu]

Un petit clic sur le bouton resolu en bas à gauche serait le bienvenu. Merci

[bb62]

Je ne peut pas encore mettre le Tag résolu car je doit tester le code Lundi alors je vous tiendrez au courant.

A Lundi et bon week-end à tous.

[bb62]

Bonjour à tous,

j'ai tester ton code Tofalu ça marche pour s'arrêter au dernier mais pour s'arrêter au premier le code c quoi?

Merci d'avance.

Bisous à tous

[bb62]

:trouve:

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub Commande54_Click()
On Error GoTo Err_Commande54_Click
 
On Error GoTo err
Dim I As Integer
I = Liste29.ItemsSelected(0)
If I > 1 Then
Liste29.Selected(I - 1) = True
Liste29.Selected(I) = False
End If
err:
 
 
Exit_Commande54_Click:
    Exit Sub
 
Err_Commande54_Click:
    MsgBox err.Description
    Resume Exit_Commande54_Click
 
End Sub

Merci à tous.

Bonne journée.

Bisous.

BB.