Microsoft 365 ( Résolu ) TextBox2 rempli par rapport à TextBox1

[Le Rouky]

Le forum,

Encore moi,

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")

auriez vous une idée ?

cordialement

 

[Eric C]

Bonsoir le forum
Bonsoir Le Rouky

Avec un ComboBox en lieu et place de TextBox1 pour que cela fonctionne.

Bonne soirée à toutes & à tous
@+ Eric c

 

[Le Rouky]

le forum, @Eric C,

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.

Cordialement

 

[Robert]

Bonsoir le fil, bonsoir le forum,

Essaie comme ç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

Mais surtout essaie de comprendre le principe...

 

[Eric C]

Re le fil

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 🙄.

@+ Eric c

 

[Le Rouky]

le forum, @Eric C, @Robert,

Merci,

@Eric C,
ne t'inquiète pas, la liste ne fait que 5000 lignes, mais j'ai pas à retenir toutes les références.

Il faut vraiment que j'apprenne le VBA.

@Robert,
j'ai utilisé ton code qui va nickel et qui ressemble à celui de tout à l'heure.

Cordialement

 

[Eric C]

Re le fil

@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