VBA Renvoie variable d'une List Box dans une Text Box

[Bens7]

Bonjour a tous :
Voila j;ai un petit userform pour integrer mes frais j'a'imerais lorsque dans la
Listbox : carte = 1111111 la text box compte affiche tous seul 681111
si carte= 222222222 la text box compte affiche tous seul 304444
si carte= 333333333 la text box compte affiche tous seul 143444

Merci fichier en pieces jointes

 

[Bebere]

Re : VBA Renvoie variable d'une List Box dans une Text Box

bonjour Bens

Private Sub carte_Change()

    If carte <> "" Then
        Select Case Me.carte
        Case "111111111"
            Me.TextBox2 = 681111

        Case "2222222222"
            Me.TextBox2 = 143333

        Case "33333333333"
            Me.TextBox2 = 304444

        End Select
    End If

End Sub