[VBA] pbm traduction formule VBA=>Excel
Fermé
lnh2o
-
7 août 2007 à 14:03
tonton_Phil Messages postés 1 Date d'inscription jeudi 9 août 2007 Statut Membre Dernière intervention 9 août 2007 - 9 août 2007 à 11:54
tonton_Phil Messages postés 1 Date d'inscription jeudi 9 août 2007 Statut Membre Dernière intervention 9 août 2007 - 9 août 2007 à 11:54
A voir également:
- [VBA] pbm traduction formule VBA=>Excel
- Formule excel - Guide
- Traduction photo gratuit - Guide
- Liste déroulante excel - Guide
- Formule moyenne excel - Guide
- Formule excel si et - Guide
3 réponses
Armojax
Messages postés
1858
Date d'inscription
mercredi 19 janvier 2005
Statut
Membre
Dernière intervention
22 mars 2024
1 528
7 août 2007 à 18:32
7 août 2007 à 18:32
Bonjour lnh2o,
Vérifie, avec : Outils / Options... / International
que la case Séparateur de décimale contient bien le point.
Vérifie, avec : Outils / Options... / International
que la case Séparateur de décimale contient bien le point.
Utilisateur anonyme
8 août 2007 à 13:28
8 août 2007 à 13:28
Bonjour,
Range("D" & 28 + i).Formula = "=Index(Linest(F" & Ligne(i) & ":F" & Ligne(i + 1) - 1 & ",E" & Ligne(i) & ":E" & Ligne(i + 1) - 1 & "^{1,2},True,True),1,3)"
remplacer le point par une virgule sous VBA et celui-ci sera converti en point sous Excel.
du moins c'est ce qui se passe chez moi sous XL2002 !
Lupin
Range("D" & 28 + i).Formula = "=Index(Linest(F" & Ligne(i) & ":F" & Ligne(i + 1) - 1 & ",E" & Ligne(i) & ":E" & Ligne(i + 1) - 1 & "^{1,2},True,True),1,3)"
remplacer le point par une virgule sous VBA et celui-ci sera converti en point sous Excel.
du moins c'est ce qui se passe chez moi sous XL2002 !
Lupin
tonton_Phil
Messages postés
1
Date d'inscription
jeudi 9 août 2007
Statut
Membre
Dernière intervention
9 août 2007
9 août 2007 à 11:54
9 août 2007 à 11:54
une dernière solution avec ces problèmes de valeurs décimales et de formule est d'utiliser formulaLocal au lieu de formula. Dans ce cas les séparateurs de paramètres dans la formule sont des ";" et non plus des ","
Range("D" & 28 + i).FormulaLocal = "=Index(Linest(F" & Ligne(i) & ":F" & Ligne(i + 1) - 1 & ";E" & Ligne(i) & ":E" & Ligne(i + 1) - 1 & "^{1,2};True;True);1;3)"