Discussion :

[*.Har(d)t]

Salut à tous,

Je génère en VBA des formules de calculs dynamiquement en fonction du nombre d'enregistrements de mon recordset, et je voudrais coller ces formules dans des cellules.
Jusqu'ici pas de problème, sauf qu'au lieu de prendre la formule et de la calculer, excel l'affiche comme n'importe quelle chaîne.

En effet, je ne peux pas mettre de signe égal en début de formule, sinon ça génère une erreur...

Exemple :

Code :

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

xlSheet.Cells(j, 7) = "SOMME.SI(F5:F" & j - 2 & ";""=" & rst(0) & """;G5:G" & j - 2 & ")"

La formule est correcte, sauf qu'elle est prise comme une chaine.

En ajoutant un égal

Code :

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

xlSheet.Cells(j, 7) = "=SOMME.SI(F5:F" & j - 2 & ";""=" & rst(0) & """;G5:G" & j - 2 & ")"

ça génère l'erreur

J'ai essayé naïvement

Code :

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

xlSheet.Cells(j, 7).formula = "SOMME.SI(F5:F" & j - 2 & ";""=" & rst(0) & """;G5:G" & j - 2 & ")"

Mais ça prend la formule comme une chaîne, comme si il n'y avait pas le formula.

Bref... quelqu'un peut me sauver ?

[Invité]

Bonjour

A la place de Formula essaye FormulaLocal

Code :

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

xlSheet.Cells(j, 7).FormulaLocal = "=SOMME.SI(F5:F" & j - 2 & ";""=" & rst(0) & """;G5:G" & j - 2 & ")"

Je n'ai pas testé

Starec

[*.Har(d)t]

Bonjour

A la place de Formula essaye FormulaLocal

Code :

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

xlSheet.Cells(j, 7).FormulaLocal = "=SOMME.SI(F5:F" & j - 2 & ";""=" & rst(0) & """;G5:G" & j - 2 & ")"

Je n'ai pas testé

Starec

Yiiiiiiha

Merci Starec, tu me sauves la vie !

[FilsEsprit]

Bonjour le forum.
J'aimerais svp connaitre la syntaxe de d'écriture de formulaLocal.
En fait, je veux l'utiliser et y mettre des imbrications (SI) pour les insérer dans une cellule feuille Excel 2013. Mais là je ne reçois que des messages d'erreurs.
Je suis novice en vba, merci de m'aider à mieux comprendre.
Exemple du code souhaité:

Code :

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

Cells(lign_active, col_pu).FormulaLocal = "=SI(Cells(lign_active, col_cod)=(worksheets("coefficients")).cells(lign_sigles,col_dbut_sigles)),(worksheets("coefficients")).(cells(lign_sigles,col_dbut_sigles)-1)*(worksheets("Devis")).cells(lign_active,colon_pu_fob),0)"

Explication : Je veux dire: ma cellule Cells(lign_active, col_pu) doit recevoir la valeur de la cellule situé dans la feuille coefficients -1 (worksheets("coefficients")).(cells(lign_sigles,col_dbut_sigles)-1) multiplié par la valeur de la cellule de la feuille Devis (worksheets("Devis")).cells(lign_active,colon_pu_fob),0) et tout cela si le texte se trouvant dans la cellule Cells(lign_active, col_cod) est pareil a celui se trouvant dans la feuille coefficients (worksheets("coefficients")).cells(lign_sigles,col_dbut_sigles).

[Philippe Tulliez]

Bonjour,

J'aimerais svp connaitre la syntaxe de d'écriture de formulaLocal.
En fait, je veux l'utiliser et y mettre des imbrications (SI) pour les inserer dans une cellule feuille excell 2013. Mais là je ne recois que des messages d'erreurs.
Je suis novice en vba, merci de m'aider à mieux comprendre.

Pour éviter des heures de recherches, de maintenances le jour où l'on change d'interface linguistique d'excel ou tout simplenent si l'on envoie son classeur à un utilisateur ayant une autre interface, Il est préférable d'utiliser la propriété Formula que FormulaLocal

De plus, il est parfaitement inutile d'utiliser une boucle pour écrire une formule sur plusieurs lignes et enfin, l'usage des tableaux structurés (en VBA objet ListObject) permet d'écrire la formule dans une seule cellule. Le tableau structuré se chargeant de répartir la formule sur l'ensemble des cellules de la colonne.

A lire sur le sujet ces billets

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

[EDIT]

Cells(lign_active, col_pu).FormulaLocal = "=SI(Cells(lign_active, col_cod)=(worksheets("coefficients")).cells(lign_sigles,col_dbut_sigles)),(worksheets("coefficients")).(cells(lign_sigles,col_dbut_sigles)-1)*(worksheets("Devis")).cells(lign_active,colon_pu_fob),0)"

La formule que tu souhaites placer dans la propriété Formula ou même FormulaLocal n'est pas transférable telle quelle dans Excel

Il faut écrire manuellement la formule dans Excel et ensuite suivre ce qui est décrit dans les billets référencés.