convertir texte en nombre

[frder]

Bonjour,

J'aimerais savoir si il est possible de convertir une formule écrite sous forme de texte dans une autre cellule
sous forme de résultat.

exemples:
Dans la cellule A1 il est écrit sous forme de texte la formule suivante : (2*(5+3)) et se texte reste visible.
je souhaiterais que la cellule A2 donne le résultat de la cellule A1 sous forme de nombre à savoir 16.

Existe-t-il une macro permettant d'obtenir ce résultat.

Merci beaucoup

 

[MJ13]

Re : convertir texte en nombre

Bonjour frder

Tu peux tester cette macro:

Sub test()
MsgBox Application.Evaluate(ActiveCell.Text)
End Sub

 

[frder]

Re : convertir texte en nombre

Je viens d'essayer mais cette macro ne fonctionne pas
il est marqué erreur 13 incompatibilité de type

Désolé

 

[MJ13]

Re : convertir texte en nombre

Re

Sinon, remplace activecell par cells(1,1).

 

[frder]

Re : convertir texte en nombre

Toujours le mêm message

 

[MJ13]

Re : convertir texte en nombre

Re

Et avec ce fichier 😕

 

[frder]

Re : convertir texte en nombre

ok ça marche. toute fois je souhaiterais que le résultat ne soit pas sous forme de message, mais qui'il apparaisse dans une autre cellule comme par exemple dans la cellule B1. sous la forme d'une formule, si bien que si je devais à modifier la cellule A1, automatiquement la valeur de la cellule B2 changera.

 

[hoerwind]

Re : convertir texte en nombre

Bonjour et bienvenue sur le forum, salut MJ13,

Sous les fonctions complémentaires MorefunC (à télécharger gratuitement sur la toile), =EVAL() fait exactement ce que tu souhaites réaliser.

 

[Modeste geedee]

Re : convertir texte en nombre

Bonsour®

ok ça marche. toute fois je souhaiterais que le résultat ne soit pas sous forme de message, mais qui'il apparaisse dans une autre cellule comme par exemple dans la cellule B1. sous la forme d'une formule, si bien que si je devais à modifier la cellule A1, automatiquement la valeur de la cellule B2 changera.

il faut alors modifier la sub de MJ13 en fonction personnalisée à inserer dans un module standard

Function lecture(target)
 lecture = Application.Evaluate(target.Text)
 End Function

utilisation :
en B1 la formule
=lecture(A1)

 

[frder]

Re : convertir texte en nombre

Merci beaucoup j'ai trouvé exactement ce que je cherché.

je vous souhaite une bonne continuation

 

[Modeste geedee]

Re : convertir texte en nombre

Merci beaucoup j'ai trouvé exactement ce que je cherché.

je vous souhaite une bonne continuation

😡
😕

et sété koi que tu cherché ???
combien de raipondeurs tu pouré maubiliser ???

toi aussi bone chance dans ta vie ...


edit :
vapeurs ???
https://www.excel-downloads.com/threads/caducite-ou-pas-de-ce-point-de-la-charte-du-forum.196899/

 

[laurent950]

Re : convertir texte en nombre

Bonsoir,

Cells(1, 2) = "=" & Cells(1, 1)

Laurent

 

[Staple1600]

Re : convertir texte en nombre

Bonsoir à tous

Si une bonne âme pouvait indiquer le fil d'XLD ou l'on passe par une macro XL4 nommée, cela me ferait plaisir 😉
Car étant un peu patraque et ayant commis l'imprudence d'avoir mélangé ibuprofène et actifed en buvant non pas un verre d'eau claire, mais un fond de bière tiède, je ne suis trop dans le gaz pour retrouver ce fil rapidement et encore plus à la ramasse pour tenter de faire la manip dans Excel.

De mémoire, on utilisait EVALUE ou EVALUER, non ?

 

[Lone-wolf]

Re : convertir texte en nombre

Bonsoir a tous,

si je peux me permettre. Dans le cas de plusieures cellules(on ne sais jamais...).

Sub test()
Dim lig As Integer
  lig = Sheets(1).Range("A65536").End(xlUp).Row
   For i = 1 To lig
     Cells(i, 2) = Application.Evaluate(Cells(i, 1).Text)
    Next i
End Sub

A+ 😎

 

[Staple1600]

Re : convertir texte en nombre

Bonjour à tous

Merci d'un JM à ce Jean-Marie qui je pense est le même Jean-Marie qui jadis nous enchantait ici de ses formules.
Entre JM c'est bien normal...😉
Vlatipa une âme qu'elle est bonne même si c'est à l'insu de son plein gré!
Donc voici venu d'ailleurs (mais on doit avoir la même chose quelque part sur XLD)

Une proposition,

°) Sélectionne la cellule B, la cellule active avant de faire la suite est très importante.
°) Clique sur le menu Insertion/Nom/Définir...
°) Dans la boîte de dialogue, tape dans le champ en haut le mot "CalculTexte", sans les ""
°) dans le champ "fait référence à : " colle la formule =EVALUER("="&Feuil1!A1)
°) Valide
°) Dans la cellule B2, tu tapes la formule =CalculTexte

Sous excel 2003, un message d'ouverture de fichier contenant une macro, va s'afficher, ce qui est normal, la fonction EVALUER fait partie des anciennes macro-commande XL4..

@+Jean-Marie

PS: Oui j'ai survécu à mon mélange détonnant d'hier soir, j'ai plus mal à ma tête, mais le rhume s'est installé quand même.
Foutue allopathie!