Bonjour,

Je plante un peu sur un code.

J'ai un classeur constitué de plusieurs feuilles. Sur l'une d'elles il y a une case à remplir pour lancer une macro (nommé "nom" dans mon code).

Le mot écrit dans cette case doit être dans une liste présente sur une autre feuille. Ce que je veux, c'est lancer une boite di dialogue si le mot a été mal tapé.
J'ai essayé le code suivant mais sans succès :


Quelqu'un aurait-il une idée ?

Merci


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub verifnom()
Dim nom As String
nom = Worksheets("réglages").Range("K6")  'récupère le mot entré pour le vérifier
Worksheets("creation").Activate
 
Sheets("creation").Range("A3:A40").Select 'definit la zone de recherche
If (Selection.Find(What:=nom, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate) = False Then
 
   MsgBox "la personne n'existe pas, vérifier l'orthographe", vbCritical, "erreur"
 
End If
End Sub