Transférer une selection d'une liste à une autre

[Sonic_Diabolik]

Bonjour à tous ,

J'ai commencé les bases de données cette année, et la je suis sur un petit projet.

Je suis amenée à créer un formulaire, ou il a une liste, avec des informations dedans, à coté un bouton "ajouter" et à coté une autre liste vide.

Le truc c'est que quand je sélectionne des éléments de ma première liste, en cliquant sur ce bouton "ajouter", ces éléments doivent glisser dans ma deuxième liste.

On rencontre ce genre de truc assez souvent, mais je ne pensais pas que j'allais galérer sur un tel truc !

Si j'arrive a faire ce truc, ça m'enlèverai une sacrée épine du pied. J'ai feuilleté des bouquins, chercher sur internet, j'ai pas trouvé mon bonheur.

En espérant que l'un ou l'une de vous puisse m'aider !

Merci,
Elo.

[FreeAccess]

Bonjour....

Prend l'habitude de faire quelque recherche dans la ..très souvent une partie des réponses s'y trouve...
Tu peux également effectuer une recherche dans les anciens posts grâce à la touche [Recherche] présente en haut de chaque page....

...des éléments de ma première liste, en cliquant sur ce bouton "ajouter", ces éléments doivent glisser dans ma deuxième liste.

Inspire toi de cette solution.....
http://access.developpez.com/sources...erListeRequete

Bonne continuation...

[Sonic_Diabolik]

Ok bah merci ...

J'vais essayer depuis ça. Désolée, je ne l'avais pas trouvé ce truc.

Elo.

[Sonic_Diabolik]

Bonjour,

J'ai suivi ce truc :

Option Compare Database

Private Sub TransposerElement(lstSource As ListBox, lstDestination As ListBox, _
Optional LimiteSelection As Boolean = True)

Dim i As Integer
Dim strTemp As String
With lstSource
For i = 0 To .ListCount - 1
'si l'élement est sélectionné dans la liste source
If .Selected(i) Or Not LimiteSelection Then
lstDestination.RowSource = lstDestination.RowSource & .Column(0, i) & ";"
Else
'sinon, le conserve dans la liste source
strTemp = strTemp & .Column(0, i) & ";"
End If
Next i
'Affecte la nouvelle source à lstSource
.RowSource = strTemp
End With
End Sub

'Copie les élements sélectionnés vers la liste de droite
Private Sub GaucheDroite_Click()
TransposerElement lstGauche, lstDroite
End Sub


'Copie les tous élements vers la liste de droite
Private Sub GaucheDroiteTous_Click()
TransposerElement lstGauche, lstDroite, False
End Sub



'Copie les élements sélectionnés vers la liste de gauche
Private Sub DroiteGauche_Click()
TransposerElement lstDroite, lstGauche
End Sub



'Copie les tous élements vers la liste de gauche
Private Sub DroiteGaucheTous_Click()
TransposerElement lstDroite, lstGauche, False
End Sub

Donc ca c'est lmon module que j'ai créé.
J'ai attribué la premiere fonction a mon boutton "ajouter", et quand je clique sur le bouton, il m'ouvre ma feuille de module en mode VB ...

A quoi c'est du ?

J'ai crée une macro, qui ouvre mon module, avec le nom de la classe, le nom de la fonction ...
Le bouton ajouter va executer ma macro donc. Et quand je clique j'ai ma fenetre vb qui s'ouvre... au lieu d'ajouter mes éléments dans la liste ...

Quelqu'un peut m'aider ?

[FreeAccess]

Bonjour.....

Pas très clair tout cela......
Quand tu nous dit....

...J'ai attribué la premiere fonction a mon boutton "ajouter",

..tu as donc bien assigné le code ci-dessous, sur l'événement "Sur clic" de ton bouton permettant de passer les éléments sélectionnés de la liste de gauche vers la liste de droite......ton bouton devant être nommé "GaucheDroite"

'Copie les élements sélectionnés vers la liste de droite
Private Sub GaucheDroite_Click()
TransposerElement lstGauche, lstDroite
End Sub
 

J'ai crée une macro, qui ouvre mon module, avec le nom de la classe, le nom de la fonction ...

.......je pense qu'ici tu confonds certaine chose.....

Le code proposé est simplement à saisir dans la partie code de ton formulaire et comme expliqué plus haut, il te suffit d'affecter à l'événement "Sur clic" de tes différents boutons de contrôles, la partie de code qui leurs correspondent.

Regarde correctement le fichier ZIP fournie avec l'exemple......