Function calcul(chaine)

[Regueiro]

Bonjour à Tous.
Avec cette merveilleuse function de Boisgontier.
Je l'utilise tous les jours pour des Métrés.
Voir en PJ le fichier.

J'aimerais pouvoir utiliser des ( ).
Comment modifier le code pour que la fonction prennent en compte les ( )

Function calcul(chaine)
  Set obj = CreateObject("vbscript.regexp")
  obj.Global = True
  obj.Pattern = "[a-zA-Z\s\$]*"
  'obj.Pattern = "[^\d.,*/+-]*"   'David84
  calcul = Evaluate(obj.Replace(Replace(chaine, ",", "."), ""))
End Function

Vous comprendrez vite ma demande en ouvrant le fichier.
Merci de votre aide.
A+

 

[R@chid]

Re : Function calcul(chaine)

Bonjour,
Qu'est ce qui ne marche pas dans la fonction ???
Elle renvoie des valeurs correctes :
E3 = 135
E4 = 160
E5 = 160
E6 = 160

??

@ + +

 

[pierrejean]

Re : Function calcul(chaine)

Bonjour Regueiro

En espérant que JB me pardonne !!!

Un essai

Edit : Salut Rachid
Arf !!! :Je n'avais pas vérifié la super formule de JB (Je prie ton pardon pour ce manque de confiance !!!)

 

[Regueiro]

Re : Function calcul(chaine)

Bonjour Rachid, cela fait plaisir de vous rencontrez.
Le problème est résolu.

J'avais en fait la function 1 x dans le module de cette feuille :

Function calcul(chaine)
  Set obj = CreateObject("vbscript.regexp")
  obj.Global = True
  obj.Pattern = "[a-zA-Z\s\$]*"
  'obj.Pattern = "[^\d.,*/+-]*"   'David84
  calcul = Evaluate(obj.Replace(Replace(chaine, ",", "."), ""))
End Function

Et également une fois dans mon fichier MacroPerso.Xlam

Je l'ais supprimer sur le fichier MacroPerso.Xlam
et tout fonctionne.

MErci

 

[Modeste geedee]

Re : Function calcul(chaine)

Bonsour®

Bonjour à Tous.
Avec cette merveilleuse function de Boisgontier.
Je l'utilise tous les jours pour des Métrés.
Voir en PJ le fichier.

J'aimerais pouvoir utiliser des ( ).
Comment modifier le code pour que la fonction prennent en compte les ( )

Function calcul(chaine)
  Set obj = CreateObject("vbscript.regexp")
  obj.Global = True
  obj.Pattern = "[a-zA-Z\s\$]*"
  'obj.Pattern = "[^\d.,*/+-]*"   'David84
  calcul = Evaluate(obj.Replace(Replace(chaine, ",", "."), ""))
End Function

Vous comprendrez vite ma demande en ouvrant le fichier.
Merci de votre aide.
A+

Comme le dit R@chid, prise individuellement la fonction ci-dessus fonctionne correctement.
Cependant dans le fichier exemple il est fait appel à un .Xlam non fourni ici.
En cas de partage de fichier il faudra :
- fournir et activer cette fonction complémentaire chez chaque utilisateur.
- activer la librairie Microsoft Regular expression.(voir capture)

😎
Sauf à inclure la fonction personnalisée ci-dessous dans ce classeur,
- ne nécessite pas de déclaration particulière.
- prise en compte des notations scientifiques
- + souplesse (voir capture2)

Function calculGD(target) As Double
Dim i As Integer, chaine As String
chaine = ""
For i = 1 To Len(target)
chaine = chaine & IIf(InStr("(0123456789E)+-*/,.^", Mid(target, i, 1)) <> 0, Mid(target, i, 1), "")
Next
calculGD = Evaluate(Application.Substitute(chaine, ",", "."))
End Function

 

[Regueiro]

Re : Function calcul(chaine)

Bonjour à Tous
Modeste
Merci pour ta formule.
Elle marche parfaitement et avec plus de souplesse.
En effet ma 2ème question allait arrivée.
Comment gérer les :
Alors problème résolu de mon côté.
Merci encore.
A+