Discussion :

[koeuf]

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

[ouskel'n'or]

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
Dim c as range
With Sheets("creation").Range("A3:A40")
    Set c = .Find(What:=nom, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
    SearchOrder:=xlByRows, SearchDirection:=xlNext) '.Activate
    If not c is nothing then
          NoLigne = c.row
          NoCol = c.column
          Adress = c.address
          LeNom = c
          'Tu peux lancer ta macro
       else
           MsgBox "la personne n'existe pas, vérifier l'orthographe", vbCritical, "erreur"
    End If
End with
Set c = Nothing

[koeuf]

Bon, j'ai essayé ce code avec une msgbox pour le tester, mais il me renvoit une incompatibilité de type sur le set c. Je précise que ce qui est écrit dans la case "nom" est en fait l'ensemble nom prenom séparé par un espace.

Il m'a demandé également de donner une instruction après le premier if, et j'ai mis un then, mais sans grande certitude vu que je ne comprend pas très bien à quoi correspondent les lignes situées après.

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
 Sub verifnom()
 
 
Dim nom As String
 
nom = Worksheets("réglages").Range("K6")
 
With Sheets("creation").Range("A3:A40")
 
    Set c = .Find(What:=nom, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
    SearchOrder:=xlByRows, SearchDirection:=xlNext) '.Activate
      If Not c Is Nothing Then
          NoLigne = c.Row
          NoCol = c.Column
          Adress = c.Address
          LeNom = c
          'Tu peux lancer ta macro
 
       MsgBox "ça marche", vbCritical, "erreur"
       Else
           MsgBox "la personne n'existe pas, vérifier l'orthographe", vbCritical, "erreur"
    End If
End With
 
End Sub

[ouskel'n'or]

Dim c as range

Je ne sais pas si ça vient de là mais tu devrais tout de même essayer

[koeuf]

Je ne sais pas si ça vient de là mais tu devrais tout de même essayer

non, le résultat est le même

[alsimbad]

simple suggestion.
si tu veux etre sure ques les orthographes et la casse et les espacements soient a l'identique, tu devrais plutôt opter pour une liste de validation.

[ouskel'n'or]

Remplace LookIn:=xlFormulas par LooKin:=xlValues
Je n'avais pas fait attention...
Tes nom et prénom sont bien dans une même cellule ?

Edit
J'ajoute que tu pourrais simplifier ta ligne de recherche à ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set c = .Find(nom, LookIn:=xlValues)

[koeuf]

super ça fonctionne !!

j'avais pensé à une liste de validation, mais ça alourdissait la présentation du fichier (je ne rentre pas dans les détails)

merci beaucoup