Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
736 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Gérer l'erreur 1004

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Gérer l'erreur 1004

n°2143147
JGexcel
Posté le 21-05-2012 à 09:53:20  profilanswer
 

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.

mood
Publicité
Posté le 21-05-2012 à 09:53:20  profilanswer
 

n°2143151
kiki29
Posté le 21-05-2012 à 10:21:12  profilanswer
 

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
n°2143207
JGexcel
Posté le 21-05-2012 à 13:38:17  profilanswer
 

Merci, ça fonctionne.


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Gérer l'erreur 1004

 

Sujets relatifs
Erreur redirectiongerer les tableaux a deux dimonssion
[php]Erreur mysql_connect et pas de référence à Mysql dans phpinfotinyMCE => 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 SQLaccess 2007 erreur 2950
erreur d'execution 
Plus de sujets relatifs à : Gérer l'erreur 1004


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR