Discussion :

[GADENSEB]

Bonjour,
J'ai un userform avec plusieurs textbox, listbox..... pour remplir une base de données
Je souhaiterais lier deux listbox :

si la première est remplie la valeur se recopie dans la seconde

Pour info, en début d'userform, j'initialise les listbox par REMPLIR me. LISTBOX1........

Code :

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

listbox2.Value = listbox1.Value

QQn aurait une idée ?

Merci

Seb

[mercatog]

Pour remplir sans doublons ListBox2 suite aux sélections simples de ListBox1

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
Private Sub ListBox1_Change()
Dim Existe As Boolean
Dim i As Integer
 
If Me.ListBox1.ListIndex > -1 Then
    With Me.ListBox2
        For i = 0 To .ListCount - 1
            If .List(i, 0) = Me.ListBox1.Value Then
                Existe = True
                Exit For
            End If
        Next i
        If Not Existe Then .AddItem Me.ListBox1.Value
    End With
End If
End Sub

[GADENSEB]

Super code merci !

Mais cela ne semble pas faire ce que veux ....
Si je schématise

Si listbox1 différent de "" alors listbox2 = valeur de listbox1 -->en dynamique pendant la saisie dans l'USERFORM
sinon liste de choix
..... est plus clair ?

[mercatog]

..... est plus clair ?

Non

[GADENSEB]

mince lol

Je veux copier la valeur du tlistbox1 dans le listbox2 tout en gardant la possibilité des listes de choix .....

[mercatog]

Par copier tu sous entends ajouter l'item sélectionné dans Listbox1 vers Listbox2. C'est ça?

[GADENSEB]

Par copier, j'entends la valeur inscrite .... aprés sélection dans la liste de choix

[mercatog]

C'est à dire quand tu sélectionnes une valeur (ou item) de ListBox1, tu veux que cet item soit ajouté dans ListBox2. C'est ça?

[GADENSEB]

YEEEEEEEEEESSSS §

[mercatog]

Encore une question, si l'utilisateur sélectionne la même valeur dans ListBox1 plusieurs fois, tu veux que cette valeur soit ajoutée une seule fois dans ListBox2 ou autant de fois que de fois sélectionnée?

[GADENSEB]

Petite rectification ..... c'est une combobox et non pas une listbox
Désolé la journée à été rude .....

Donc qu'une seule sélection dans la combobox1 qui se répercute dans la combobox2.......

Vivement que je me couche ce soir

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub ComboBox1_Change()
 
If Me.ComboBox1.ListIndex > -1 Then
    With Me.ComboBox2
        .Value = Me.ComboBox1.Value
        If .ListIndex = -1 Then .AddItem Me.ComboBox1.Value
    End With
End If
End Sub

[GADENSEB]

Parfait un grand merci à toi !

Bonne fin d'aprem

Seb