Coder en VBA activecell dans un tableau

Bonjour

j'ai un tableau en J2 jusqu'à J43.

J'ai un deuxième tableau en E2 jusqu'en E15.

Je veux tester chaque cellule de J2 à J43 pour savoir si elle se trouve dans le tableau e2 à E15.

Donc je fais :

Range("J2").Select
For i = 1 To 41
If ActiveCell = .............. Then
Range("P2").Select
Else
ActiveCell.Cells(2, 1).Select
End If
Next

............ est le tableau E2 à E15.

pouvez vous m'aider à coder ?

merci

Cordialement

Bonjour,

Voici un exemple de code qui met en rouge les valeurs trouvées en E2:E15 :

with activesheet
    For i = 2 to 43
        If application.countif(.range("E2:E15"), .cells(i, "J").value) > 0 Then
            .cells(i, "J").interior.color = vbred
        End If
    Next i
end with

Il n'a pas grand intérêt étant donné que la formule suivante :

=NB.SI($E$2:$E$15;$J2)>0

en colonne K (propagée) ou en formule de MFC sur la plage entière suffirait largement si le but est juste de tester l'existence.

Cdlt,