opération

[babidi]

Bonsoir, je voudrais afficher le résultat d'un calcul dans une autre case. Je m'explique, j'ai dans la case C2 l'opération suivante:1+2+3 (sans le égale) et je voudrais que dans la case C1 apparaisse le résultat de cet opération. Y a t'il une formule pour cela ?

 

[herve62]

Re : opération

Bonsoir
A mon avis je ne vois pas , car le contenu est reconnu comme du texte !!
Après , peut-être en "décortiquant" car. par car. en VBA on pourrait reconnaître l'opération à effectuer ....mais j'ai des doutes !!!
Est-ce necessaire de faire 1+2+3 dans une cellule ? parfois on cherche compliqué lorsque c'est simple !!!
Tu verras peut-être d'autres conseils !

 

[babidi]

Re : opération

1+2+3 était un exemple. Je vais essayé dze voir si je peux pas faire le faire passer en calcul mais toujours sans le égale

 

[jeanpierre]

Re : opération

Bonsoir babidi et bienvenue, RV62, le forum,

Sans passer par =, va falloir faire fort là.....

C'est un peu comme démarrer une voiture, sans la clé de contact, sans carburant et sans batterie.... A part pousser.................

Si tu nous expliquais le pourquoi d'une telle chose ?

A te lire

Jean-Pierre

 

[herve62]

Re : opération

Bonsoir Jean Pierre , re Babidi

Je ne suis pas seul , en effet sans "=" ???
Excel et VBA sont hyper puissant ... mais nous sommes toujours sur Terre !!!
Je pense que Babidi devrait revoir la conception de son appli avant de revenir

Hervé

 

[babidi]

Re : opération

Je travaille dans un casino. Une fois notre travaille cloturé, si on retrouve des pieces dans la salle, nous devons les noter dans un fichier Excel. Par exemple on retrouve 3 pieces, 2 de 0.50 et une de 1. Dans la case pieces on doit alors noter 2+1 et ensuite dans une autre case la somme c'est à dire trois

 

[bqtr]

Re : opération

Bonsoir babidi, herve62, jeanpierre

Par formule je sais pas, mais en VBA voici une fonction perso qui fait ce que tu demandes.

Function TTotal(cell As Range)

Dim tablo, i As Integer

tablo = Split(cell, "+")
  For i = 0 To UBound(tablo)
     If IsNumeric(tablo(i)) Then TTotal = TTotal + Application.WorksheetFunction.Sum(tablo(i))
  Next

End Function

Tu places le code dans un module standard, et ensuite dans la feuille tu te sers de la fonction comme une fonction native d'Excel.

Ex : en C1 tu tapes =TTotal(C2)

Bonne soirée

 

[jeanpierre]

Re : opération

Re,

Déjà, 0.50*2 + 1, cela fait deux et non trois.... (tu m'étonnes qu'ils perdent tous des sous............)

Pour rigoler un peu, les pièces, je n'y toucherai pas, les laissant aux employé(es) qui vont faire le ménage.... Pour les billets, j'ai encore un peu de place dans mes poches.... je dis bien pour rigoler....

Pour l'instant, rien trouvé... peut-être que quelques Maîtres "es VBA" vont trouver le truc miracle.... ?

Edit : Oups, le temps de raconter mes c.......... et l'ami Pierre-Olivier est passé, Salut à toi.

 

[herve62]

Re : opération

Babidi
N'est ce pas plus simple dans l'exemple joint ..... en 3min et sans formules sans VBA
J'aurais à demander le genre d'infos que tu décris .... ce serait suffisant

 

[bqtr]

Re : opération

Re, salut jeanpierre

La fonction calcule uniquement avec des nombres entiers, si il faut faire des calculs avec des nombres décimaux il faut utiliser ce code :

Function TTotal(cell As Range)

Dim tablo, i As Integer

tablo = Split(cell, "+")
  For i = 0 To UBound(tablo)
     If IsNumeric(CDbl(tablo(i))) Then TTotal = TTotal + Application.WorksheetFunction.Sum(CDbl(tablo(i)))
  Next

End Function

A+

 

[abc]

Re : opération

Bonsoir,
un exemple trouvé je ne sais plus où
essaye et a trafiquer,
A +

 

[herve62]

Re : opération

Re..re bonsoir

Jean-Pierre : la formule de Pierre-Olivier fonctionne ... j'ai testé

Babidi : Maintenant fait comme tu veux ... reste à savoir si c'est pour une seule cellule .... ou X fois alors tu recopies à chaque fois la fonction ... C'EST POSSIBLE ... C'EST REALISABLE !!!!! ( faut rigoler le soir)

Pierre-Olivier : je garde ta fonction ...au cas OU !!!

Hervé

 

[fred65200]

Re : opération

bonsoir,

si en A1, il y a 1+2+3 ou 2*,5+5*,2

la formule est =EVAL(A1)

cordialement

EDIT Suite à une remarque d'Hervé, cette fonction n'est pas native à Excel, elle fait partie de la macro complémentaire MOREFUNC.xll de L. Longre

 

[babidi]

Re : opération

OK je vous remercie pour votre aide et bonne continuation

 

[bqtr]

Re : opération

Re,

Pour rigoler comme dit Hervé, si dans la cellule il y a du texte, des nombres entiers et décimaux : Ex A+0,8+0,5+B+10, le résultat sera 11,3

Function TTotal(cell As Range)

Dim tablo, i As Integer

tablo = Split(cell, "+")
  For i = 0 To UBound(tablo)
     On Error Resume Next
     If IsNumeric(CDbl(tablo(i))) Then TTotal = TTotal + Application.WorksheetFunction.Sum(CDbl(tablo(i)))
  Next

End Function

A+