comparer une cellule avec une une plage de cellule

[exal78]

Slt à tous,

Voila j'ai une cellule avec du texte sur une feuille.
Je voudrai comparer cette cellule avec plusieurs autres cellules dans une autre feuille. Afin de vérifier si ma nouvelle entrée n'existe pas déjà.

If ActiveSheet.Cells(2, 17) = Sheets("Base_machine").Range("A1:A150") Then
' Affiche le message.
Response = MsgBox(Msg, Style, Title)
Else
' Si non, recopie dans la base
Selection.Copy
Sheets("Base_machine").Select
Sheets("Base_machine").Cells(premiereLigneVide, 1).Select
ActiveSheet.Paste
End If

Quand je compare une cellule à une autre tout marche bien
Mais des que je veut la comparer à plusieurs autres cellules sa marche plus :s

Si quelqu'un peut m'aider ?

 

[C@thy]

Bonjour Exal78 et le forum,

as-tu regardé les nouveaux programmes à télécharger sur ce site, Celeda nous propose des macros sur les doublons, ainsi que (plus ancien) un merveilleux fichier sur les doublons ... sans macros!!!

C@thy

 

[exal78]

Merci c@thy

je n'avais pas regardé c'est vrai, et je vais surement trouver ma solution, merci pour ton conseil et merci pour ce forum

 

[Bernard]

Bonjour Exal78

Ta macro est très bien, il suffisait de la compléter :

Sub AlerteCompil()
If Application.CountIf(Sheets("Base_machine").Range("A1:A150"), Sheets("Feuil2").Range("Q2")) > 0 Then
Msg = "Ce texte existe déjà" & " " & Application.CountIf(Sheets("Base_machine").Range("A1:A150"), Sheets("Feuil2").Range("Q2")) & " fois dans Base_machine !"
Style = vbYes + vbCritical
Title = "ALERTE"
MyValue = MsgBox(Msg, Style, Title)
Else
Worksheets("Feuil2").Range("Q2").Copy
Sheets("Base_machine").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End If
End Sub

Cordialement

Bernard