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 : Sélectionner tout - Visualiser dans une fenêtre à part
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