Problème FormulaLocal VBA

Bonjour,

je viens vers vous car je suis confronté à un problème majeur ! Voici le soucis :
Dans une cellule j'ai une valeur, admettons la cellule I5 vaut 3. J'essaie d'appliquer ce code :

Code:

---

ShLiOpTu.Range("A" & i).FormulaLocal = "=SIERREUR(I" & i & "+(I" & i & "*0,1);""Absence d'informations"")"

---

Le soucis c'est que cela me renvoie la valeur 0, et je n'arrive vraiment pas à comprendre pourquoi. J'ai l'impression que le fait d'appliquer formulalocal écrase la valeur précédente ..

Merci d'avance pour vos réponses !

Citation:

---

Envoyé par breizhcola29

Le soucis c'est que cela me renvoie la valeur 0, et je n'arrive vraiment pas à comprendre pourquoi. J'ai l'impression que le fait d'appliquer formulalocal écrase la valeur précédente ..

---

Bonjour,

Chez moi, le code fonctionne correctement, j'ai bien 3,3

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Essai() Dim I As Long Dim ShLiOpTu As Worksheet   Set ShLiOpTu = ActiveSheet I = 5 ShLiOpTu.Range("A" & I).FormulaLocal = "=SIERREUR(I" & I & "+(I" & I & "*0,1);""Absence d'informations"")"   Set ShLiOpTu = Nothing   End Sub

---

Cordialement.

Hello !

Merci de m'avoir répondu. Si c'est toi sa marche, sa doit venir de la configuration de mon fichier ou quelque chose comme çà .. Je resserrai lundi ! =)

Cdtl,

Au final, je viens de me rendre compte que j'avais fait une petite coquille dans le code d'exemple, voici le bon :

Code:

---

1 2 3 4

Dim super_I As Integer super_I = 5 ShLiOpTu.Range("I" & super_I).FormulaLocal = "=SIERREUR(I" & super_I & "+(I" & super_I & "*0,1);""Absence d'informations"")"

---

Et la j'ai bien 0 mais je n'arrive pas à comprendre pourquoi .. !

Merci de vos réponses !

Citation:

---

Envoyé par breizhcola29

Et la j'ai bien 0 mais je n'arrive pas à comprendre pourquoi .. !

---

Bonjour,

C'est normal, la formule s'applique à elle-même.

Dans mon message précédent, la formule était en A5 et était fonction de I5.


Cordialement.