Insérer une formule via VBA

Version imprimable

12/08/2016, 09h26
pitchito

Insérer une formule via VBA

Bonjour à tous,

je m'inscris ici car j'ai vraiment besoin de l'aide de meilleur que moi (malgré un intérêt certain pour le sujet, je travaille dans la robinetterie industrielle, je ne suis donc pas un expert du VBA)

Je suis sur que la ligne à ajouter dans mon code de macro est facile mais je ne la trouve pas.

Imaginons que j'ai une formule (par exemple "=somme(A4:A20)") et que je souhaite dire à ma macro de placer cette formule en A1 (et la calculer bien sure). Comment faire?
Bon dans la réalité, la situation est bien plus complexe et ma formule fait 908 caractères mais je suppose que ça ne change rien par rapport à "=somme()"

Si vous avez une réponse pour moi, je vous serez ÉTERNELLEMENT reconnaissant!
12/08/2016, 09h40
antonysansh
Bonjour pitchito,

Dans ton cas l'enregistreur de macro va être d'une aide précieuse.
Je te conseil cet excellent tutoriel : Excel et l'enregistreur de macro

Si tu as ta formule dans ton classeur il te suffit de lancer l'enregistreur de macro de te placer sur la cellule de faire F2 puis Enter et de stopper l'enregistreur.
Tu auras alors un code servi sur un plateau.

En reprenant ton exemple (Somme(A4:A20) en A1 de la feuille 1) :
- Lancer l'enregistreur
- Sélection de la feuille 1
- Sélection de la cellule A1
- F2
- Entrer
- Stopper l'enregistreur
Excel me fourni le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Macro1() ' ' Macro1 Macro ' ' Sheets("Feuil1").Select Range("A1").Select ActiveCell.FormulaR1C1 = "=SUM(R[3]C:R[19]C)" Range("A2").Select End Sub
Apres un petit nettoyage j'ai la macro suivante :
Code:

1 2 3 Sub AjouterFormule() ThisWorkbook.Sheets("Feuil1").Range("A1").FormulaR1C1 = "=SUM(R[3]C:R[19]C)" End Sub
12/08/2016, 10h04
pitchito

Merci pour la rapidité de la réponse, mais après essais ça ne fonctionne pas.

Je pense que ça vient du fait que lorsque je lance la macro, le tableur est vide, il n'y a pas de formule dedans

Après essais avec une simple formule de Somme, ça fonctionne parfaitement bien

Alors pourquoi ça ne fonctionne pas avec une formule plus complexe? (La formule fonctionne parfaitement bien quand je la copie directement dans la cellule)

Je me permet de mettre la formule ici, peut être qu'il y a un terme interdit en VBA dedans?

Code:

=SIERREUR(SIERREUR(SIERREUR(SIERREUR(SIERREUR(INDEX('Flux Court'!$B$44:$BC$54;EQUIV('Matrice PolyC'!$A8;'Flux Court'!$A$44:$A$54;0);EQUIV('Matrice PolyC'!B$6;'Flux Court'!$B$6:$BC$6;0));(INDEX('Flux Long'!$B$31:$AZ$49;EQUIV('Matrice PolyC'!$A8;'Flux Long'!$A$31:$A$49;0);EQUIV('Matrice PolyC'!B$6;'Flux Long'!$B$6:$AZ$6;0))));INDEX('Log. Amont'!$D$33:$AO$50;EQUIV('Matrice PolyC'!$A8;'Log. Amont'!$C$33:$C$50;0);EQUIV('Matrice PolyC'!B$6;'Log. Amont'!$D$6:$AO$6;0)));INDEX(CdD!$D$22:$AH$42;EQUIV('Matrice PolyC'!$A8;CdD!$C$22:$C$42;0);EQUIV('Matrice PolyC'!B$6;CdD!$D$6:$AH$6;0)));INDEX('Flux Usinage'!$B$23:$AJ$38;EQUIV('Matrice PolyC'!$A8;'Flux Usinage'!$A$23:$A$38;0);EQUIV('Matrice PolyC'!B$6;'Flux Usinage'!$B$6:$AJ$6;0)));" ")

Bonjour

L'enregistreur donne

Code:

