Intégration d'une variable VBA dans une formule

Bonjour à tous.
Comment intégrer une variable VBA dans une formule Excel ?
Avez vous un exemple ?
Merci d'avance,
Stéphane

Tu la prends où cette variable ?
Comment insères-tu cette formule ? Dans Excel ? Dans VBA ?

Citation:

---

Envoyé par ouskel'n'or

Tu la prends où cette variable ?
Comment insères-tu cette formule ? Dans Excel ? Dans VBA ?

---

Bonjour ouskel'n'or.
Je veux qu'une cellule renferme une somme des éléments de la colonne D allant de la ligne n° debut à la ligne n°fin.
Le problème, en fait, c'est que le programme calcule au moment de l'exécution la variable début et la variable fin.

J'utilise l' instruction exacte pour effectuer cette somme dynamique :
ActiveCell.FormulaR1C1 = "=SUM(" + "D" + CStr(debut) + ":" + "D" + CStr(fin) + ")"

En fait, si debut = 5 et fin = 8,
cela ne fait que ranger dans la cellule active la formule suivante :
=SOMME('D5':'D8')

Je ne comprends pas ce que viennent faire ces simples guillemets (que j'ai écrits en rouge).
Le programme met les guillemets simples et je ne sais pas pourquoi.

A mon avis, tout le problème vient d elà, et je ne sais comment le résoudre.

Voilà ,

D'avance Merci,
Stéphane

En remplacant l'opérateur + par l'opérateur & de concaténation,
le problème reste là.

En fait,
comme m'a indiqué jacques_jean,
au lieu d'utiliser ActivaCell,
je référence la cellule où je veux inclure la formule de cette manière Cells(1,3),
et là ça marche.
Stéphane

PS:
C'est quand même bizarre qu'avec ActivaCell, ça ne marche pas, mais je vais prendre la méthode qui marche.

Ce n'est pas ActivaCell mais ActiveCell ;)

Re Stéphane31,

Cela fonctionne aussi, mais ne pas mettre Formula :

Code:

---

1 2 3 4 5 6

Sub formule() debut = 4 fin = 8   ActiveCell = "=SUM(D" + CStr(debut) + ":E" + CStr(fin) + ")" End Sub

---

Salut le forum

Ca fonction aussi avec Formula

Code:

---

1 2 3 4 5 6 7

Sub essai() Dim Debut As Byte, Fin As Byte Debut = 5 Fin = 8 ActiveCell.Formula = "=SUM(D" & CStr(Debut) & ":D" & CStr(Fin) & ")" End Sub

---

Mytå_Qc