Sélection dans une list box

Version imprimable

17/03/2022, 22h44
Carabistouilleur

5 pièce(s) jointe(s)

Sélection dans une list box

Bonjour.
Je voudrais que l'utilisateur puisse faire des choix sur le principe de le Listbox suivant :
Pièce jointe 615692

j'ai déjà codé la partie qui permet de remplir la liste box de gauche, maintenant j'essaye de coder les actions engendrées par l'appui sur le bouton de flèche vers la droite.
J'ai autorisé les sélections multiples dans les propriétés de la list box de gauche, mais quand j'essaye le code j'ai ce message d'erreur:

Pièce jointe 615691

... Peut être la sélection n'a pas été prise en compte, ou le type de list box n'est pas le bon ,j'ai utilisé celui-ci :

Pièce jointe 615694

... À noter que cette list box ne comporte que ces événements:

Pièce jointe 615698

Merci de m'éclairer.
17/03/2022, 22h56
tee_grandbois

bonsoir,

Citation:

j'ai déjà codé la partie qui permet de remplir la liste box de gauche, maintenant j'essaye de coder les actions engendrées par l'appui sur le bouton de flèche vers la droite.
J'ai autorisé les sélections multiples dans les propriétés de la list box de gauche, mais quand j'essaye le code j'ai ce message d'erreur:

et nous crois-tu assez forts pour voir ce qui ne va pas sans montrer le code ?

Citation:

... Peut être la sélection n'a pas été prise en compte, ou le type de list box n'est pas le bon ,j'ai utilisé celui-ci :

en effet, on peut faire cela avec une zone de liste (non déroulante) native d'Access

Désolé j’avais effectivement prévu de mettre le code mais j’ai oublié.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub PasserTableDroite()
Dim oDb         As DAO.Database
Dim Lstbox      As Control
Dim LstboxTo    As Control
Dim varItm      As Variant
 
 
'Affectation objet base
Set oDb = CurrentDb
'd objet listbox
Set LstboxTo = Me.Controls("ListBoxWLselect")
Set Lstbox = Me.Controls("ListBoxWL")
 
For Each varItm In Lstbox.ItemsSelected '!!!!!!!!ERREUR!!!!!!!!!!!
    MsgBox Lstbox.ItemData(varItm)
Next varItm
 
 
End Sub

2 pièce(s) jointe(s)

Citation:

Envoyé par tee_grandbois

... en effet, on peut faire cela avec une zone de liste (non déroulante) native d'Access

Bonjour tee_grandbois.
Après quelques péripéties j'y suis enfin arrivé, je résume (pour garder une trace, même si je sais que le sujet avait déjà été abordé dans d'autres discussions) :
J'ai utilisé une list box plus exactement une "zone de texte" non déroulante.
Dès qu'on importe ce contrôle, s'ouvre une boîte de dialogue qui demande de pointer sur des tables ou de définir une table, il faut annuler. Ensuite dans les propriétés/Données il faut mettre le champ suivant à cette valeur:

Pièce jointe 615752

... Ce qui permet d'enrichir la zone de liste à partir d'un code VBA tel que celui-ci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub RemplirListBoxSeb() Dim oDb As DAO.Database Dim Lstbox As Control Dim tTable As DAO.TableDef 'Affectation objet base Set oDb = CurrentDb Set Lstbox = Me.Controls("ListBoxWL") 'Parcours des tables WL de la base For Each tTable In oDb.TableDefs If Left(tTable.Name, 2) = PREFIXE_WL Then Lstbox.AddItem (tTable.Name) 'Si je trouve une table WL je la rajoute dans la lisbox End If Next End Sub
Merci.
Au revoir, je clos la discussion.