[VBA-EXCEL] problème avec ma comparaison

Bonjour à toutes et à tous,

j'explique mon problème. J'essaye de faire une liste DVD et donc j'aimerais créer une macro permettant d'ajouter des films dans ma liste. Mais pour cela il faut que je fasse une comparaison du titre à ajouter par rapport à ma liste. Le problème est qu'il ne fait pas bien cette comparaison. Je vais prendre un exemple : J'ai le film l'age de glace. Je veux ajouter dans ma liste le film age. Je ne l'ai pas dans ma liste mais le problème est qu'il me dit que je l'ai car il y a le mot age dans l'age de glace.... donc j'aimerais savoir comment faire pour faire la comparaison sur l'ensemble de la cellule ou trouver un solution pour y remedier....


voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Sub Ajouter_un_film()   Dim wk As Workbook Dim c As Range ' Resultat de la recherche Dim mot As String, sResult As String Dim f As Worksheet 'Feuille dans laquelle effectuer la rechercher mot = InputBox("saisissez le nom du film à ajouter") If Not mot = "" Then ' Application.ScreenUpdating = False ' Ouverture du classeur : Set wk = Workbooks.Open("file://localhost/users/sebneb/Desktop/liste DVD/LISTEDVD.xls") 'Effectue recherche dans 1° feuille du classser Set f = wk.Sheets("feuil2") Set c = f.Columns(1).Find(mot) If c Is Nothing Then Rows(1).Insert Shift:=xlDown f.[A1].Value = mot   f.Columns(1).Sort Key1:=Range("A1"), Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Else MsgBox ("Ce titre existe déjà") End If End If wk.Close True ' Fermetur de classeur avec sauvegarde... ' Application.ScreenUpdating = True 'Réactive l'affichage End Sub

---

donc si vous avez des idées n'hésitez pas...

un grand merci d'avance

Citation:

---

Envoyé par L'aide en ligne

Find Method

Syntax

expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte)

expression Required. An expression that returns a Range object.

What Required Variant. The data to search for. Can be a string or any Microsoft Excel data type.

After Optional Variant. The cell after which you want to search. This corresponds to the position of the active cell when a search is done from the user interface. Note that After must be a single cell in the range. Remember that the search begins after this cell; the specified cell isn't searched until the method wraps back around to this cell. If this argument isn't specified, the search starts after the cell in the upper-left corner of the range.

LookIn Optional Variant. Can be one of the following XlFindLookIn constants: xlFormulas, xlValues, or xlNotes.

LookAt Optional Variant. Can be one of the following XlLookAt constants: xlWhole or xlPart.

SearchOrder Optional Variant. Can be one of the following XlSearchOrder constants: xlByRows or xlByColumns.

SearchDirection Optional Variant. Can be one of the following XlSearchDirection constants: xlNext or xlPrevious. The default value is xlNext.

MatchCase Optional Variant. True to make the search case sensitive.

MatchByte Optional Variant. Used only in the Far East version of Microsoft Excel. True to have double-byte characters match only double-byte characters. False to have double-byte characters match their single-byte equivalents.

---

A mon avis, il faut que tu t'intéresses au paramètre LookAt.

bon alors j'ai essayé mais je ne sais pas quoi mettre après le = dans le code...
j'ai remplacé cette ligne de code :

Code:

---

Set c = f.Columns(1).Find(mot)

---

par :

Code:

---

Set c = f.Columns(1).Find(mot, lookat:=)

---

là je reste sans réponse... si quelqu'un a déjà eu le problème...

quelqu'un n'aurait pas un petit indice... svp

merci d'avance

bonsoir

Code:

---

Set C = f.Columns(1).Find(What:=mot, LookAt:=xlWhole)

---

michel

merci bien... ça a marché nikel... maintenant je vais essayer de comprendre pourquoi il faut mettre xlwhole...

encore merci

Whole = la totalité (de la cellule)
Part = une partie