Tranformer les formule en code VBA

Bonjour mes amis

Voila je voudrai solliciter votre aide au sujet de transformation de formules en macro, en effet ci-dessous j'ai les formules seulement je voudrai les transformer en code VBA avec condition qui est au lieu de de faire courir Excel sur les 1048576 lignes je voudrai qu'il face le compte juste jusqu'à la dernière ligne renseignée

Voici mes formule en question :

Code:

---

1 2 3 4 5 6 7 8 9

=SIERREUR(BDMOYENNE($B$19:$I$1048576;$H$19;$M$1:$M$2);"-")   =SIERREUR(BDMOYENNE($B$19:$I$1048576;$F$19;$M$1:$M$2);"-")   =SIERREUR(SOMME.SI($C$20:$C$1048576;"Entrée";$G$20:$G$1048576)+SOMME.SI($C$20:$C$1048576;"Annulation";$G$20:$G$1048576);"-")   =SOMME($I$20:$I$1048576)   =SIERREUR(SOMME.SI($C$20:$C$1048576;"Sortie";$I$20:$I$1048576);"-")

---

$H$19 relative au mot P.U. Achat

$F$19 relative au mot P.U. Vente

$M$1:$M$2 = M1 relative au mot (Opération) / M2 relative au mot (Entrée)


Merci pour votre aide

Cordialement

Bonjour,
J'avoue ne rien avoir compris à tes explications. Cependant si je me base sur le titre de ta discussion il est possible que la lecture de ces billets t'apportera une réponse

• Ecrire une formule dans Excel à l'aide d'une procédure VBA
• Comment écrire une formule plus complexe dans une cellule ?

Bonsoir,

Avec ce que j'ai compris de ta demande, je te donne ce code qui permet d'implanter ta formule en A1

Code:

---

1 2 3 4 5

Dim derlig As Long With ActiveSheet derlig = .Cells(Rows.Count, "B").End(xlUp).Row .Range("A1").FormulaLocal = "=SIERREUR(BDMOYENNE($B$19:$I$" & derlig & ";$H$19;$M$1:$M$2);""-"")" End With

---

Tu peux rajouter tes autres formules avec le même procédé

Merci Philippe Tulliez et Anasecu pour votre aide

Finalement ce que tu m'a proposé Anasecu correspond exactement à ce que je cherche

Merci infiniment à vos deux

:zoubi: