Formules en VBA

Bonjour,
Je cherche à récupérer des données d'une feuille à une autre dans un fichier de plus de 140 000 lignes.
Mon code y parviens très bien avec:

Code:

---

1 2	Selection.FormulaArray = _ "=IF(OR(R2C19<>""TROUVER"",ISERROR(INDEX(BdD!R2C1:R144765C64,SMALL(IF(R2C15=BdD!R2C28:R144765C28,ROW(BdD!R2C28:R144765C28))," & i & ")-1,1))),"""",INDEX(BdD!R2C1:R144765C64,SMALL(IF(R2C15=BdD!R2C28:R144765C28,ROW(BdD!R2C28:R144765C28))," & i & ")-1,1))"

---

Mais le passage par l'inscription de la formule dans les cellules est très long, j'essaie donc de calculer le résultat directement par VBA mais n'y parviens pas.

La formule obtenue est:

Code:

---

={SI(OU($S$2<>"TROUVER";ESTERREUR(INDEX(BdD!$A$2:$BL$144765;PETITE.VALEUR(SI($O$2=BdD!$AV$2:$AV$144765;LIGNE(BdD!$AV$2:$AV$144765));1)-1;1)));"";INDEX(BdD!$A$2:$BL$144765;PETITE.VALEUR(SI($O$2=BdD!$AV$2:$AV$144765;LIGNE(BdD!$AV$2:$AV$144765));1)-1;1))}

---

J'ai commencé par le commencement:

Code:

---

LIGNE(BdD!$AV$2:$AV$144765)

---

, aucun problème mais à partir de l'introduction du

Code:

---

SI

---

ça ne va plus:

Code:

---

IIf(Range("O2").Value = Range("BdD!AV2").Value, Range("BdD!AV2:AV144765").Row, 0)

---

ne pose pas de problème mais:

Code:

---

IIf(Range("O2").Value = Range("BdD!AV2:AV144765").Value, Range("BdD!AV2:AV144765").Row, 0)

---

ne fonctionne plus: "Erreur d'exécution '13': Incompatibilité de type" et en voulant passer sur une formule matricielle:

Code:

---

Evaluate(IIf(Range("O2").Value = Range("BdD!AV2:AV144765").Value, Range("BdD!AV2:AV144765").Row, 0))

---

Idem.

Le code entier:

Code:

---

1 2 3 4 5 6 7 8 9

Sub APPFUNCT()     Dim x   x = Evaluate(IIf(Range("O2").Value = Range("BdD!AV2:AV144765").Value, Range("BdD!AV2:AV144765").Row, 0)) Range("S4").Value = x   End Sub

---

Merci pour toute aide!!!!!!!

Bonjour Kestion, Bonjour le Forum,

Très belle et heureuse année à tous!

A mon avis, mieux vaut garder la formule donnée par l'enregistreur si celle-ci répond à ton besoin.
Tu peux utiliser les propriétés de calcul et d'affichage écran de l'Objet Application
Tu peux également coller les valeurs aux cellules après calcul.

A adapter

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Option Explicit   Public Sub ecriture_formule()   Const laformule As String = "=A2*3"   Dim derlign As Long   With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With   With Worksheets(1) derlign = .Cells(.Rows.Count, 1).End(xlUp).Row With .Range("B2:B" & derlign) .Formula = laformule Application.Calculate .Value = .Value End With End With   Application.ScreenUpdating = True   End Sub

---

Merci, en effet, j'ai repris le blocage du calcul et de l'affichage avec déblocage à la fin puis copier coller (valeurs) et mon fichier est devenu léger comme une plume.....

Salut,

Citation:

---

avec déblocage à la fin

---

Je précise à toute fin utile.
Dans mon code, un calcul s'exécute après formulation.
Si l'on souhaite réinitialiser le mode de calcul, alors il faut modifier la propriété

Code:

---

Application.Calculation

---