Discussion :

[chikitin]

Bonjour à tous,
est-ce que c'est possible de lier l'index d'un élément dans ListBox1 à PLUSIEURS éléments dans ListBox2, et comment coder celà?
J'ai essayé ceci mais ça ne fonctionne pas

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
Option Explicit
 
Private Sub UserForm_Initialize()
ComboBox1.Clear
Dim J As Integer
      'Définit le nombre de lignes dans la colonneH et rempli le cbx
    For J = 1 To Range("H65536").End(xlUp).Row
    ComboBox1 = Range("H" & J)
    'filtre les doublons
    If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("H" & J)
    Next J
     ComboBox2.Clear
End Sub
 
 
Private Sub ComboBox1_Click()
    'Remplissage Combo2
    Select Case ComboBox1.Value
    Case 1
    ComboBox2.AddItem "CasAA"
    ComboBox2.AddItem "CasAB"
    Case 2
    ComboBox2.AddItem "CasBA"
    ComboBox2.AddItem "CasBB"
    Case 3
    ComboBox2.AddItem "CasCA"
    ComboBox2.AddItem "CasCB"
    End Select
 
End Sub

[patricktoulon]

bonjour

si j ai bien compris tu voudrais en cliquant sur la combo1 ajouter plusieures ligne dans la combo2

pour cet question c'est possible


maintenant si en cliquant sur la combo2 tu veux reunir plusieur ligne dans une variables c'est possible aussi

mais si la condition est simple ca peut aller maintenant si la condition est aleatoire tu va perdre des cheveux


donne un bout de fichier en expliquant voir meme un exemple on pourra peut etre t aider



au plaisir

[chikitin]

Bonjour Patrick, Merci pour ta réponse, les correspondances ne sont pas aléatoires,c'est fixe, toujours les mêmes Items qui correspondent, seulement il y a pas mal de données,
Donc, pour un cas A choisi dans combo1, correspondront 10 cas dans combo2et ainsi de suite, j'ai réussi à afficher les 10 cas en énumérant chaque Item dans le code, mais c'est long.......(avec select case, case.....)
Je ne sais pas si c'est clair ce que je dis?

[patricktoulon]

oui c'est parfaitement clair


avec tes select cases tu pourais utiliser une variable

si la variable ceci

la combobox cela

cela dit

j'ai peu etre une autre solution bien plus simple et qui diminurais gravement le code et le temp d'execution

a tu penser a utilise une combobox a multicolonne puisque tes corespondances sont fixes reserve une colonne pour y placer une variable dans chaque ligne
et en fonction de la variable que tu choisi dans le combo1 tu cherche toutes les lignes de la combo2 qui ont la meme et tu affiche que les colonnes qui te serve ca fera une sorte de repere caché je sais pas si tu ma compris

[chikitin]

J'ai bien compris ce que tu dis mais malheureusement mes connaissances en VBA ne sont pas suffisantes pour savoir faire ce que tu dis. je sais que je peux trouver par ComboBox.Index chaque Item mais dans le deuxième où j'ai fais un ListBox pour permettre la multiligne, je ne sais pas comment lier un Index à plusieurs index??
Quand tu dis "en fonction de ce que tu choisis dans la ligne de la colonne de Combo1, tu cherches celles qui a la même dans combo2," la même quoi au fait?

[mercatog]

les données de combo1 sont issues de la colonne H, et quelle est la source de données de combo2?