Discussion :

[breizhcola29]

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 :

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

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 !

[Invité]

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 :

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

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.

[breizhcola29]

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,

[breizhcola29]

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

Code :

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

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 !

[Invité]

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.