Somme d'une cellule texte comprenant des nombres

bonjour à tous

Voilà je vous expose mon problème.

je suis métreur et je réalise des notes de calcul sur excel afin d'établir mes devis.

Dans une première colonne j'entre ma note de calcul laissant apparaitre le détail de tout et dans la colonne d'a coté j'entre le total de la colonne précédente. A l'heure actuelle je n'est pas encore trouvé comment utiliser une fonction pour automatiser le total.

Je fait donc un copier collé. Autant dire que c'est un boulo monstre. Pourriez vous m'indiquer s'il existe une fonction qui pourrait m'aider.

Ex :

première colonne :

(5,27+1,40*2+0,40*2+5,10+1,30*2+0,65+0,60*2)*2,50-1,60*2,10*2-0,83*2,04

deuxième colonne :

=(5,27+1,40*2+0,40*2+5,10+1,30*2+0,65+0,60*2)*2,50-1,60*2,10*2-0,83*2,04

soit

37.64

c'est le résultat que je souhaite afficher sans faire copier collé

merci d'avance

Bonjour,

Avec l'expression en A1,

Tu définis un nom : Calcul Fais référence à =EVALUER(Feuil1!$A1)

Ensuite, dans B1, tu entres =Calcul

A+

Bonjour,

la formule proposée par Frangy fonctionne parfaitement manuellement

J'ai voulu automatiser la procédure avec une macro mais je me heurte au Pb suivant

L'adresse générée est reprise dans l'adresse du nom en étant encadrée par des " "

Lorsque je passe la formule = calcul , je n'obtient que le texte de la formule... pas le résultat

Sub Macro3()

'

' Macro3 Macro

'

vfich = ActiveSheet.Name

Range("A2").Select

vad = ActiveCell.Address

vfor = "EVALUATE(" & vfich & "!" & vad & ")"

Application.DisplayAlerts = False

ActiveWorkbook.Names.Add Name:="calcul", RefersTo:= _

vfor

' j'obtiens "="EVALUATE(test!$A$2)" dans le nom avec les guillemets

ActiveWorkbook.Names("calc").Comment = ""

Application.DisplayAlerts = True

Range("B2").Select

ActiveCell.FormulaR1C1 = "=calcul"

End Sub

Merci d'avance pour votre aide

Cordialement

FINDRH

Bien que je ne comprenne pas pourquoi tu ne souhaites pas utiliser la méthode précédente, je te propose une fonction personnalisée avec VBA qui est très simple.

Dans un module standard, tu copies la fonction suivante :

Function Calculer(Expression As String) As Double
    Calculer = Evaluate(Replace(Expression, ",", "."))
End Function

Ensuite, tu ecris dans la feuille de calcul : =Calculer(A1)

A+

Bonjour Frangy

Ta fonction me va parfaitement; j'essayais "simplement" d'automatiser son utilisation si Jonathan souhaitait conserver toutes ses lignes détaillées de saisie

C'est là que j'ai coincé..... d'où ma sollicitation...

Merci pour ta formule qui va me permettre d'en sortir, pour le fun....

Cordialement

FINDRH

Bonjour,

Avec la première méthode, tu peux conserver toutes les lignes de saisie .

Cordialement.