VBA - Formula - Insérer une formule référencé à une variable et des cellules dans une cellule

Bonjour,

J'ai réussit d'insérer une formule via "formula" ou "formulaR1C1" dans une cellule. Maintenant je dois insérer une formule dans une cellule, et cette formule fait référence à une variable crée et certains cellules dans le même onglet. J'ai essayé de créer la formule comme :

Code:

---

1 2 3 4

Dim cot_encaisse_prev(1 To 60) As Double Dim cell_cot_encaisse_prev(1 To 60) As String   Range(cell_cot_encaisse_prev(k)).FormulaR1C1 = " = " & cot_encaisse_prev(k) & " - SUM(R[-4]C:R[-1]C)"

---

Je voudrais que la formule me donne = la valeur de cot_encaisse_prev(k) -SUM(q36:q39) (cell_cot_encaisse_prev(k)=q40), mais j'ai trouvé " = valeur de cot_encaisse_prev(k) - SUM(R[-4]C:R[-1]C)"dans la cellule.

Avez vous une idée ?
Merci d'avance pour la réponse !!!!

Siva

Bonjour,

Je préfère utiliser Formula que FormulaR1C1.
Je trouve ça plus lisible, bien qu'il faille transférer en anglais...

Pour fins de tests j'ai entré des données de A1 à I1
En J1, j'ai mis la formule qui suit
=10+SOMME(A1:I1)

Dans le code, j'ai mis ceci qui donne le même résultat

Code:

---

1 2 3

Dim MaVar As Long MaVar = 10 Range("J1").Formula = "=" & MaVar & "-SUM(A1:I1)"

---

Si la ligne est aussi une variable

Code:

---

1 2 3 4

Dim MaVar As Long, Ligne As Long MaVar = 10 Ligne = 1 Range("J1").Formula = "=" & MaVar & "-SUM(A" & Ligne & ":I" & Ligne & ")"

---

Merci pour la réponse :), j'ai bien essayé, le votre marche bien, mais quand j'ai appliqué le mien, il ne marche tjs pas. En fait,la colonne et la ligne sont des variables, j'ai essayé d'abord paramétrer la ligne comme :

Code:

---

1 2 3

Dim Ligne As Long Ligne = Right(cell_cot_encaisse_prev(k), 2) Range(cell_cot_encaisse_prev(k)).Formula = "=" & cot_encaisse_prev(k) & "-SUM(Q" & Ligne - 4 & ":Q" & Ligne - 1 & ")"

---

J'ai exécuté pas à pas, il est bloqué tjs sur cette phrase là, pourtant, toutes les variables prennent de bonnes valeurs. J'ai bien fait attention sur l'espace, du cou, je ne comprend plus rien ...

Juste avant la ligne en défaut, mets un MsgBox et regarde si tout est vraiment conforme...

Code:

---

1 2 3

Dim strFormule As String strFormule = "=" & cot_encaisse_prev(k) & "-SUM(Q" & Ligne - 4 & ":Q" & Ligne - 1 & ")" MsgBox strFormule

---

Peut-être que Ligne - 4 donne une valeur impossible (?)

En fait, j'ai réessayé, si la variable cot_encaisse_prev(k) est définit comme "Long", ça marche, sinon, il ne marche pas. Je ne comprend pas pourquoi

Tu ne peux pas faire une soustraction avec du texte... simple logique

Dans certain cas un nombre pourrait être inscrit sous format texte dans Excel; il faut alors le forcer en nombre pour pouvoir le traiter dans une opération:

Code:

---

= CLng(MonNombreTexte) + MonNumérique

---