Macro VBA RechercheV / Erreur

Bonjour,

Je me permets de faire ce post car je n’ai trouvé aucun résultat favorable, ni sur ce site ni sur internet.

J’ai toujours un message d’erreur quand je lance la macro. Erreur 1004.

Voici ma macro

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub DEP54()   Dim CP As Variant CP = Cells(6, 2) Dim GAUCHECP As Variant GAUCHECP = Left(CP, 2) Dim VALEUR As Variant VALEUR = Application.WorksheetFunction.VLookup(CP, LISTECP54, 2, False).Value     If VALEUR = NORD Then Sheets("Feuil2").Range("A10") = "METZ" Else Sheets("Feuil2").Range("A10") = "NANCY"   End If End Sub

---

SI vous trouvez une erreur ! Vous me sauvez mon après midi :)

Cordialement .

Bonjour,

Premièrement dans ceci, pourquoi ajouter .Value ?

Code:

---

VALEUR = Application.WorksheetFunction.VLookup(CP, LISTECP54, 2, False).Value

---

Et que vaut LISTECP54 ?

Finalement, qu'est-ce que NORD ici ?

Code:

---

If VALEUR = NORD Then

---

Est-ce une variable ou une valeur String ?

Une proposition :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim VALEUR 'si "LISTECP54" est une plage nommée VALEUR = Application.WorksheetFunction.VLookup(CP, Range("LISTECP54"), 2, False)     If VALEUR = "NORD" Then Sheets("Feuil2").Range("A10") = "METZ" Else Sheets("Feuil2").Range("A10") = "NANCY"   End If

---

Bonjour,

Merci de vos réponses,

Erreur de ma part sur le .value, je le vire.

LISTECP54 correspond à une plage nommée.

NORD est une valeur fixe présente dans la seconde colonne de la plage "LISTECP54".
(en fonction du code postal de la ville, la valeur de la seconde colonne est soit "NORD" soit "SUD").

Je vais tester ta proposition casefayere.
TEST effectué, toujours le même message d'erreur.

Encore désolé pour mes erreurs, je suis débutant et je ne sais pas vraiment par ou commencer du coup je suis un peux brouillon.

Cordialement.

Pas d'erreur sur un fichier grossier que je testé, envoies donc un fichier allégé

Et voila j'ai confectionné un classeur "allégé"

Pièce jointe 125470

tu pars de ta feuille 2 donc précises le nom de feuille pour la recherche

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub CommandButton1_Click() Dim CP As Variant CP = Cells(6, 2) Dim GAUCHECP As Variant GAUCHECP = Left(CP, 2) Dim VALEUR VALEUR = Application.WorksheetFunction.VLookup(CP, Sheets("LISTECP").Range("LISTECP54"), 2, False)     If VALEUR = "NORD" Then Sheets("Feuil2").Range("A10") = "METZ" Else Sheets("Feuil2").Range("A10") = "NANCY"   End If End Sub

---

Personnellement, je n'aime pas utiliser de noms, alors voici une autre méthode

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CommandButton1_Click() Dim CP As Variant CP = Cells(6, 2)   Dim VALEUR As Variant VALEUR = Application.WorksheetFunction.VLookup(CP, Sheets("LISTECP").Columns("A:B"), 2, False)   If VALEUR = "NORD" Then Sheets("Feuil2").Range("A10") = "METZ" Else Sheets("Feuil2").Range("A10") = "NANCY" End If End Sub

---

Merci beaucoup ça fonctionne mieux !!!

Vous êtes les meilleurs.

Cordialement.