Discussion :

[Chrystal_siva]

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 :

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

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

[parmi]

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 :

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

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

Si la ligne est aussi une variable

Code :

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

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

[Chrystal_siva]

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 :

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

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 ...

[parmi]

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

Code :

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

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 (?)

[Chrystal_siva]

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

[parmi]

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 :

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

= CLng(MonNombreTexte) + MonNumérique