UserForm "TextBox = ComboBox"

Bonjour,

Je me tourne vers vous car j'ai reçu une demande et je ne sais pas comment faire car je ne maîtrise pas bien les Userforms.....

J'ai le code ci-dessous qui me permet de choisir une liste de numéro dans la ComboBox, j'ai inséré un TextBox et je voudrais y afficher l'intitulé du numéro une fois celui-ci sélectionné.

Cet intitulé se trouve dans la colonne n+1 sur la même feuille "numéro".

J'espère avoir été assez clair...

D'avance merci pour votre aide.

'selection du numéro
Sheets("numéro").Select

'nba = permet de remplir la liste

For nba = 2 To 200
If Cells(nba, 1) = "" Then
GoTo line5
Else
UserForm1.ComboBox2.AddItem Cells(nba, 1)
End If
Next nba

La textbox est dans l'userform également?

As-tu un fichier exemple?

Oui le TextBox est dans le Userform aussi.

Bonjour,

Il eut été préférable de citer la procédure complète plutôt qu'un extrait...

Mieux aussi d'indenter le code et d'éviter des Select inutiles et parasites...

    With Sheets("numéro")
        For nba = 2 To 200
            If .Cells(nba, 1) = "" Then
                GoTo line5
            Else
                UserForm1.ComboBox2.AddItem Cells(nba, 1)
            End If
        Next nba
    End With

Private Sub ComboBox2_Change()
    Dim n%
    n = ComboBox2.ListIndex
    If n >= 0 Then
        TextBox1.Value = Worksheets("numéro").Cells(n  + 2, 2)
    Else
        TextBox1.Value = ""
    End If
End Sub

Cordialement.

Merci du conseil

La formule fonctionne parfaitement

Encore merci du coup de main.