Discussion :

[cwain]

Bonjour à tous,

Je suis à la recherche d'un type de contrôle dans une userform qu'on voit régulièrement dans certains menus et que j'ai déjà vu sur quelques userforms, mais où ??
Ce contrôle est une flèche horizontale. Le but est qu'en cliquant sur ce contrôle, les éléments sélectionnés dans la liste de gauche aillent dans la liste de droite. Inversement, un autre contrôle avec une flèche dans l'autre sens permet de faire passer les élements sélectionnés de la liste de droite dans la liste de gauche. Vous voyez ce que je veux dire ?
En fait ce n'est sans doute qu'un simple CommandButton qu'il faut configurer, mais avec des flèches dessus. Quelqu'un sait comment accéder à ce symbole ?

Merci d'avance

Cwain

[cwain]

hum, je me suis trouvé une solution de rechange (si ça se trouve, c'est même la vraie solution ?). J'utilise 2 CommandButtons, et j'utilise la police Wingdings avec la lettre è (flèche droite) pour l'un et la lettre ç (flèche gauche) pour l'autre.
Il me reste juste à les configurer
Si toutefois vous aviez d'autre solutions à partager (du genre avec le code derrière ), n'hésitez pas...

Cwain

[Invité]

Bonjour

Tu as la solution du contrôle image, avec la fonction "LoadPicture", tu pourras insérer une image.

Tu as l'évènement click.

Pour mettre correctement ton image, il faut jouer sur les propriétés :
- PictureSizeMode : fmPictureSizeModeStretch
- BrodereStyle à none
- Backcolor réglé sur celle de l'userform

Starec

[cwain]

Merci Starec.
Pour l'instant je vais rester là-dessus, l'horloge tournant, par contre je me galère un peu à mettre le code derrière, mes 2 listbox étant multicolonnes, avec possibilité de sélectionner plusieurs lignes... Mais bon, je vais déjà regarder dans les archives s'il n'y a pas qqch là dessus...

[cwain]

OK je viens de finir mon code (finalement en se retroussant les manches et avec l'aide de cette page, j'y suis arrivé).
Du coup je le mets là, dès fois que ça serve à quelqu'un.
cmdDroite (flèche droite) : fait passer un élément de la liste de gauche (lstFiches, 2 colonnes) dans la liste de droite (lstSelect, 2 colonnes)
cmdGauche (flèche gauche) : même chose dans l'autre sens
Je mets les codes pour chaque bouton, même si il suffit simplement d'inverser les noms des listes : lstFiches et lstSelect

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub cmdDroite_Click()
Dim Z As Integer
Dim NbLigList As Integer
Dim NbSelect As Integer
 
NbSelect = 0
NbLigList = lstFiches.ListCount - 1
For i = 0 To NbLigList
    If lstFiches.Selected(i - NbSelect) = True Then
        lstSelect.AddItem "Ligne" & i - NbSelect
        For Z = 0 To 1
            lstSelect.List(lstSelect.ListCount - 1, Z) = lstFiches.List(i - NbSelect, Z)
        Next
        lstFiches.RemoveItem (i - NbSelect)
        NbSelect = NbSelect + 1
        NbLigList = NbLigList
    End If
Next
lstSelect.ColumnWidths = "30;240"
End Sub
 
Private Sub cmdGauche_Click()
Dim Z As Integer
Dim NbLigList As Integer
Dim NbSelect As Integer
 
NbSelect = 0
NbLigList = lstSelect.ListCount - 1
For i = 0 To NbLigList
    If lstSelect.Selected(i - NbSelect) = True Then
        lstFiches.AddItem "Ligne" & i - NbSelect
        For Z = 0 To 1
            lstFiches.List(lstFiches.ListCount - 1, Z) = lstSelect.List(i - NbSelect, Z)
        Next
        lstSelect.RemoveItem (i - NbSelect)
        NbSelect = NbSelect + 1
        NbLigList = NbLigList
    End If
Next
lstSelect.ColumnWidths = "30;240"
End Sub