VBA explication code

bonsoir à tous,

Dan, suite au fil de" baldron" , ton code m'intéresse !

voir feuille2

https://www.excel-pratique.com/~files/doc/x67D8deplac2.xls

amicalement

Claude.

Bonsoir claude

comme la recherche ne se fait pas sur la totalité du contenu, celle-ci recherche un 8 (n'importe lequel)

pour y rémédier, il faut ajouter :

Set c = .Find(Range("D1"), LookIn:=xlValues, lookat:=xlWhole)

2 possibilités avec lookat : xlPart (partiellement) et xlWhole (totalité)

NB, on peut agir autrement, en utilisant la fonction Match (EQUIV dans une feuille)

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$D$1" Then
    Range("a2:c100").Interior.ColorIndex = xlNone
    On Error Resume Next
    Cells(Application.Match(Target, [A2:A65000], 0) + 1, 1).Resize(1, 2).Interior.ColorIndex = 36
    If Err <> 0 Then MsgBox "N'existe pas"
    On Error GoTo 0
End If
End Sub

Salut felix,

du coup j'ai les 3 versions !

les 2 tiennes obtiennent le même résultat,

il faut entrer le nom en entier,et c'est OK.

Je vois déjà les utilisations futures de ce code.

En fait çà équivaut à une formule "INDEX" ou "recherche"

Merci du tuyau.

amicalement......Claude.