Chercher l'existance d'une liste dans une autre (par macro en VBA)

Bonjour,

Je débute en VBA et j'aurais besoin d'aide pour résoudre un problème.
Je dispose d'un tableau à 3 colonnes. La première contient des numéros de téléphone (fictifs) d'un annuaire. La deuxième contient des échantillons de numéro de téléphone.

Ce que je voudrais faire c'est, par l'appui sur un bouton et de manière automatique, afficher dans la colonne C si le numéro de la colonne B existe dans la colonne A.
L'autre difficulté serait que la macro soit adaptable à n'importe quelle longueur de tableau.

Avez-vous des idées de comment faire ?

Merci d'avance pour vos retours.

PS : Le fichier exemple est en pièce jointe.

Bonjour,

Citation:

---

Envoyé par Gex-88

Je débute en VBA et j'aurais besoin d'aide pour résoudre un problème.

---

Ce n'est pas très utile de te pencher sur le vba pour résoudre ta demande qui se fait très bien par formule :

Code:

---

=SI(NB.SI($A:$A;B2)>0;"Oui";"Non")

---

Bonjour Anasecu et merci de ta réponse.

Pour mon cas, l'utilisation d'un bouton est nécessaire (et je ne dois pas modifier manuellement le tableau).

Cela dit, l'utilisation de la formule fonctionne très bien. Je l'ai d'ailleurs utilisé grâce à l'enregistreur de macro.

J'aimerais cependant optimiser ma macro pour que la taille de la colonne C s'adapte à celle de la colonne B.

Aurais-tu une idée de comment faire ?

Mon code actuelle est le suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Test() ' ' Test Macro ' Range("C2").Select ActiveCell.FormulaR1C1 = "=IF(ISNA(MATCH(C[-1],C[-2],0)),""Non"",""Oui"")" Range("C2").Select Selection.AutoFill Destination:=Range("C2:C10000"), Type:=xlFillDefault Range("C2:C10000").Select   End Sub

---

Merci d'avance.

Bonjour,

Citation:

---

Envoyé par Gex-88

Pour mon cas, l'utilisation d'un bouton est nécessaire

---

Dans ce cas, installes ta formule par macro avec ce code

Code:

---

1 2 3 4 5 6 7

Sub Test() ' ' Test Macro ' Range("C2:C" & Cells(Rows.Count, "B").End(xlUp).Row).FormulaR1C1 = "=IF(ISNA(MATCH(C[-1],C[-2],0)),""Non"",""Oui"")" Range("C:C").ColumnWidth = Range("B:B").ColumnWidth End Sub

---

ça marche très bien.

Merci beaucoup ! :)