Message d'erreur : Valeur #N/A

Version imprimable

24/07/2012, 09h51
thomasdu40

Message d'erreur : Valeur #N/A
Bonjour,

J'ai 2 fichiers (1 fichier où je vais chercher les données, 1 fichier où je copie ces données).
Quand je fais l'extraction des données d'un fichier vers l'autre, dans les cellules destinataires j'ai la valeur #N/A qui apparait.

Extrait du code qui prend une des données (ici il prend l'information contenu dans une des cellules de la colonne 16 pour la coller dans la cellule H6) :
Code:

1 2 With Range("H6") .Formula = "=VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,16,false)"
Que dois je faire pour qu'il me copie la valeur et non ce message d'erreur ?

Merci.
24/07/2012, 10h03
Philippe Tulliez

Bonjour,

Citation:

Envoyé par thomasdu40

Bonjour,
Que dois je faire pour qu'il me copie la valeur et non ce message d'erreur ?
Merci.

Faire en sorte, que la valeur contenue dans la variable Recherche se trouve bien dans la plage A6:A160
C'est exactement la même chose que si tu tapes dans la cellule H6

Code:

=RECHERCHEV("Toto";$A$6:$T$160;16;FAUX)

Si Toto n'est pas dans la plage A6:A160, tu auras le message #N/A.
24/07/2012, 10h05
Supermichou

Bonjour

A priori, s'il te mets un mesage d'erreur, c'est qu'il ne trouve pas la valeur rechercher, donc il ne risque pas de te renvoyer la correspondance.

au plaisir
24/07/2012, 10h17
thomasdu40

Bonjour Corona,

La valeur recherchée se trouve dans la colonne A et si cette valeur est trouvée dans le 2ème fichier dans cette colonne A, il va me chercher une autre valeur toujours dans le 2ème fichier (dans l'exemple dans la 16ème colonne) mais uniquement si cette la valeur recherchée en colonne A est présente.

J'ai bien une valeur dans la 16ème colonne, j'ai ma valeur recherchée qui est bien présente dans le 2ème fichier mais....... toujours #N/A.

J'ai beau triturer dans tous les sens le code rien n'y fait.
24/07/2012, 10h26
Philippe Tulliez

Bonjour,

Citation:

Envoyé par thomasdu40

Bonjour Corona,
La valeur recherchée se trouve dans la colonne A et si cette valeur est trouvée dans le 2ème fichier dans cette colonne A, il va me chercher une autre valeur toujours dans le 2ème fichier (dans l'exemple dans la 16ème colonne) mais uniquement si cette la valeur recherchée en colonne A est présente.
J'ai bien une valeur dans la 16ème colonne, j'ai ma valeur recherchée qui est bien présente dans le 2ème fichier mais....... toujours #N/A.
J'ai beau triturer dans tous les sens le code rien n'y fait.

Je me répète, la fonction RECHERCHEV (VLOOKUP) avec comme 4ème argument FAUX (recherche de valeur exacte), renvoie un message d'erreur #N/A si la valeur contenue dans le 1er argument ne se trouve pas présent dans la première colonne de la base de données référencée dans le 2ème argument.
Vérifie bien cela.
24/07/2012, 10h31
Supermichou

attention au format texte ou numérique dans tes deux tables, ça perturbe pas mal la recherchev.

fait un test avec la fonction =

Code:

=A2=onglet2!A23

si ces valeurs te semblent identiques et que excel les voit différentes, tu auras un FAUX.
Attention également aux espaces en trop, points, etc.
24/07/2012, 10h37
thomasdu40

J'ai testé en intégrant directement la formule suivante dans la cellule destinataire

Code:

=SI(ESTNA(RECHERCHEV(H9;'G:\S - ISO\Audit\[Planning audit_nouvelle version 2012.xls]Planning 2012'!$A6:$T160;16;FAUX));"";RECHERCHEV(H9;'G:\S - ISO\Audit\[Planning audit_nouvelle version 2012.xls]Planning 2012'!$A6:$T160;16;FAUX))

et là ça fonctionne. Donc mon code VBA doit comporter une erreur.

Je m'y replonge.
24/07/2012, 11h00
Philippe Tulliez

Bonjour,

Il n'y a pas d'erreur dans ton code VBA, Excel, n'a simplement pas trouvé la valeur cherchée.
Ce que tu as ajouté est le code qui permet de renvoyer une autre valeur que #N/A.
Tu pourrais tout aussi bien écrire

Code:

=SI(ESTNA(RECHERCHEV(A2;dbStock;2;FAUX));"Pas trouvé";RECHERCHEV(A2;dbStock;2;FAUX))

Ou depuis la version 2007, la formule SIERREUR

Code:

=SIERREUR(RECHERCHEV(A2;dbStock;2;FAUX);"Pas trouvé")

Bingo, j'ai mis la main sur l'erreur mais elle me semble très très bizarre car trop simple.

Voici le code complet où l'extrait ci-dessus s'y trouve :
Code:

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 Private Sub CommandButton1_Click() Dim Chemin As String Dim Fichier As String Dim Feuille As String Dim Recherche As String If Trim(Me.TextBox1) = "" Then Exit Sub Feuil4.Select 'feuille Plan audit' Chemin = "G:\S - ISO\A - Audits" Feuille = "Planning 2012" Fichier = "Planning audit_nouvelle version 2012.xls" Recherche = Me.TextBox1 Range("H9").ClearComments With Range("H6") .Formula = "=VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,16,false)" If Not IsError(.Value) Then Range("H9").NumberFormat = "@" 'Numéro rapport audit' Range("H9") = Recherche .Value = .Value End If End With End Sub
Dans la ligne

Code:

Chemin = "G:\S - ISO\A - Audits"

il y avait un "\" après le mot Audits. Je l'ai supprimé et la cela fonctionne.

Moi je trouve ça trop gros pour être vrai.

J'ai une dernière question :
Dans ma cellule destinataire il m'affiche "0" si je n'ai rien de saisie dans la cellule du fichier où est extraite la donnée.

COmment puis-je mettre un " " dans mon code ?
Code:

1 2 With Range("H6") .Formula = "=VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,16,false)"

24/07/2012, 11h40
Philippe Tulliez
Bonjour,
Pour tester si une cellule est vide, une solution consiste à vérifier la longueur de la chaîne de caractères qu'elle contient ou pas.
Le test serait Len(Cellule) <> 0 que tu peux ramener à Len(Cellule) dans un IF... Then ....Else
Deux syntaxes possibles avec IF ou IIF mais il y en a d'autres
Code:

1 2 If Len(Range("D23")) Then MsgBox Range("D23") Else MsgBox "Rien" MsgBox IIf(Len(Range("D23")), Range("D23"), "Rien")

J'ai modifié le code en fonction de tes propositions mais en H6 je n'ai plus rien qui apparaît alors que dans le 2ème fichier la cellule à extraire est remplie.
Code:

1 2 3 4 5 With Range("H6") If Len(Range("H6")) <> 0 Then .Formula = "=VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,16,false)" Else: Range("H6") = "" End If

Bonjour,
Tu parles de 2ème fichier. Se trouve-t-il sur la même feuille ?
Parce-que dans ton code, tu fais un test sur la cellule H6 de la feuille active.
Code:

1 2 3 4 5 With Range("H6") If Len(Range("H6")) <> 0 Then .Formula = "=VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,16,false)" Else: Range("H6") = "" End If
En debogage, quelle est la valeur de H6
Si les cellules sont sur une autre feuille, il faut préciser feuille.Range(Adresse). Il est d'ailleurs préférable de toujours préciser la feuille et le classeur sur lequel on travaille. Cela évite bien des surprises.
Petite précision. Tu n'as pas modifié la formule que tu écris. C'est toujours la même.
Tu as simplement fait un test, si la cellule H6 est remplie, alors j'écris la formule sinon "".
Et si tu utilises With, ce serait mieux comme ceci.
Code:

1 2 3 4 5 With Range("H6") If Len(.Value) <> 0 Then .Formula = "=VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,16,false)" Else: .Value = "" End If
Et l'instruction If Len(.Value) <> 0 Then peut-être remplacée par If Len(.Value) Then

Bonjour,

D'après ce que je crois avoir compris, j'aurais plutôt vu quelque chose du genre
Code:

1 2 With Range("H6") .Formula = "=IF(VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,16,false)<>0,VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,16,false),"""")"
On efface la cellule destinataire si la valeur de la cellule renvoyée est nulle.

Cordialement.

Désolé pour le retard dans ma réponse mais cet après-midi a été plutot dure.

Merci pour toutes les personnes qui m'ont répondu (gFZT82, Corona).

Merci Corona pour tes précieuses explications.

J'ai fini de travailler le code et qui fonctionne tel quel. J'espère que demain il continuera à fonctionner.

Voici le code final :

Code:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub CommandButton1_Click()
Dim Chemin As String
Dim Fichier As String
Dim Feuille As String
Dim Recherche As String
 
  If Trim(Me.TextBox1) = "" Then Exit Sub
  Feuil4.Select 'feuille Plan audit'
Chemin = "G:\S - ISO\A - Audits"
   Feuille = "Planning 2012"
  Fichier = "Planning audit_nouvelle version 2012.xls"
  Recherche = Me.TextBox1
 
  Range("H9").ClearContents
 With Range("H6")
 .Formula = "=IF(VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,16,false)<>0,VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,16,false),"""")"
 
 With Range("B6")
 .Formula = "=IF(VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,9,false)<>0,VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,9,false),"""")"
 
 With Range("B8")
 .Formula = "=IF(VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,5,false)<>0,VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,5,false),"""")"
 
 With Range("B10")
 .Formula = "=IF(VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,7,false)<>0,VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,7,false),"""")"
 
 With Range("B17")
 .Formula = "=IF(VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,19,false)<>0,VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,19,false),"""")"
 
 With Range("B18")
 .Formula = "=IF(VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,20,false)<>0,VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,20,false),"""")"
 
 With Range("A24")
 .Formula = "=IF(VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,10,false)<>0,VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,10,false),"""")"
 
 With Range("A28")
 .Formula = "=IF(VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,11,false)<>0,VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,11,false),"""")"
 
    If Not IsError(.Value) Then
      Range("H9").NumberFormat = "@" 'Numéro rapport audit'
      Range("H9") = Recherche
      .Value = .Value
    End If
 End With
 End With
 End With
 End With
 End With
 End With
 End With
 End With
End Sub

Bonjour le forum.

Le code fonctionne et je ne le changerai pas mais je vais quand même poser une question dont personnellement je pense que la solution ne doit pas exister mais je me lance.

Par rapport à ce code, dans mes cellules destinataires, j'ai la formule qui apparaît ce qui, au risque de supprimer cette formule, ne me permet pas de saisir des éléments en plus des données extraites. Existe-t-il une astuces pour contourner ce problème ?

ligne présente dans le code :
Code:

1 2 .Formula = "=IF(VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,5,false)<>0,VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,5,false),"""")"
et formule présente dans la cellule recevant la donnée extraite :

Code:

=SI(RECHERCHEV("25-2012";'G:\S - ISO\A - Audits\[Planning audit_nouvelle version 2012.xls]Planning 2012'!$A6:$T160;5;FAUX)<>0;RECHERCHEV("25-2012";'G:\S - ISO\A - Audits\[Planning audit_nouvelle version 2012.xls]Planning 2012'!$A6:$T160;5;FAUX);"")

Merci.

Ok j'ai trouvé. J'ai remodifié le code.

Code:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
Private Sub CommandButton1_Click()
Dim Chemin As String
Dim Fichier As String
Dim Feuille As String
Dim Recherche As String
 
  If Trim(Me.TextBox1) = "" Then Exit Sub
  Feuil4.Select 'feuille Plan audit'
Chemin = "G:\S - ISO\A - Audits"
   Feuille = "Planning 2012"
  Fichier = "Planning audit_nouvelle version 2012.xls"
  Recherche = Me.TextBox1
 
  Range("H9").ClearContents
 With Range("H6")
 .Formula = "=IF(VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,16,false)<>0,VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,16,false),"""")"
 If Not IsError(.Value) Then
      Range("H9").NumberFormat = "@" 'Numéro rapport audit'
      Range("H9") = Recherche
      .Value = .Value
   End If
 
 
 With Range("B6")
 .Formula = "=IF(VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,9,false)<>0,VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,9,false),"""")"
  If Not IsError(.Value) Then
      Range("H9").NumberFormat = "@" 'Numéro rapport audit'
      Range("H9") = Recherche
      .Value = .Value
   End If
 
 
 
 With Range("B8")
 .Formula = "=IF(VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,5,false)<>0,VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,5,false),"""")"
 If Not IsError(.Value) Then
      Range("H9").NumberFormat = "@" 'Numéro rapport audit'
      Range("H9") = Recherche
      .Value = .Value
   End If
 
 
 
 With Range("B10")
 .Formula = "=IF(VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,7,false)<>0,VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,7,false),"""")"
 If Not IsError(.Value) Then
      Range("H9").NumberFormat = "@" 'Numéro rapport audit'
      Range("H9") = Recherche
      .Value = .Value
   End If
 
 
 With Range("B17")
 .Formula = "=IF(VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,19,false)<>0,VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,19,false),"""")"
 If Not IsError(.Value) Then
      Range("H9").NumberFormat = "@" 'Numéro rapport audit'
      Range("H9") = Recherche
      .Value = .Value
   End If
 
 
 
 With Range("B18")
 .Formula = "=IF(VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,20,false)<>0,VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,20,false),"""")"
 If Not IsError(.Value) Then
      Range("H9").NumberFormat = "@" 'Numéro rapport audit'
      Range("H9") = Recherche
      .Value = .Value
   End If
 
 
 With Range("A24")
 .Formula = "=IF(VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,10,false)<>0,VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,10,false),"""")"
 If Not IsError(.Value) Then
      Range("H9").NumberFormat = "@" 'Numéro rapport audit'
      Range("H9") = Recherche
      .Value = .Value
   End If
 
 
 
 With Range("A28")
 .Formula = "=IF(VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,11,false)<>0,VLOOKUP(""" & Recherche & """,'" & Chemin & "\[" & Fichier & "]" & Feuille & "'!$A6:$T160,11,false),"""")"
 If Not IsError(.Value) Then
      Range("H9").NumberFormat = "@" 'Numéro rapport audit'
      Range("H9") = Recherche
      .Value = .Value
   End If
 
 End With
 End With
 End With
 End With
 End With
 End With
 End With
 End With
End Sub

Bonjour,

Je réactive ce post car j'aimerai intégrer un MsgBox me disant "Données absentes" et j'ai modifié le début de mon code comme suit :
Code:

1 2 3 4 5 6 If Trim(Me.TextBox1) = "" Then MsgBox "Données absentes": Exit Sub Feuil4.Select 'feuille Plan audit' Chemin = "G:\S - ISO\A - Audits" Feuille = "Planning 2012" Fichier = "Planning audits groupe Delpeyrat.xls" Recherche = Me.TextBox1
et cela ne marche pas car il me marque #N\A dans les cellules alors qu'il devrait m'afficher le MsgBox car le numéro saisi n'existe pas.

Vous avez une idée ?

Merci.

20/08/2012, 11h56
Philippe Tulliez

Bonjour,
Il faudrait être plus clair dans la formulation de ton problème.
Tu parles à la fois d'un message à afficher si un TextBox est vide mais à la fin de ton message tu écris

Citation:

et cela ne marche pas car il me marque #N\A dans les cellules alors qu'il devrait m'afficher le MsgBox car le numéro saisi n'existe pas.

Où finalement tu mélanges, cellules et msgbox.
Qu'en est-il ?
20/08/2012, 13h29
thomasdu40

Bonjour Corona,

je voudrai qu'il m'affiche "Données inéxistantes" si le numéro saisi dans le TextBox1 est introuvable. Et si tel est le cas qu'il n'affiche rien dans les cellules.