XL 2013 Vérifier présence données dans une liste

[Jacques25bis]

Bonjour à tous,

j'ai une double demande ce matin, je souhaiterai vérifier si la valeur d'une cellule est présente dans une liste de 650 lignes ce qui donnerai :

Si A10 est présent dans liste1 alors J10="X"

Je ne sais pas quelle formule utiliser...

Comme j'aimerai appliquer cette fonction dans un tableau de 1000 lignes je souhaiterai le faire en VBA avec un truc du genre :

For i=10 to 1000
if cells (i,1) est présent dans liste1 then
cells(i,10)="X"
end if
next i
end for

Là encore sans connaître la formule c'est compliqué de trouver le bon code.

Merci à tous de votre aide.

Bonne journée.

Jack

 

[pierrejean]

Bonjour Jack
Un petit fichier exemple nous permettrait de t'aider

 

[Jacques25bis]

Salut Pierre Jean,

Voici un fichier pour exemple.

Merci
@ plus

Jack

 

[pierrejean]

Re

Avec une fonction personnalisée

 

[BOISGONTIER]

Bonjour,

Sub affichex()
  Set d = CreateObject("scripting.dictionary")
  For Each c In [liste1]
    d(c.Value) = ""
  Next c
  For Each c In [tableau2]
    If d.exists(c.Value) Then c.Offset(, 9) = "X"
  Next c
End Sub


Boisgontier

 

[pierrejean]

Bonjour JB

 

[GALOUGALOU]

bonjour jacques25bis, bonjour pierrejean, bonjour boisgontier bonjour le forum
le demandeur ne manquera pas de solution,
avec la fonction nb.si

=SI(NB.SI($M$2:$M$89;A11)>0;"X";"")

cordialement
galougalou

 

[Jacques25bis]

Merci à tous pour vos propositions,

Dans mon cas la solution de Boisgontier est la plus simple à intégrer mais les autres marchent très bien aussi.
Boisgontier, pourrais-tu juste m'expliquer le code dans les grandes lignes, je n'aime pas utiliser ce que je ne comprend pas complètement.

Encore merci à tous.

@ plus

Jack