Inserer une formule EXCEL en VBA

Résolu/Fermé
Sonkukai - 18 sept. 2018 à 10:42
 Sonkukai - 18 sept. 2018 à 13:06
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
A voir également:

2 réponses

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
18 sept. 2018 à 12:09
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


0