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

Le Rouky · 23 Janvier 2022

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 · 23 Janvier 2022

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é) :

VB:

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"

Robert · 23 Janvier 2022

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é) :

VB:

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 · 23 Janvier 2022

Le forum, @Robert,

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

merci

cordialement

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

Le Rouky

XLDnaute Nouveau

Robert

Robert

XLDnaute Barbatruc

Le Rouky

XLDnaute Nouveau

Discussions similaires