Discussion :

[stephane31]

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

[ouskel'n'or]

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

[stephane31]

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

[stephane31]

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

[stephane31]

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.

[ouskel'n'or]

Ce n'est pas ActivaCell mais ActiveCell

[Invité]

Re Stéphane31,

Cela fonctionne aussi, mais ne pas mettre Formula :

Code :

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

1
2
3
4
5
6
Sub formule()
debut = 4
fin = 8
 
ActiveCell = "=SUM(D" + CStr(debut) + ":E" + CStr(fin) + ")"
End Sub

[Mytå_Qc]

Salut le forum

Ca fonction aussi avec Formula

Code :

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

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