Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

erreur formule en VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion jeffe
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

jeffe

XLDnaute Impliqué
bojour le forum,
sur une feuille excel, j'ai cette formule qui fonctionne,
Code: 
=((1,007*LC(-2)-0,026)+(((0,62*(LC(-1)*((610,78*EXP((LC(-2)/(LC(-2)+238,3))*17,2694))/100)))/(96506-(LC(-1)*((610,78*EXP((LC(-2)/(LC(-2)+238,3))*17,2694))/100))))*(2501+1,84*LC(-2))))
quand je la replace en VBA, j'ai une erreur 1004
Code: 
.FormulaR1C1 = "=((1.007*RC[-2]-0.026)+(((0.62*(RC[-1]*((610.78*EXP((RC[-2]/(RC[-2]+238.3))*17.2694))/100)))/(96506-(RC[-1]*((610.78*EXP((RC[-2]/(RC[-2]+238.3))*17.2694))/100))))*(2501+1.84*RC[-2]])))"
idem pour celle ci🙁j'ai remplacé le point par une vigule mais toujours
Code: 
.FormulaR1C1 = "=((1,007*RC[-2]-0,026)+(((0,62*(RC[-1]*((610,78*EXP((RC[-2]/(RC[-2]+238,3))*17,2694))/100)))/(96506-(RC[-1]*((610,78*EXP((RC[-2]/(RC[-2]+238,3))*17,2694))/100))))*(2501+1,84*RC[-2])))"
auriez vous une idée ?
merci
 
Trier par date Trier par votes
Re : erreur formule en VBA

Salut,

Il y a un crochet ']' en trop (en rouge/Gras/Gros):
Code: 
"=((1.007*RC[-2]-0.026)+(((0.62*(RC[-1]*((610.78*EXP((RC[-2]/(RC[-2]+238.3))*17.2694))/100)))/(96506-(RC[-1]*((610.78*EXP((RC[-2]/(RC[-2]+238.3))*17.2694))/100))))*(2501+1.84*RC[-2][B][SIZE=5][COLOR=Red]][/COLOR][/SIZE][/B])))"
 
Vote positif 0 Vote négatif
Re : erreur formule en VBA

Bonjour
Essayez ceci :
Code: 
[COLOR="DarkSlateGray"][B].FormulaR1C1 = "=((1.007*RC[-2]-0.026)+(((0.62*(RC[-1]*((610.78*EXP((RC[-2]/(RC[-2]+238.3))*17.2694))/100)))/(96506-(RC[-1]*((610.78*EXP((RC[-2]/(RC[-2]+238.3))*17.2694))/100))))*(2501+1.84*RC[-2])))"[/B][/COLOR]
au lieu de :
Code: 
[COLOR="DarkSlateGray"][B].FormulaR1C1 = "=((1.007*RC[-2]-0.026)+(((0.62*(RC[-1]*((610.78*EXP((RC[-2]/(RC[-2]+238.3))*17.2694))/100)))/(96506-(RC[-1]*((610.78*EXP((RC[-2]/(RC[-2]+238.3))*17.2694))/100))))*(2501+1.84*RC[-2][COLOR="Red"]][/COLOR])))"[/B][/COLOR]
C'est peut-être le genre de contrôle qu'on peut faire soi-même...​
ROGER2327
#3024

___________________
Bonjour Minick...
 
Vote positif 0 Vote négatif
Re : erreur formule en VBA

Salut Minick
as tu reconnu la formule ???

ROGER2327, je l'ai même imprimée, et je ne vois pas l'erreur

Voici le bout de code , pour le crochet, ça a du etre une faute de frappe a la recopie, dans le fichier, il n'i en a pas
donc toujours le probleme
...
Code: 
Sub AjoutCalculs(Derlig As Long, ColDeb As Byte)

    With ActiveSheet
    
        .Cells(1, ColDeb).Value = "Entalpie ext" & vbLf & "de vapeur dans l'air"
