Incompatiblité de type avec If

alikan -  
thev Messages postés 2005 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je n'arrive pas à afficher un MsgBox après un If sur la valeur d'une variable
voici mon code :

Dim var As String
var = WorksheetFunction.VLookup(Sheets("Feuil1").Range("A" & i), Sheets("Feuil3").Range("A:B"), 2, False)

If (var) Is Nothing Then

MsgBox ("valeur introuvable")

il ya des boucles FOR j'ai copié la partie qui bug seulement

Votre aide svp :(

2 réponses

  1. thev Messages postés 2005 Date d'inscription   Statut Membre Dernière intervention   721
     
    Ton test est relatif à une variable objet. var est une variable chaîne.
    Ceci devrait fonctionner :
    if IsEmpty(var)  
    0
    1. alikan
       
      non :'( :'(
      Il me dit Impossible de lire la propriété VLookUp de la classe WorksheetFunction
      0
  2. thev Messages postés 2005 Date d'inscription   Statut Membre Dernière intervention   721
     
    Normal, car tu mets du code VBA dans ta fonction RECHERCHEV.

    0