L LaurentG XLDnaute Occasionnel 5 Décembre 2005 #1 Bonjour, J'utilise le code suivant pour rechercher une donnée dans un classeur : Code: Set atrouve = Workbooks('login_extract.xls').Worksheets('feuil1').Cells.Find(numerobv, LookIn:=xlValues, searchorder:=xlByRows) Quand il ne trouve pas la donnée recherchée la variable 'atrouve' prend la valeur de 'Nothing'. J'aimerai mettre une condition dans la suite du code afin que si atrouve est null alors il quitte la macro. J'ai essayé : if atrouve = Nothing then Exit sub Mais il me met un message d'erreur par rapport au nothing. Quelqu'un saurait me dire ce qu'il faut que je mette à la place? Merci Laurent
Bonjour, J'utilise le code suivant pour rechercher une donnée dans un classeur : Code: Set atrouve = Workbooks('login_extract.xls').Worksheets('feuil1').Cells.Find(numerobv, LookIn:=xlValues, searchorder:=xlByRows) Quand il ne trouve pas la donnée recherchée la variable 'atrouve' prend la valeur de 'Nothing'. J'aimerai mettre une condition dans la suite du code afin que si atrouve est null alors il quitte la macro. J'ai essayé : if atrouve = Nothing then Exit sub Mais il me met un message d'erreur par rapport au nothing. Quelqu'un saurait me dire ce qu'il faut que je mette à la place? Merci Laurent
Hervé XLDnaute Barbatruc 5 Décembre 2005 #2 Bonjour laurent essaye comme ceci : If atrouve Is Nothing Then Exit Sub salut Vote positif 0 Vote négatif