Discussion :

[halaster08]

Bonjour,

Je viens encore une fois ici pour essayer d'améliorer mon travail.

Je vais essayer d'être le plus clair possible.
J'ai actuellement un UserForm avec deux listes en cascade (par exemple pays puis région) et un bouton qui lance le remplissage d'un tableau suivant les selection sur la seconde liste.
Or pour l'instant je ne peut pas choisir des régions de pays différent.
Ce que j'aimerais donc c'est avoir deux boutons flèches gauche/droite qui me permettrait de remplir/déremplir une troisième liste qui contiendrait alors toutes les régions selectionnées peu importe le pays.
Voir l'image ci-dessous pour plus de clarté.


Si quelqu'un avait un lien vers un toto, exemple qui fait la même chose ou similaire, ou la gentillesse de m'expliquer comment je pourrais faire (Si c'est possible de la faire bien sur), je lui en serait particulièrement reconnaissant.

Merci d'avance.

[cerede2000]

Bonjour à toi

En attachement un petit exemple rapide
Classeur1.xls

Tu va voir c'est extrêmement simple

[halaster08]

Merci, effectivement ça a l'air beaucoup moins compliqué que ce que je pensais.
Je devrais pouvoir adapter ton code pour que ça marche avec une selection multiple et faire la flèche dans l'autre sens sans trop de problème.

Merci encore.

[cerede2000]

En effet, sélection multiple, il faut juste rajouter un parcours de la sélection lors de l'ajout dans l'autre liste.

Tu peux aussi affiner avec la suppression des éléments de la liste de départ lors du transfert vers la liste de destination ou au moins vérifier qu'il ne sont pas déjà présent pour éviter les doublons

[halaster08]

La suppression ne me parait pas très utile, par contre éviter les doublons c'est intéressant y a t il plus simple que de faire pour chaque ajour une boucle sur tous éléments déjà présents pour vérifier si il y est déjà?

[cerede2000]

Il existe une API qui permet de chercher une valeur dans une listbox:

Code :

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

1
2
3
4
5
6
7
8
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long   
Private Const LB_FINDSTRINGEXACT = &H1A2
 
Dim index as Integer
Dim searchString as String
searchString = "Target" & Chr(0)
 
index = SendMessage(ListBox1.hWnd, LB_FINDSTRINGEXACT , -1, searchString)