XL 2010 stock

Mody200

XLDnaute Junior
Bonjour
Quand je choisis dans combobox1 le nom et textbox1 le code, la dernière valeur apparaît dans textbox3 comme dans la feuille, mais il y a une valeur différente
Sachant qu'il y a des données en double, mais je veux un autre événement
 

Pièces jointes

  • 28433ab1-10b5-435e-9b15-d330f874e090.jpg
    28433ab1-10b5-435e-9b15-d330f874e090.jpg
    210.7 KB · Affichages: 17
  • Stock.xlsm
    17.9 KB · Affichages: 6
Dernière édition:

M12

XLDnaute Accro
Bonjour,
Si c'est la dernière ligne des valeurs renseignées que tu cherches, ôte le Exit Sub de ta macro Change
VB:
Private Sub TextBox1_Change()

'cod vba
Dim iii
'TextBox11 = Null
'TextBox82 = Null
Sheet1.Activate
iii = 2
Do Until Sheet1.Cells(iii, "b").Text = ""
    If Me.TextBox1.Text = Sheet1.Cells(iii, "b").Text Then
      Cells(iii, "b").Activate
       
Me.TextBox2 = ActiveCell.Offset(0, 1).Text
Me.TextBox3 = ActiveCell.Offset(0, 2).Text

'Exit Sub (à supprimer)
    End If
    iii = iii + 1
   
Loop


End Sub