Microsoft 365 (Résolu) Recherche valeur et écrit "OK" même ligne 4 cases à droite

[Le Rouky]

Le forum,

Voilà, n'étant pas un foudre de guerre, je voudrai en VBA:

- Si la valeur du TextBox1 demande "Toto", faire une rechercher dans la colonne "A" de la feuille "Test",
- si la valeur est trouvé, mettre "OK" sur la même ligne quatre cases à droite.

exemple :

Cordialement

 

[Robert]

Bonjour Le Rouky, bonjour le forum,

je travaille rarement sur Excel avec des photos, j'utilise plutôt photochope pour ça...
Si tu as plusieurs Toto tu fais quoi ?

Sinon ça donne un code de ce style (non testé) :

Dim CEL As Range

Set CEL = ActiveSheet.Columns(1).Find(Me.TextBox1.Value, , xlValues, xlWhole)
If Not CEL Is Nothing Then CEL.Offset(0, 4).Value = "OK"

 

[Le Rouky]

Le forum, @Robert,

Merci pour ta rapidité, c'est ce qu'il me fallait.
fonctionne nikel

merci

cordialement