Discussion :

[INFINITY100]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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 ?

[anasecu]

Bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

[INFINITY100]

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