IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Pb avec Application.IfError [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Avril 2017
    Messages
    22
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Chargé d'affaire

    Informations forums :
    Inscription : Avril 2017
    Messages : 22
    Par défaut Pb avec Application.IfError
    Bonjour à tous,

    J'ai un petit soucis avec une formule. Le débogeur annonce une erreur 9 (l'indice n'appartient pas à la sélection) pour la partie surligné.
    J'ai vérifié la formule, et je pense avoir une erreur dans le sens où j'écris en vba comme si j'écrivais la formule dans la cellule sous excel.

    Sous Vba
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Dim DernLigne As Integer
    'Démarre Bas jusqu'à 1ere ligne non vide
        DernLig = Range("C" & Rows.Count).End(xlUp).Row
    'Insertion "Le Meux" RechercherV si cellule Vide
    For Each MaCellule In Range("AA2:A" & DernLig)
        If MaCellule.Text = Empty Then MaCellule.Value = Application.IfError(Application.VLookup(Range("C" & MaCellule.Row), Workbooks("Consultation_clt.xls").Worksheets("A").Range("C2:C7000"), 1, 0), "0", "1")    
            Next MaCellule
    Sous Excel
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =SI(ESTERREUR(RECHERCHEV(C2;'C:\Users\xXx\Desktop\[Consultation_clt.xls]A'!$C$2:$C$7000;1;FAUX));"0";"1")
    Merci d'avance

  2. #2
    Inactif  

    Homme Profil pro
    Développeur .NET
    Inscrit en
    Janvier 2012
    Messages
    4 903
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Finance

    Informations forums :
    Inscription : Janvier 2012
    Messages : 4 903
    Billets dans le blog
    36
    Par défaut
    Bonjour,

    Essaie plutôt avec FormulaLocal à la place de value. Cela équivaut à utiliser VBA pour écrire ta formule dans la cellule

    Avant :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     If MaCellule.Text = Empty Then MaCellule.Value = Application.IfError(Application.VLookup(Range("C" & MaCellule.Row), Workbooks("Consultation_clt.xls").Worksheets("A").Range("C2:C7000"), 1, 0), "0", "1")
    Après:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
      If MaCellule.Text = Empty Then MaCellule.FormulaLocal ="= SI(ESTERREUR(RECHERCHEV(C2;'C:\Users\xXx\Desktop\[Consultation_clt.xls]A'!$C$2:$C$7000;1;FAUX));"0";"1") "
    Il y a bien les deux = et les guillemets

  3. #3
    Membre averti
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Avril 2017
    Messages
    22
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Chargé d'affaire

    Informations forums :
    Inscription : Avril 2017
    Messages : 22
    Par défaut
    Bonjour Clement,

    Merci pour ton retour, j'ai testé comme tu me l'as dis. J'ai une erreur 1004, erreur définie par l'application ou par l'objet


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    For Each MaCellule In Range("AA2:A" & DernLig)
        If MaCellule.Text = Empty Then MaCellule.FormulaLocal ="=SI(ESTERREUR(RECHERCHEV(C2;'C:\Users\xXxi\Desktop\[Consultation_clt.xls]A'!$C$2:$C$7000;1;FAUX));0;1)"
        Next MaCellule
    Merci d'avance

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. PB d'attente avec application console
    Par T-B dans le forum Langage
    Réponses: 3
    Dernier message: 05/05/2006, 17h06
  2. [VBA-E] Problème avec Application.StatusBar
    Par laloune dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 04/03/2006, 16h44
  3. [VBA][EXCEL]Erreur '1004' avec "Application.Run"
    Par Ania dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 16/01/2006, 10h50
  4. Réponses: 1
    Dernier message: 01/01/2006, 19h53
  5. problème avec Application->ProcessMessages()
    Par petitours dans le forum C++Builder
    Réponses: 4
    Dernier message: 15/08/2005, 10h27

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo