Gérer l'erreur 1004

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Gérer l'erreur 1004

JGexcel

Bonjour,

J'utilise dans une procédure l'équivalent de la fonction RECHERCHEV pour trouver dans la colonne "F4;F515" le NOM défini dans la variable "J1".

NOM = Application.WorksheetFunction.VLookup(J1, Range("F4:F515" ), 1, Faux)
L'argument "Faux" est nécessaire car je recherche une correspondance exacte.

Ça marche très bien quand J1 existe dans F4:F515. Par contre si F1 n'existe pas je reçois une erreur 1004 qui bloque tout. Dans ce cas je souhaiterais
avoir une réponse m'indiquant que le J1 est absent de ma liste sans bloquer la procédure.
Je bloque là-dessus, merci de m'aider.

Publicité

kiki29

Salut,

Option Explicit

Sub Tst()
Dim sNom As String
On Error GoTo Erreurs

sNom = Application.WorksheetFunction.VLookup(Range("J1" ), Range("F4:F515" ), 1, False)
Sortie:
Exit Sub
Erreurs:
If Err.Number = 1004 Then
MsgBox ("Recherche infructueuse" )
'Application.StatusBar = "Recherche infructueuse"
Resume Sortie
End If
End Sub

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

JGexcel

Merci, ça fonctionne.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Gérer l'erreur 1004

Sujets relatifs
Erreur redirection	gerer les tableaux a deux dimonssion
[php]Erreur mysql_connect et pas de référence à Mysql dans phpinfo	tinyMCE => PHP => MySQL : erreur UTF-8 (Incorrect string value)
erreur "Subquery returns more than 1 row"	erreur xml lors d"ouverture de page
erreur d'importation sauvegarde base de données SQL	access 2007 erreur 2950
erreur d'execution
Plus de sujets relatifs à : Gérer l'erreur 1004

Page générée en 0.040 secondes