Probleme avec worksheetfunction.match

[stikouhm]

[Résolu] Probleme avec worksheetfunction.match

Bonjour,

j'essaie d'obtenir dans du code vba un résultat pour
application.worksheetfunction.match("truc",myrange,0)
contenu dans une boucle for

lorsque la fonction match (equiv) me renvoie #N/A ma macro plante joyeusement ...

je n'arrive pas à gérer cette erreur.
j'ai essayé
application.worksheetfunction.isna(application.worksheetfunction.match("truc",myrange,0))

ça marche pas plus

et une gestion avec

on error goto err

for i = 1 to n
tmp = application.worksheetfunction.match("truc",myrange,0)
goto suite
err:
'gestion si equiv ==> #N/A
msgbox "#N/A !!",vbinformation

suite:
'...

next i

ça marche une premiere fois, mais la deuxieme fois ça plante ...

Z'auriez pas une astuce ??

 

[tototiti2008]

Re : Probleme avec worksheetfunction.match

Bonjour Stikouhm,

La 3ème solution doit marcher (il y en a peut-être d'autres).
Simplement, chaque gestion d'erreur (ta partier err doit se finir par :
End, Exit, Resume ou Resume Next, sans quoi la 2ème erreur plante...

 

[stikouhm]

Re : Probleme avec worksheetfunction.match

Merci beaucoup !

j'ai utilisé un resume next a la fin de ma gestion et ça marche nickel !

pour info (ceux qui pourraient avoir ce souci) :

sub masub()
'...
on error goto err
for i = 1 to n
'...
ma_fonction_qui_plante
'...
next i
on error goto 0     'pour remettre la gestion d'erreur initiale
'...
exit sub
err:
 'gestion d'erreur
resume next
end sub

 

[BOISGONTIER]

Re : Probleme avec worksheetfunction.match

Bonjour,

  y = Application.Match(x, [A1:A10], 0)
  If IsError(y) Then
    MsgBox x & "non trouvé"
  Else
    ....
  End If

JB