ListBox vers TextBox d'un autre USF

[apdf1]

Bonjour,

Voila j'ai 2 USF, l'un avec des textBox et l'autre avec ListBox Multiselect
j'aimerais envoyer les items selectionner vers les textBox de l'USF 1

Un très grand merci à tout ceux qui pourront m'aider...

Cordialement

Max

 

[apdf1]

Re : ListBox vers TextBox d'un autre USF

Bonjour,

Voila j'ai 2 USF, l'un avec des textBox et l'autre avec ListBox Multiselect
j'aimerais envoyer les items selectionner vers les textBox de l'USF 1

Un très grand merci à tout ceux qui pourront m'aider...

Cordialement

Max

 

[apdf1]

Re : ListBox vers TextBox d'un autre USF

Bonjour Jean Marcel

Excuse moi j'ai mis le fichier en xls

@+

Max

 

[apdf1]

Re : ListBox vers TextBox d'un autre USF

Re,

Super je te remercie infiniment Bonne soirée

@+

Max

 

[Guest]

Re : ListBox vers TextBox d'un autre USF

Bonsoir,

Brut de fonderie:

Private Sub BnValider_Click()
    Dim L As Long, i As Integer
    i = 1
    For L = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(L) Then
            With UserForm2.Controls("TextBox" & i)
                If .Visible Then
                    .Text = Me.ListBox1.List(L, 0)
                    i = i + 1
                End If
            End With
        End If
    Next
    Unload Me
End Sub
[/FONT]

A+

 

[apdf1]

Re : ListBox vers TextBox d'un autre USF

Bonsoir Hasco,

Je remercie ces sympa bonne soirée

@+

Max