Discussion :

[Yamiral]

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 :

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
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 .

[parmi]

Bonjour,

Premièrement dans ceci, pourquoi ajouter .Value ?

Code :

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

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

Et que vaut LISTECP54 ?

Finalement, qu'est-ce que NORD ici ?

Code :

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

If VALEUR = NORD Then

Est-ce une variable ou une valeur String ?

[casefayere]

Une proposition :

Code :

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

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

[Yamiral]

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.

[casefayere]

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

[Yamiral]

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

TEST1.zip

[casefayere]

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

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
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

[parmi]

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

Code :

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

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

[Yamiral]

Merci beaucoup ça fonctionne mieux !!!

Vous êtes les meilleurs.

Cordialement.