XL 2019 Convertir Formule en VBA

C

Compte Supprimé 979

Guest

• 16 Décembre 2023

• #2

Bonjour Rabeto

Oui, c'est simple, utilisez l'enregistreur de macros


Vous entrez en mode édition [F2] dans la cellule qui contient la formule et [Entrée]
Vous arrêtez l'enregistreur, vous avez alors le code de la formule (normalement)

Il faut ensuite la modifier pour remplacer le chiffre 2 par un # (par exemple)
Et utiliser la fonction REPLACE()

A+

 

Vote positif 1 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Décembre 2023

• #3

re
bonjour @BrunoM45
là tu converti pas
tu encode la formule en vba c'est pas la même chose
on ne converti pas une formule
on converti le raisonnement de la formule c'est pas la même chose
et pour info vu le caractère matriciel de la formule l'evaluate de cet encodage renvera error 2015

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 16 Décembre 2023

• #4

Bonjour à tous,

si le but est d'alléger le fichier et qu'il s'y prête, tu devrais plutôt copier-coller la valeur, sauf sur la première ligne où tu conserves la formule. Elle restera plus facilement modifiable qu'en vba.
En cas de modif ou d'ajout, tu copies-colles la formule sur les lignes concernées et tu refais un collé valeur.
Il faudra t'assurer de la fin des calculs avant de faire le copier-coller valeur :

VB:

    ' coller formule
    ' ...
    Do Until Application.CalculationState = xlDone
        DoEvents
    Loop
    ' copier coller valeur
    ' ...'

eric

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 16 Décembre 2023

• #5

Salut Patrick

patricktoulon à dit:

re
bonjour @BrunoM45
là tu converti pas
tu encode la formule en vba c'est pas la même chose
on ne converti pas une formule
on converti le raisonnement de la formule c'est pas la même chose
et pour info vu le caractère matriciel de la formule l'evaluate de cet encodage renvera error 2015

Cliquez pour agrandir...

Il n'est indiqué nulle part qu'il faut convertir la formule

L'encoder pour moi c'est plus simple pour quelqu'un qui ne connait pas le VBA
On inscrit la formule, on fait un copier/coller valeur et le tours est joué

Nous sommes en fin d'année, le cerveau à besoin de se reposer

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Décembre 2023

• #6

Bonsoit à tous,

Je ne vois pas pourquoi on parle de VBA :

- copier la formule du post #1 et entrez-la en cellule VU2

- valider VU2 matriciellement par Ctrl+Maj+Entrée

- tirer VU2 vers le bas jusqu'à VU65, le calcul prend un peu de temps.

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Décembre 2023

• #7

Maintenant si l'on veut absolument du VBA on mettra ce code dans un module standard :

VB:

Sub Valider()
[VU2].FormulaLocal = _
    "=(SIERREUR(SOMME(AF2:AG2)/AE2;0)*SIERREUR((SIERREUR(($AE2-ECART.MOYEN(SI($AD:$AD=$AD2;$AE:$AE;"""")))/$AE2;0)*SIERREUR(($AF2-ECART.MOYEN(SI($AD:$AD=$AD2;$AF:$AF;"""")))/$AE2;0))" _
    & "+(SIERREUR(($AE2-ECART.MOYEN(SI($AD:$AD=$AD2;$AE:$AE;"""")))/$AE2;0)*SIERREUR(($AG2-ECART.MOYEN(SI($AD:$AD=$AD2;$AG:$AG;"""")))/$AG2;0));0))" _
    & "-(SIERREUR(SOMME(AH2:AI2)/AE2;0)*SIERREUR((SIERREUR(($AE2-ECART.MOYEN(SI($AD:$AD=$AD2;$AE:$AE;"""")))/$AE2;0)*SIERREUR(($AH2-ECART.MOYEN(SI($AD:$AD=$AD2;$AH:$AH;"""")))/$AE2;0))" _
    & "+(SIERREUR(($AE2-ECART.MOYEN(SI($AD:$AD=$AD2;$AE:$AE;"""")))/$AE2;0)*SIERREUR(($AI2-ECART.MOYEN(SI($AD:$AD=$AD2;$AI:$AI;"""")))/$AI2;0));0))"
[VU2].Select
CreateObject("WScript.Shell").SendKeys "{F2}^+~" 'envoi des touches de validation matricielle
Application.OnTime 1, "Remplir" 'lancement différé
End Sub

Sub Remplir()
[VU2].AutoFill [VU2:VU65]
End Sub

et on exécutera la macro Valider.

Bonne nuit.

 

Vote positif 1 Vote négatif

Solution

R

Rabeto

XLDnaute Occasionnel

• 17 Décembre 2023

• #8

Bonjour à tous,
merci pour vos réponses,
Le but étant d'alléger le chargement de la feuille avec la formule matricielle manuelle qui prend du temps et trop lourd

BrunoM45 : Oui J'ai fait la manip enregistrement macro mais la lenteur persiste,
eriiic : Je n'arrive pas à reproduire votre code
job75 : J'ai essayé le code, ça fonctionne mais il y a ce message qui s'affiche, mais ça marche

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Décembre 2023

• #9

Bonjour Rabeto, le forum,

Je ne sais pas pourquoi vous avez ce message, il n'y en a pas chez moi.

Chez moi les 64 formules matricielles se calculent en 168 secondes, c'est bien long.

J'ai essayé en VBA d'utiliser FormulaArray mais la formule n'est pas acceptée, que ce soit en notation A1 ou en notation R1C1.

A+

 

Vote positif 0 Vote négatif

R

Rabeto

XLDnaute Occasionnel

• 17 Décembre 2023

• #10

Merci job75,

Je vais opter pour votre code, et faire juste Ok après chaque lancement du macro

merci

 

Vote positif 0 Vote négatif