erreur formule en VBA

[jeffe]

bojour le forum,
sur une feuille excel, j'ai cette formule qui fonctionne,

=((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

.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

.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

 

[Minick]

Re : erreur formule en VBA

Salut,

Il y a un crochet ']' en trop (en rouge/Gras/Gros):

"=((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])))"

 

[ROGER2327]

Re : erreur formule en VBA

Bonjour

Essayez ceci :

[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 :

[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...

 

[jeffe]

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
...

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

 

[Minick]

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:

"=((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

 

[jeffe]

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