XL 2010 Ventes clients

[hema300]

Bonjour
pouvez-vous m'aider
Lors de la sélection d'un nom de client spécifique dans ComboBox1
Apporte la dernière valeur répertoriée dans la feuille à textbox1

 

[dysorthographie]

Bonjour,
Textbox1= turc et na!

 

[hema300]

J'ai joint le fichier, aidez-moi s'il vous plaît

 

[hema300]

 

[hema300]

Private Sub ComboBox1_Change()
Dim ws2 As Worksheet
    Set ws2 = Sheets("Sheet2")
    Dim lastrow As Long
    lastrow = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
    Dim i As Integer
    Dim foundValue As String
    TextBox1.Value = ""
    For i = 2 To lastrow
        If ws2.Cells(i, 1).Value = ComboBox1.Value Then
            foundValue = ws2.Cells(i, 2).Value
        End If
    Next i
    TextBox1.Value = foundValue
    End Sub

 

[hema300]

Bonjour
Ezra, parce que j'étais pressé
Parce que mes frères sur ce forum sont occupés
je demande pardon
Le problème a été résolu en dehors du forum et je voulais partager la solution avec vous