Ajouter le contenu d'une cellule à une formule

[kinolu]

Bonjour

Le titre est assez explicite, pour exemple j'ai en A1 le texte « 1+2+3+4+5+6+7+8+9 » je cherche une formule qui calculerait en B1 le calcul écrit dans la cellule A1.

Merci d'avance ! (J'ai cherché sur différent forum mais je ne trouve pas la bonne formulation pour expliquer le problème)
Kévin

 

[Ikito]

Bonjour,

Peux-tu nous proposer un fichier ?
Comment sont les caractères dans la cellule ? Précédés d'un apostrophe ? En format texte ?

 

[kinolu]

voilà mon fichier de base

 

[WTF]

Bonjour Kinolu,
Je pense qu'il faut que tu écrive une fonction personnalisée.
Tu devrais trouver tout ce dont tu as besoin sur le net

 

[kinolu]

Il n'y a pas plus simple ?

 

[Ikito]

Par VBA :

Sub calculer()

For i = 2 To 17
    signe1 = Cells(i, "B")
    signe2 = Cells(i, "D")
    signe3 = Cells(i, "F")
    val1 = Cells(i, "A")
    val2 = Cells(i, "C")
    val3 = Cells(i, "E")
    val4 = Cells(i, "G")
    
    If (signe1 = "+") Then
    somme = val1 + val2
    Else
    somme = val1 - val2
    End If
    If (signe2 = "+") Then
    somme = somme + val3
    Else
    somme = somme - val3
    End If
    If (signe3 = "+") Then
    somme = somme + val4
    Else
    somme = somme - val4
    End If
    Cells(i, "I") = somme
Next

End Sub

 

[mapomme]

Bonjour à tous,

Une fonction personnalisée:

Function Evalue(x As String)
   Evalue = Application.Evaluate(x)
End Function

 

[kinolu]

Merci beaucoup à vous 3 !