Discussion :

[counterbob]

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 :

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

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

[Nicolas JACQUIN]

Bonjour,
essaye comme ça peut-être

Code :

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

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)))"

[counterbob]

Bonjour,
essaye comme ça peut-être

Code :

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

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

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 :

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

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.

[unparia]

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 !

[unparia]

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

Code :

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

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)

[counterbob]

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

Code :

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

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.

[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

[Philippe Tulliez]

Bonjour,

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é

[counterbob]

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

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

merci encore