Inserer une formule EXCEL en VBA

Résolu
Sonkukai -  
 Sonkukai -
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

2 réponses

Réponse 1 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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

Discussions similaires

Mise en forme conditionnelle/ Si cellule CONTIENT un mot
1i1oo -
PapyLuc51 -

3 réponses
mettre en majuscule automatiquement une saisie excel
afarni -
cs_Le Pivert -

8 réponses
Afficher le numéro de ligne de la cellule
hakoko -
hakoko -

4 réponses
VBA - NE copier que la valeur et non la formule
Miniben -
Miniben -

2 réponses
Copie jusqu'à dernière ligne remplie
touroul -
touroul -

2 réponses
convertir formule excel en vba
jc80 -
michel_m -

4 réponses