Erreur 1004 FormulaLocal Résolu/Fermé

Question

Bonjour,

Je rencontre une erreur définie par l'application ou par l'objet lors du remplissage des lignes d'une nomenclature.
pour chaque ligne j'appelle un composant issu d'une base de donnée.
l'erreur se produit lors du calcul du prix de vente en fonction du prix d'achat (colonne H, info issue de la base de données).
le code :
  .Range("I" & lgn).FormulaLocal = "=SI(H" & lgn & "<100;H" & lgn & "*2,5;SI(H" & lgn & "<250;H" & lgn & "*2;SI(H" & lgn & "<1500;H" & lgn & "*1,85;""consult us"")))"

Je doute que le problème vienne du code car le même fichier a été testé sur un autre PC et il fonctionne. Est ce que ce n'est pas un réglage dans Excel ou Visual basic qui fait bloquer?

Merci par avance pour votre aide.

lermite222 · Accepted Answer

Re,
Pour que se soit opérationnel sur tout système...
 Dim Sep As Boolean
    Sep = Application.DecimalSeparator = ","
    'With Sheets("Feuille")
        '...
        If Sep Then
            .Range("I" & lgn).FormulaLocal = "=SI(H" & lgn & "<100;H" & lgn & "*2,5;SI(H" & lgn & "<250;H" & lgn & "*2;SI(H" & lgn & "<1500;H" & lgn & "*1,85;""consult us"")))"
        Else
            .Range("I" & lgn).FormulaLocal = Replace("=SI(H" & lgn & "<100;H" & lgn & "*2,5;SI(H" & lgn & "<250;H" & lgn & "*2;SI(H" & lgn & "<1500;H" & lgn & "*1,85;""consult us"")))", ",", ".")
        End If
        '.....
A+

lermite222 · Answer

Bonjour, 
Effectivement, la formule est valide. 
Sur le PC où ça fonctionne : tu à mis Option Explicit sur le haut du module ? si non, essaye avec cette option pour voir.. 
Tu dis. 
+  
  
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .

f894009 · Answer

Bonjour a vous 

Separateur de decimal: sur le PC qui marche surement une virgule, sur celui qui marche pas est surement un point. Si c'est le probleme, allez voir ceci pour resoudre:http://www.excelabo.net/excel/separateur_decimal

A+

alexischav · Answer

Merci Yoda,

En mettant des points ça fonctionne!
par contre ça marche avec l'autre PC avec des virgules... pourquoi pas sur le mien?? 
Et sur l'autre PC ça ne marche pas avec les points à la place des virgules.
un indice : quand je me mets dans une case Excel et que je frappe la touche "." (ou"suppr") de mon pavé numérique, ça me fait un point, alors que sur l'autre PC, ça fait une virgule... Est ce qu'il y a un paramètre Excel qui est responsable de ça?

f894009 · Answer

Re,

Soit vous mettez tous les PC avec le meme separateur (parametre regionnaux, format nombre) avec risques que certain(s) fichier(s) excel ne marche plus pour les PC que vous aurez modifies.

Soit vous testez le separateur decimal par programme (post de moi-meme a 16:33) et vous ecrivez la formule en fonction.

A+

alexischav · Answer

Merci à tous!

J'ai trouvé le problème, mes paramètres régionaux étaient "Français(Suisse)"... d'où le changement entre virgule et point. Maintenant tout fonctionne, désolé pour le dérangement, surtout que le problème (de base) ne concernait pas tout à fait cette section du forum...

Merci pour les codes pour s'affranchir de ces paramètres, je vais voir pour les intégrer dans mes fichiers pour ne plus avoir de soucis.