Discussion :

[Kutoh]

Bonjour

j'ai une macro dont le code est de remplir un tableau par des formules excel et ensuite d'insérer ces formules dans une plage de ma feuille excel.
Le soucis c'est que certaines formules (sples : A5+B5) s'inserrent sans problème dans les celulle, par contre d'autres comme =SI(E5<0;E5+G5;E5-G5) refuse de s'insérer

voici un bout de code

Code :

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

1
2
3
4
5
 
Dim Formule As Variant, TableauFF() as String
 
Formule = "=SI($H$123<0;$F$119+$H$123;$F$119-$H$123)"
 TableauFF(6, 2) = Formule

j'ai un message d'erreur à ce niveau

Code :

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

1
2
 
 TableauFF(6, 2) = Formule

Et le message me dit:
Erreur définie par l'application ou par l'objet.

Une idée?
Thank's

[gFZT82]

Bonjour,

Tu peux faire ce test

Code :

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

1
2
3
4
5
6
7
Sub Test()
Dim Formule As String
Dim TableauFF(1 To 6, 1 To 2) As String
    Formule = "=SI($H$123<0;$F$119+$H$123;$F$119-$H$123)"
    TableauFF(6, 2) = Formule
    Range("A1").FormulaLocal = TableauFF(6, 2)
End Sub

Cordialement.

[Kutoh]

Merci Ca fonctionne