'        .Cells(1, ColDeb + 1).Value = "Pression de" & vbLf & "saturation"
'        .Cells(1, ColDeb + 2).Value = "Pression de" & vbLf & "vapeur d 'eau"
'        .Cells(1, ColDeb + 3).Value = "Entalpie ext"
        
  
       ' .Cells(2, ColDeb).FormulaR1C1 = "=((1,007*LC(-2)-0,026)+(((0,62*(LC(-1)*((610,78*EXP((LC(-2)/(LC(-2)+238,3))*17,2694))/100)))/(96506-(LC(-1)*((610,78*EXP((LC(-2)/(LC(-2)+238,3))*17,2694))/100))))*(2501+1,84*LC(-2))))"
        '.Cells(2, ColDeb).FormulaR1C1 = "=((1,007*LC(-2)-0,026)+(((0,62*(LC(-1)*((610,78*EXP((LC(-2)/(LC(-2)+238,3))*17,2694))/100)))/(96506-(LC(-1)*((610,78*EXP((LC(-2)/(LC(-2)+238,3))*17,2694))/100))))*(2501+1,84*LC(-2))))"
      '  .Cells(2, ColDeb).FormulaR1C1 = "=((1.007*RC[-2]-0.026)+(((0.62*(RC[-1]*((610.78*EXP((RC[-2]/(RC[-2]+238.3))*17.2694))/100)))/(96506-(RC[-1]*((610.78*EXP((RC[-2]/(RC[-2]+238,3))*17.2694))/100))))*(2501+1.84*RC[-2])))"
        .Cells(2, ColDeb).FormulaR1C1 = "=((1,007*RC[-2]-0,026)+(((0,62*(RC[-1]*((610,78*EXP((RC[-2]/(RC[-2]+238,3))*17,2694))/100)))/(96506-(RC[-1]*((610,78*EXP((RC[-2]/(RC[-2]+238,3))*17,2694))/100))))*(2501+1,84*RC[-2])))"
          'formule excel               '"=((1,007*LC(-2)-0,026)+(((0,62*(LC(-1)*((610,78*EXP((LC(-2)/(LC(-2)+238,3))*17,2694))/100)))/(96506-(LC(-1)*((610,78*EXP((LC(-2)/(LC(-2)+238,3))*17,2694))/100))))*(2501+1,84*LC(-2))))
        
        
        
        
        .Cells(2, ColDeb + 1).FormulaR1C1 = "=610.78*EXP((RC[-3]/(RC[-3]+238.3))*17.2694)"
'        .Cells(2, ColDeb + 2).FormulaR1C1 = "=RC[-3]*(RC[-1]/100)"
'        .Cells(2, ColDeb + 3).FormulaR1C1 = "=((1.007*RC[-5]-0.026)+(RC[-3]*(2501+1.84*RC[-5])))"
        
        With .Range(.Cells(2, ColDeb), .Cells(Derlig, ColDeb + 3))
            .FillDown
            Application.Calculate
            '***************************************************************************
'            ' Partie a commenter pour conserver les formules dans les cellules
'            .Copy
'            .PasteSpecial Paste:=xlPasteValues
            '***************************************************************************
        End With
    End With
End Sub
 
Vote positif 0 Vote négatif
Re : erreur formule en VBA

Re,

Je n'ai pas reconnu la formule mais le bout de code oui 🙄

Dans la formule c'est une virgule (a la place d'un point) qui gene:
Code: 
"=((1.007*RC[-2]-0.026)+(((0.62*(RC[-1]*((610.78*EXP((RC[-2]/(RC[-2]+238.3))*17.2694))/100)))/(96506-(RC[-1]*((610.78*EXP((RC[-2]/(RC[-2]+238[SIZE=6][B][COLOR=Red],[/COLOR][/B][/SIZE]3))*17.2694))/100))))*(2501+1.84*RC[-2])))"
En gras/ rouge/Gros
 
Vote positif 0 Vote négatif
Re : erreur formule en VBA

salut, merci pour la reponce ça fonctionne
Pour la formule, en fait c'est la compil de 3 colones
merci bien pour votre aide (difficile de sortir la tete du guidon pour voir ces erreurs)
ciao
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
XL 2010 Format de cellule sous condition en mode création de ligne (VBA)
Réponses
8
Affichages
1 K
Arnaud dit Citro
A
L
  • Question Question
Gestion d'une formule SUMIFS dans EXCEL VBA
Réponses
10
Affichages
4 K
LucWalraf
L
F
  • Question Question
Formule "Si" en VBA
Réponses
5
Affichages
5 K
Jacky67
A
  • Question Question
Erreur 1004 sur une formule excel traduite en VBA
Réponses
11
Affichages
2 K
Anamiya
A
G
  • Question Question
[Annulé] - Etendre une formule sur plusieurs lignes et colonnes en VBA
Réponses
1
Affichages
2 K
grhum29
G
  • Question Question
aide sur erreur VBA
Réponses
13
Affichages
2 K
fr832
B
  • Question Question
Problème en VBA : le code n'en fait qu'à sa tête !
2
Réponses
15
Affichages
2 K
tototiti2008
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…