Discussion :

[LANGAZOU]

Bonjour,

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

Code :

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

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

[unparia]

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 :

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 :

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

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.

[Marc-L]

Bonjour !

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, …

[RyuAutodidacte]

Coucou Marc,
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.

[LANGAZOU]

Merci beaucoup ;-)