Le code à placer dans le Private Sub TextBox1_Change()
Code:
Private Sub TextBox1_Change()
Worksheets("feuil1").Activate
TextBox1 = Replace(TextBox1.Value, ".", ",")
Set C = ActiveSheet.Cells.Find(What:=TextBox1.Value)
TextBox2.Value = C.Offset(0, 1)
TextBox3.Value = C.Offset(0, 2)
End Sub
Si ce n'est pas la réponse attendue soit plus explicite
bonjour tout le monde,
pourquoi ne pas remplir ta textbox 4 et apres rempplir ta cellule?
je te renvoie ton fichier avec une solution, mais elle ne te convient peut etre pas
juju
re
ici la macro 'calcul' recalcule la valeur de la textbox 4, cette macro agit a la fin du remplissage de la TB2 et TB3
je l'ai appelé 'calcul' comme j'aurai pu l'appeler 'remplissage_tb4'