ajout d'une variable dans une formule

[perdinch]

bonjour,

Par VBA, je souhaite ajouter une variable à plusieurs centaines de formules telle que celle-ci:

=SOMMEPROD((NB.SI(A2;safir_calcul_onglet_1)>0)*(crit_mois_numcalcul_onglet_1=$O$1*1)*(calc_num_calcul_onglet_1))/SOMMEPROD((NB.SI(A2;safir_calcul_onglet_1)>0)*(crit_mois_denomcalcul_onglet_1=$O$1*1)*(calc_denom_calcul_onglet_1))

Il faut que je remplace le texte "calcul_onglet_1" (apparaissant 6 fois ) dans la formule par une variable.
Supposons que ma variable s'appelle var_ZONE_1.
"calcul_onglet_1" devrait être remplacé par le nom de ma variable "var_ZONE_1"

La plage concernée par cette modification est la suivante I2:Y649

merci de vos propositions de code



cordialement,

 

[mercant76]

Re : ajout d'une variable dans une formule

bonjour,

pourquoi par VBA ?

tu vas dans visual basic editor, tu fais Edition/Remplacer et tu mets en haut l'ancien texte et en bas le nouveau, puis remplacer tout.

@+

 

[camarchepas]

Re : ajout d'une variable dans une formule

Bonjour,
sub remplace
for t = 0 to 647
for y = 0 to 16
chaine = Range("I2").offset(t,y).Formula
Range("I2").offset(t,y).formula= Replace(chaine, "calcul_onglet_1", "var_ZONE_1")
next Y
Next t
end sub

 

[perdinch]

Re : ajout d'une variable dans une formule

merci de vos réponses et particuliérement à CAMARCHEPAS car sa proposition MARCHE très bien.

cordialement

PERDINCH