VBA EXCEL: fonction IF IS ERROR

Bonjour,

Je n'arrive pas à utiliser la fonction is error relative à la fonction VLOOKUP. un message d'erreur s'affiche toujours:

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton19_Click()   Dim x As Variant x = Application.WorksheetFunction.VLookup(CDbl(TextBox31), Sheets("Feuil2").Range("Tablo"), 3, False) If IsError(x) Then Exit Sub Else TextBox32 = x   End Sub

---

Merci pour votre aide

Bonjour
Je suggère (suis-je bête) de consulter l'aide interne de VBA pour savoir ce qu'est la fonction IKsErros.
On peut y lire :

Citation:

---

La fonction IsError est utilisée pour déterminer si une expression numérique représente une erreur

---

Bien.
Question que l'on se pose alors assez logiquement :

Code:

---

Application.WorksheetFunction.VLookup(CDbl(TextBox31), Sheets("Feuil2").Range("Tablo"), 3, False)

---

est-elle une expression numérique ?
Ben ... On ouvre donc son aide VBA interne à la rubrique WorksheetFunction.VLookup, méthode
Ce n'est pas une expressin numérique du tut, mais une méthode.
et on lit : tant ce qu'elle retourne que ce qu'elle peut retourner...
Y trouve-t-on ce que serait IsError ? -- >> non, n'est-ce pas !
Commence, veux-tu bien, par ce genre de démarche. Ce sera un vrai premier pas.

Bonjour !

Citation:

---

Envoyé par LANGAZOU

Je n'arrive pas à utiliser la fonction is error relative à la fonction VLOOKUP. un message d'erreur s'affiche toujours

---

C'est normal et ce n'est pas VLookup la cause mais l'atroce WorksheetFunction !
Son but est de justement planter un code en cas d'un résultat d'une fonction renvoyant une erreur …
Ne jamais l'utiliser, Application suffisant largement !

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Coucou Marc,
:plusser: j'en avait fait l'expérience sur le post où il fallait réduire le temps d'une macro qui durait plus de 1h25, celle où tu conseillé l'évaluation des noms se trouvant sur un autre classeur.
J'étais tombé sur le problème de WorksheetFunction, depuis ce jour c'est Application que j'utilise.

Merci beaucoup ;-)