userform / copier la valeur d'une listbox dans une autre listbox quand la première est remplie

Version imprimable

23/04/2014, 14h02
GADENSEB

userform / copier la valeur d'une listbox dans une autre listbox quand la première est remplie

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:

listbox2.Value = listbox1.Value

QQn aurait une idée ?

Merci

Seb

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

Code:

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

23/04/2014, 14h33
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 ?
23/04/2014, 15h54
mercatog

Citation:

..... est plus clair ?

Non
23/04/2014, 15h58
GADENSEB

mince lol

Je veux copier la valeur du tlistbox1 dans le listbox2 tout en gardant la possibilité des listes de choix ..... :D
23/04/2014, 16h14
mercatog

Par copier tu sous entends ajouter l'item sélectionné dans Listbox1 vers Listbox2. C'est ça?
23/04/2014, 16h17
GADENSEB

Par copier, j'entends la valeur inscrite .... aprés sélection dans la liste de choix
23/04/2014, 16h28
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?
23/04/2014, 16h31
GADENSEB

YEEEEEEEEEESSSS § :lol:
23/04/2014, 16h34
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?
23/04/2014, 16h44
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

Code:

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

23/04/2014, 16h54
GADENSEB

Parfait un grand merci à toi !

Bonne fin d'aprem

Seb