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:

---

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:

---

=SI(ESTERREUR(RECHERCHEV(C2;'C:\Users\xXx\Desktop\[Consultation_clt.xls]A'!$C$2:$C$7000;1;FAUX));"0";"1")

---

Merci d'avance

Bonjour,

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

Avant :

Code:

---

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:

---

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

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:

---

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