Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

ajout d'une variable dans une formule

  • Initiateur de la discussion Initiateur de la discussion perdinch
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

perdinch

XLDnaute Occasionnel
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,
 
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.

@+
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
322
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…