Comparaison colonne

[Robmachine]

Bonjour à tous,

J'aimerai que vous me donniez le code VBA pour un petit programme très simple:

J'aimerais pouvoir rapprocher les éléments d'un tableau d'une feuille avec des éléments d'un tableau situé sur une autre feuille dans le même classeur.

Grosso Modo, dans ma colonne A de la feuille 1 j'ai une liste de nombre, et j'aimerais pouvoir les retrouvé dans la feuille2 avec la condition suivante:

Si le nombre en feuille 1 est trouvé en feuille deux j'aimerais que l'on écrive sur la cellule d'à coté ( tjs en feuille 1) " ok"
Sinon " numéro non rapproché".

Le programme est excessivement simple c'est pour ça que je vous demande de me donner le code parce que j'en avais déjà coder un avec un Recherche V mais celui-ci ne fonctionne pas.

Je vous met mon fichier Excel en ci-joint si cela peut vous aider

Merci d'avance et bon Dimanche

 

[mth]

Re : Comparaison colonne

Bonjour,

Ce n'est pas du VBA donc pas ce que tu souhaites, mais je me demande juste pourquoi du VBA alors qu'une formule simple suffit:

un exemple parmi d'autres:

=SI(NB.SI(Feuil2!A:A;Feuil1!A2)>0;"Trouvé";"Pas trouvé")

Bon après-midi,

mth

 

[job75]

Re : Comparaison colonne

Boonjour Robmachine, salut Mireille

Bien d'accord avec Mireille.

Et même si l'on est adict du VBA, le plus simple est d'entrer sa formule en colonne B :

Sub Trouve()
[B2:B65536].ClearContents
With Range("B2:B" & [A65536].End(xlUp).Row)
  .FormulaR1C1 = "=IF(COUNTIF(Feuil2!C1,RC1),""Trouvé"",""Pas trouvé"")"
  .Value = .Value 'supprime les formules (facultatif)
End With
End Sub

Voir fichier.

A+