Discussion :

[froutloops62]

Bonjour,

Je souhaite pouvoir gérer les valeurs non trouvées "#N/A" dans ma formule rechercheV en VBA et je bloque.

Voici ma formule actuelle :

Code :

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

1
2
3
4
5
6
7
Sub RUN()
Dim DerLig As Long
 With Sheets("Feuil1")
    DerLig = .UsedRange.Rows.Count
     .Range("L1:L" & DerLig).Value = WorksheetFunction.VLookup(.Range("C1:C" & DerLig).Value, Sheets("Feuil2").Range("A1:A" & DerLig, "B1:B" & DerLig), 2, False)
 End With
End Sub

J'ai essayé plusieurs tests notamment avec Iff(IsError( mais ça ne fonctionne pas.

Je souhaite juste remplacer #N/A par "Non Trouvé".

Pourriez-vous m'aider ?

Merci

[joe.levrai]

Bonjour,

déclare une variable Variant
n'utilises pas Vlookup de la classe Worksheetfunction mais celle de l'objet application
affecte à ce variant le résultat de la formule
teste le type de la variable retournée
si c'est une erreur, tu affiches "Non Trouvé" dans la cellule, si tu affiches le résultat de la variable

exemple illustratif, j'ai fixé derlig à 10 arbitrairement et je travaille sur la feuille active, je te laisse adapter

Code :

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

1
2
3
4
5
6
7
Sub ioi()
Dim Resultat As Variant, Derlig As Long
Derlig = 10
Resultat = Application.VLookup("tonton", Range("A1:A10"), 1, False)
If IsError(Resultat) Then Resultat = "non précisé"
Range("B1") = Resultat
End Sub

[jerome.vaussenat]

Salut joe.levrai,

Une petite question pour éclaire ma petite bougie.

Quelle différence y a t'il entre Application.Vlookup et Application.WorksheetFunction.Vlookup ?

De plus, dans l'explorateur d'objet, quand on va dans WorksheetFunction, on trouve bien le Vlookup. Par contre dans l'objet Application ... rien.

Dans ce cas, comment savoir que le Vlookup de la classe Application est utilisable ?

Merci pour de faire briller les étoiles sur les nuits de mon ignorance (c'est issue de ce proverbe chinois : "L'ignorance est la nuit de l'esprit, et cette nuit n'a ni lune ni étoiles")

[riaolle]

Bonjour jerome.vaussenat ,
La différence entre Application. et Application.WorksheetFunction est la gestion d'erreur. Je ne sais pas très bien l'expliquer, mais en gros :

• Si tu utilises WorksheetFunction, il faut gérer les erreurs avec On Error ...
• Si tu utilises Application seulement, tu peux déclarer ta variable de renvoie comme Variant et tester avec IsError.

Peut-être que joe.levrai saura donner plus de précisions !

Dans ce cas, comment savoir que le Vlookup de la classe Application est utilisable ?

En fait, tout ce qui existe après Application.WorksheetFunction existe aussi avec Application. Du coup, si tu veux travailler avec Application seulement et que tu ne te souviens plus trop des syntaxes, il suffit d'écrire ton instruction avec Application.WorksheetFunction, puis d'enlever WorksheetFunction

[jerome.vaussenat]

salut Riaolle,

Merci d'avoir été ma lune. On verra si le soleil vient finir le travail !

Mais je le note, je le note dans mes tablettes.

Juste une question, Riaolle, çà à une signification. A chaque fois, je dois aller vérifier pour ne pas faire d'erreur en le saisissant

[joe.levrai]

Bonjour,

La documentation expliquant précisément les deux comportements est relativement pauvre.
J'ai appris "sur le tas" (comme d'habitude) surtout au travers des exemples et explications de Marc-L.

Worksheetfunction est une méthode de l'objet application, qui utilise les fonctions Excel. Une erreur dans l'évaluation de la fonction utilisée est impossible à neutraliser sans gestion d'erreur.

En passant par l'objet Application (= le parent de Worksheetfunction), on évite de passer dans la classe et en cas d'erreur d'évaluation, on peut récupérer un "objet Error", d'où le fait de toujours tester le retour avec un Variant et de regarder ce qu'il contient ensuite.

Je ne suis pas expert pointu, mais je pense que la classe Worksheetfunction ne sait pas renvoyer un objet erreur, ce qui génère l'erreur d'exécution

[MarcelG]

Bonjour à vous, bonjour au forum,

Si je peux me permettre.

Pour ma pat, je n'apprécie pas cette fonction VLOOKUP.
Ce à cause de ses contraintes (sauf erreur, 1ère colonne de matrice et tri ce cette colonne).

Je proposerais volontiers les méthodes

Code :

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

Find

pour la valeur cherchée, et

Code :

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

Offset

pour la valeur retournée.
Voir l'aide en ligne de la méthode

Code :

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

Find

Un retour de valeur "Non trouvé" peut alors être envisagé si

Code :

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

c is nothing

Revenir si nécessaire.