j'essai de rechercher la valeur de TextBox1 dans la Colonne "A" de la Feuille "Test" et de mettre la valeur de la Colonne "C" de cette ligne dans le TextBox2.
(Pour info : il n'y a pas de doublon en Colonne"A")
Dim CEL As Range
Set CEL = Worksheets("Test").Columns(1).Find(Me.TextBox1.Value, , xlValues, xlWhole)
If Not CEL Is Nothing Then TextBox2.Value = CEL.Offset(0, 2).Value
merci pour ta solution,
Celle ci serait bien si je modifiais la TextBox1 en ComboBox1, or je préfèrerai ne pas changer cette donnée et rester sur la TextBox1.
Dim CEL As Range
Set CEL = Worksheets("Test").Columns(1).Find(Me.TextBox1.Value, , xlValues, xlWhole)
If Not CEL Is Nothing Then TextBox2.Value = CEL.Offset(0, 2).Value
Bonsoir Robert. @Le Rouky : j'ose espérer que la liste des données de la colonne A n'est pas trop longue pour la mémorisation ... sinon cela risque d'être galère pour les saisies du TextBox1 .
@Le Rouky. Je ne m'inquiète pas.. ce que j'en disais... c'est pour l'utilisateur.
Il et inutile de mentionner dans ton titre que ton post est résolu. Il te faut te positionner sur le post de notre ami Robert et de cocher "solutionné" dans le cartouche gauche.
@+ Eric c