Inserer une formule EXCEL en VBA Résolu/Fermé

Question

Bonjour,

Je suis en train de développer un fichier de gestion et j'aimerai incorporer dans certaines cellules les formules suivantes : NBVAL et NB.SI.
Les cellules dans lesquelles ces formules sont incorporées sont variables a chaque ajout de matériel.

J'utilise les ligne de code suivantes:
Cells(x + q, 7.Formula = "=NBVAL(G" & x & ":G" & x + q - 1 &")"
Cells(x + q + 2, 7).Formula = "=NB.SI(A" & x & ";A" & x + q + 2 & ")"

Utilisé de cette manière, les lignes de code me renvoient une erreur.
J'ai remarqué qu'en retirant le "=" qui se trouve dans les parenthèse devant le NBVAL et le NB.SI, les cellules récupèrent bien les formule mais sans le =. De ce fait, le formule ne fonctionne pas à moins que l'on ajoute le "=" à la main à l'issue.

J'ai essayé avec la fonction COUNTIF, le case renvoie bien la valeur voulue, mais les les case contées sont modifiées, le résultat ne change pas.

Avez vous une astuce pour ne pas avoir à ajouter le "=" à la mains?

Par avance merci

cs_Le Pivert · Answer

Bonjour,

essaie ceci:

Dim Formule
Formule = "=NBVAL(G" & x & ":G" & x + q - 1 & ")"
Sheets("nom de la feuille").Cells(x + q, 7).FormulaLocal = Formule
Formule = "=NB.SI(A" & x & ";A" & x + q + 2 & ")"
Sheets("nom de la feuille").Cells(x + q + 2, 7).FormulaLocal = Formule

Sonkukai · Answer

Merci beaucoup, cela fonctionne impeccable.

Inserer une formule EXCEL en VBA

2 réponses

Discussions similaires