probléme dans la fonction ISERROR

[Hugues]

Bonjour Le Forum,

Je n'arrive pas à trouver l'erreur dans le code suivant :

resultat = Application.WorksheetFunction.IsError(Application.WorksheetFunction.VLookup(Range("A" & i), Sheets("bdd").Range("A4:A13"), 1, False))

Pouvez vous m'aider ?

Merci par avance,

Hugues

 

[pierrejean]

Re : probléme dans la fonction ISERROR

bonjour Hugues

il n'y a pas d'erreur dans le code

mais Vba ne tolere pas l'erreur c'est a dire que lorsque le VLookup sort une erreur on part en debug

pour t'en convaincre utilise le bouton test :
avec janvier en A1 pas de probleme on a resultat a Faux
on supprime janvier ---> debug

je te propose une solution utilisant le controle d'erreur:

teste de la même façon le bouton essai

ps: c'est la premiere fois que je propose une gestion d'erreur tant j'y suis allergique
si un vrai pro passe par la j'aimerais bien avoir son avis

 

[michel_m]

Re : probléme dans la fonction ISERROR

Salut Hugues, PierreJean,

Si le but de la manip est de savoir si le contenu de Ai est contenu ou non dans A4:A13, on pourrait utiliser ceci:

Sub autre()
i = 1
resultat = Application.CountIf(Sheets("bdd").Range("A4:A13"), Cells(i, 1)) = 0
MsgBox resultat
End Sub

ici on a vrai si contenu de Ai n'est pas contenu
en mettant >0 on a vrai si contenu de Ai est contenu

Pierejean, ci joint un topo sur la gestion des erreurs (je ne suis pas pro, donc...)

 

[MichelXld]

Re : probléme dans la fonction ISERROR

bonjour à vous ... ;o)

D'autres infos sur la gestion des erreurs dans Excel:

La gestion des erreurs dans Excel - Club d'entraide des développeurs francophones


Bonne journée
MichelXld