1
2
3
"=IFERROR(IFERROR(IFERROR(IFERROR(IFERROR(INDEX('Flux Court'!R44C2:R54C55,MATCH('Matrice PolyC'!R[7]C1,'Flux Court'!R44C1:R54C1,0),MATCH('Matrice PolyC'!R6C[1],'Flux Court'!R6C2:R6C55,0)),(INDEX('Flux Long'!R31C2:R49C52,MATCH('Matrice PolyC'!R[7]C1,'Flux Long'!R31C1:R49C1,0),MATCH('Matrice PolyC'!R6C[1],'Flux Long'!R6C2:R6C52,0)))),INDEX('Log. Amont'!R33C4:R50C41,MAT" & _
        "ice PolyC'!R[7]C1,'Log. Amont'!R33C3:R50C3,0),MATCH('Matrice PolyC'!R6C[1],'Log. Amont'!R6C4:R6C41,0))),INDEX(CdD!R22C4:R42C34,MATCH('Matrice PolyC'!R[7]C1,CdD!R22C3:R42C3,0),MATCH('Matrice PolyC'!R6C[1],CdD!R6C4:R6C34,0))),INDEX('Flux Usinage'!R23C2:R38C36,MATCH('Matrice PolyC'!R[7]C1,'Flux Usinage'!R23C1:R38C1,0),MATCH('Matrice PolyC'!R6C[1],'Flux Usinage'!R6C2:R6" & _
        """ "")"

dont pas de PB particulier

Néanmoins il serait plus simple de nommer les plages de recherche afin d'alléger et donner de la lisibilité...

Excusez moi par avance, je ne sais pas comment on met du code sur le forum, mais lorsque je met ça, j'ai une erreur à l'activation

Code:

1
2
3
4
5
6
7
8
Sub Macro5()
 
    Sheets("Matrice PolyC").Range("B8").FormulaR1C1 = "=IFERROR(IFERROR(IFERROR(IFERROR(IFERROR(INDEX('Flux Court'!R44C2:R54C55,MATCH('Matrice PolyC'!R[7]C1,'Flux Court'!R44C1:R54C1,0),MATCH('Matrice PolyC'!R6C[1],'Flux Court'!R6C2:R6C55,0)),(INDEX('Flux Long'!R31C2:R49C52,MATCH('Matrice PolyC'!R[7]C1,'Flux Long'!R31C1:R49C1,0),MATCH('Matrice PolyC'!R6C[1],'Flux Long'!R6C2:R6C52,0)))),INDEX('Log. Amont'!R33C4:R50C41,MAT" & _
        "ice PolyC'!R[7]C1,'Log. Amont'!R33C3:R50C3,0),MATCH('Matrice PolyC'!R6C[1],'Log. Amont'!R6C4:R6C41,0))),INDEX(CdD!R22C4:R42C34,MATCH('Matrice PolyC'!R[7]C1,CdD!R22C3:R42C3,0),MATCH('Matrice PolyC'!R6C[1],CdD!R6C4:R6C34,0))),INDEX('Flux Usinage'!R23C2:R38C36,MATCH('Matrice PolyC'!R[7]C1,'Flux Usinage'!R23C1:R38C1,0),MATCH('Matrice PolyC'!R6C[1],'Flux Usinage'!R6C2:R6" & _
        """ "")"
 
 
End Sub

12/08/2016, 10h35
78chris

re

Quelle erreur ?

Tes divers onglets existent bien dans le classeur ?
12/08/2016, 10h38
pitchito

"erreur d’exécution '1004'

Et oui, tout est dans un seul et unique fichier
Ce qui est étrange, c'est que lorsque je copie colle "à la main" dans ma cellule, ça fonctionne tout à fait bien

Re

L'enregistreur ne marche pas bien : il y a des erreurs dans sa formule obtenue

Code:

1
2
3
4
5
6
7
8
ActiveCell.FormulaLocal = "=SIERREUR(SIERREUR(SIERREUR(SIERREUR(SIERREUR(INDEX('Flux Court'!$B$44:$BC$54;" & _
"EQUIV('Matrice PolyC'!$A8;'Flux Court'!$A$44:$A$54;0);EQUIV('Matrice PolyC'!B$6;'Flux Court'!$B$6:$BC$6;0));" & _
"(INDEX('Flux Long'!$B$31:$AZ$49;EQUIV('Matrice PolyC'!$A8;'Flux Long'!$A$31:$A$49;0);" & _
"EQUIV('Matrice PolyC'!B$6;'Flux Long'!$B$6:$AZ$6;0))));INDEX('Log. Amont'!$D$33:$AO$50;" & _
"EQUIV('Matrice PolyC'!$A8;'Log. Amont'!$C$33:$C$50;0);EQUIV('Matrice PolyC'!B$6;'Log. Amont'!$D$6:$AO$6;0)));" & _
"INDEX(CdD!$D$22:$AH$42;EQUIV('Matrice PolyC'!$A8;CdD!$C$22:$C$42;0);EQUIV('Matrice PolyC'!B$6;CdD!$D$6:$AH$6;0)));" & _
"INDEX('Flux Usinage'!$B$23:$AJ$38;EQUIV('Matrice PolyC'!$A8;'Flux Usinage'!$A$23:$A$38;0);" & _
"EQUIV('Matrice PolyC'!B$6;'Flux Usinage'!$B$6:$AJ$6;0)));"""")"

12/08/2016, 11h34
antonysansh

Avec l'enregistreur, si la chaine de caractères de la formule est trop long, cette dernière va être tronqué.

D'où l'erreur.
12/08/2016, 11h40
pitchito

Un énorme merci, ça fonctionne parfaitement!

Vous me sortez de deux jours de recherche et d'essais infructueux
12/08/2016, 12h47
78chris

Re

Citation:

Envoyé par antonysansh

Avec l'enregistreur, si la chaine de caractères de la formule est trop long, cette dernière va être tronqué.

D'où l'erreur.

Le souci ici c'est que c'est tronqué au milieu : si on détaille ce qui est fait par l'enregistreur des éléments au centre de la formule sautent...

Je maintiens mon conseil de nommer les plages de recherche : cela raccourcira la formule et la rendra bien plus lisible...