[VBA] -jeu casse-tête: aide pour évaluer String (pour calcul)

[Staple1600]

Bonsoir et bonne nuit à tous

Edition du 27/03/08:
Voir dans le dernier message.
____________________________
edition : pour info ,les pièces jointes initiales (que je ne n'utilise plus)
(je les ai mises si ca peut intéresser quelqu'un, ici .

__________________________________________________

Voici un petit jeu mathématique récréatif encore non finalisé:
Je sollicite donc votre aide pour créer une fonction VBA personnalisée
pour calculer des expressions (String) avec les opérateurs
+,-,*,/ et autres ...
Ex: Dans une cellule (A6), on a:=H6&I6&J6&K6&L6&M6&N6, ce qui affiche: ((0!)+(0!)+(0!))!
la fonction devrait donc évaluer cette chaîne et renvoyer : 6
*! signifie factorielle ---> Dans Excel = FACT() )

Edition 2: du 27/03/08
Vous trouverez la dernière version du classeur ici: Pièce jointe 81072

[Staple1600]

Bonsoir à tous

Edition du 27/03/08:
Voir dans le dernier message.

_______________________________
Après quelques recherches, j'ai trouvé quelque chose d'approchant (cf. sur cette fonction VBA sur le site ci-dessous: PTS Blog » UDF to Calculate an Arbitrary Formula

En attendant vos propositions, je vais tester en vous souhaitant un bon appétit.

[carcharodon-carcharias]

bonsoir Staple1600,JP, le forum

je me suis senti très vieux en voyant ton entête de module

'casse-tête pour le forum XLD
'par Staple1600
'mars 20008
Sub la_solution()

[Staple1600]

Re à tous

Edition du 27/03/08:
Voir dans le dernier message.


--> carcharodon-carcharias:
Mon clavier est lui aussi très vieux, et parfois les touches bégaient.

[Staple1600]

Bonjour à tous


Edition du 27/03/08:
Voir dans le dernier message.

[Staple1600]

Rebonjour à tous

Edition du 27/03/08:
Voir dans le dernier message.



Merci à ceux qui sauront m'aider ou m'aiguiller.

[ftho]

Bonjour,

Une piste (loin d'être complète)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Val, x, i
Val = Target.Value
If Right(Val, 2) = ")!" Then
    For i = 1 To Len(Val) - 2
        If Mid(Val, i, 1) = "!" Then
        x = x + Application.WorksheetFunction.Fact(Mid(Val, i - 1, 1))
        End If
    Next
Target.Offset(0, 1) = Application.WorksheetFunction.Fact(x)
End If
End Sub

[Staple1600]

Bonjour ftho

Edition du 27/03/08:
Voir dans le dernier message.


ftho: -> Merci pour ton aide

[ya_v_ka]

Salut tout le monde

Quelques remarques en vrac :

1. Bonne idée, de quoi s'enerver un moment
2. Il faut aussi arriver à verifier que seuls les chiffres demandés soient utilisés (si je mets juste 3*2 dans la case c'est bon !)
3. Comment demande t'on une racine cubique en fonction Excel ?

Bonne chance pour la suite

Ya'v

[Staple1600]

Bonjour ya_y_ka

Edition du 27/03/08:
Voir dans le dernier message.

3. Comment demande t'on une racine cubique en fonction Excel ?

Avec cette écriture --> Si en A1: 8 en B1: A1^(1/3) ---> 2

[Staple1600]

Bonsoir à tous

Edition du 27/03/08:
Voir dans le dernier message.

[Staple1600]

Bonjour à tous

Edition du 27/03/08:
Voir dans le dernier message.

[Staple1600]

Rebonjour à tous

Edition du 27/03/08:
Voir dans le dernier message.

L'italie est venue à mon secours .Voila ce que j'ai trouvé ici:math parser
Merci à Leonardo Volpi pour ces superbes fonctions VBA.

Bonne soirée à tous.

[Staple1600]

Bonsoir à tous

Edition du 27/03/08:
Voir dans le dernier message.

Personne pour me filer un petit coup de main ? Car avec mes seuls neurones et même en essayant d'adapter le code Leonardo Volpi , je ne vois pas comment solutionner cette histoire de factorielle.

En espérant que l'un de vous* se manifestera bientôt, bonne soirée à tous.

* je pense au vbaistes chevronnés.

[Staple1600]

Re et bonne nuit à tous

Edition du 27/03/08:
Voir dans le dernier message.


PS:Je reste trés admiratif de la qualité du travail Leonardo Volpi et de ses camarades
(Michael Ruder, Thomas Zeutschler, Lieven Dossche.)