écrire une Formule avec plages en VBA

Bonjour

Dans une feuille(Carte) de calcul il y a des formules qui pointent vers des plages nommées d'une autre feuille (BD).
mais lors de la suppression et l'ajout de colonne sur la feuille BD les formules perdent les référence de plages nommées.

Je souhaiterais remplacer ces formule grace à une procédure VBA.
j'ai consulté ce tuto mais pour ces formules je bloque.

la formule de la cellule G2 est =SI(NB.SI.ENS(ville;Carte!$B2;cerem;Carte!$G$1=0);"";SI(C2<1;"";ARRONDI(D2/NB.SI.ENS(ville;Carte!$B2;cerem;Carte!$G$1);1)))

traduite en VBA
=IF(COUNTIFS(ville,Carte!$B2,cerem,Carte!$G$1=0),"",IF(C2<1,"",ROUND(D2/COUNTIFS(ville,Carte!$B2,cerem,Carte!$G$1),1)))
j'ai essayé avec balises
=IF(COUNTIFS(<ville>,Carte!$B2,<cerem>,Carte!$G$1=0),"",IF(C2<1,"",ROUND(D2/COUNTIFS(<ville>,Carte!$B2,<cerem>,Carte!$G$1),1)))"


Dans une macro

Code:

---

1 2 3 4 5 6

Sub formule() With ThisWorkbook.Worksheets("Carte") .Range("C2:C40").Formula = "=IF(COUNTIFS(<ville>,Carte!$B2,<cerem>,Carte!$G$1=0),"",IF(C2<1,"",ROUND(D2/COUNTIFS(<ville>,Carte!$B2,<cerem>,Carte!$G$1),1)))" End With   End Sub

---

Mais ça ne va pas.

Une aide serait bienvenue
Merci

Bonjour,
essaye comme ça peut-être

Code:

---

1 2	Range("G2").FormulaR1C1 = _ "=IF(COUNTIFS(ville,Carte!RC2,cerem,Carte!R1C7=0),"""",IF(RC[-4]<1,"""",ROUND(RC[-3]/COUNTIFS(ville,Carte!RC2,cerem,Carte!R1C7),1)))"

---

Bonjour
Une formule est une chaîne de caractères :
regarde ta variable/formule VBA :

Code:

---

MsgBox "=IF(COUNTIFS(ville,Carte!$B2,cerem,Carte!$G$1=0),"",IF(C2<1,"",ROUND(D2/COUNTIFS(ville,Carte!$B2,cerem,Carte!$G$1),1)))"

---

Tu vois ce que sont devenus tes "" ? (il n'en reste plus qu'un.
Pour obtenir des guillemets dans une variable string, il faut les doubler.

Un salut à Nicolas JACQUIN (plus rapide que moi)

Citation:

---

Envoyé par Nicolas JACQUIN

Bonjour,
essaye comme ça peut-être

Code:

---

1 2	Range("G2").FormulaR1C1 = _ "=IF(COUNTIFS(ville,Carte!RC2,cerem,Carte!R1C7=0),"""",IF(RC[-4]<1,"""",ROUND(RC[-3]/COUNTIFS(ville,Carte!RC2,cerem,Carte!R1C7),1)))"

---

---

Merci pour cette réponse rapide !

J'ai essayé avec d'autres formules mais je ne comprend pas quand et où il faut mettre les guillemets :calim2:

Exemple
=NB.SI.ENS(ville;Carte!$B3;cerem;$G$1;datedem;">=01/01/"&$H$1;datedem;"<=31/12/"&$H$1)
je l'ai écrite comme ça

Code:

---

Range("c2").FormulaR1C1="=COUNTIFS(ville,Carte!$RC2,cerem,Carte!R1C7=0),datedem,">=01/01/"&Carte!R1C8,datedem,"<=31/12/"&Carte!R1C8)"

---

mais c'est pas bon, je galère.

Il me semble pourtant bien que l'un de nous deux te l'a montré ...
Tu ne saurais pas non plus copier/coller ?
En ce qui me concerne, c'est l'heure de la siestita !

Citation:

---

Envoyé par unparia

Bonjour
Une formule est une chaîne de caractères :
regarde ta variable/formule VBA :

Code:

---

MsgBox "=IF(COUNTIFS(ville,Carte!$B2,cerem,Carte!$G$1=0),"",IF(C2<1,"",ROUND(D2/COUNTIFS(ville,Carte!$B2,cerem,Carte!$G$1),1)))"

---

Tu vois ce que sont devenus tes "" ? (il n'en reste plus qu'un.
Pour obtenir des guillemets dans une variable string, il faut les doubler.

Un salut à Nicolas JACQUIN (plus rapide que moi)

---

Merci
je vais m’entraîner.
mais pas facile de comprendre les cas pour les mettre ces guillemets.

re et bonjour à unparia aussi

déjà tu peux te servir de l'enregistreur de macro qui est la pour ça, s'il est présent c'est pour s'en servir
et voir ce que ça donne :weird:

Bonjour,

Citation:

---

mais pas facile de comprendre les cas pour les mettre ces guillemets.

---

C'est pourtant expliqué au chapitre Comment traiter les constantes alphanumériques dans une formule ? dans le billet titré Ecrire une formule dans Excel à l'aide d'une procédure VBA (Part 2) que tu as toi même référencé

Citation:

---

Envoyé par Nicolas JACQUIN

re et bonjour à unparia aussi

déjà tu peux te servir de l'enregistreur de macro qui est la pour ça, s'il est présent c'est pour s'en servir
et voir ce que ça donne :weird:

---

Merci, c'est pas faux !!:oops:
c'est plus simple et ça évite les questions

merci encore