Dans une cellule je récupère le résultat d'une requête que je dois triturer
pour arriver à mes fins.
Cette cellule contient un string texte de ce genre : ' 12345+
365444+ '
Je dois isoler chacun des chiffres et les sommer.
Pour plus de clarté je joins un extrait avec différents cas de figure.
http://cjoint.com/?fopAnJiwKn
J'ai commis une formule qui semble fonctionner.
Je sollicite de l'aide pour une solution - plus académique et plus simple -
qui fonctionnerait quel que soit le nombre de caractères, etc…, etc…
Bonsour® JMM21 avec ferveur ;o))) vous nous disiez :
Dans une cellule je récupère le résultat d'une requête que je dois triturer pour arriver à mes fins. Cette cellule contient un string texte de ce genre : ' 12345+ 365444+ ' Je dois isoler chacun des chiffres et les sommer. Pour plus de clarté je joins un extrait avec différents cas de figure.
http://cjoint.com/?fopAnJiwKn
J'ai commis une formule qui semble fonctionner. Je sollicite de l'aide pour une solution - plus académique et plus simple - qui fonctionnerait quel que soit le nombre de caractères, etc., etc.
une petite fonction personnalisée ??? ;o))) ÊlculExp(A2)
Function CalculExp(Target) numerique$ = ",()+*-/^0123456789" For i = 1 To Len(Target.Value) - 1 '---le -1 élimine le dernier caractère, ici "+" If InStr(1, numerique$, Mid(Target, i, 1)) Then sExp = sExp + Mid(Target, i, 1) Next CalculExp = Evaluate(sExp) End Function
-- -- @+ ;o)))
Bonsour® JMM21 avec ferveur ;o))) vous nous disiez :
Dans une cellule je récupère le résultat d'une requête que je dois
triturer pour arriver à mes fins.
Cette cellule contient un string texte de ce genre : ' 12345+
365444+ '
Je dois isoler chacun des chiffres et les sommer.
Pour plus de clarté je joins un extrait avec différents cas de figure.
http://cjoint.com/?fopAnJiwKn
J'ai commis une formule qui semble fonctionner.
Je sollicite de l'aide pour une solution - plus académique et plus
simple - qui fonctionnerait quel que soit le nombre de caractères,
etc., etc.
une petite fonction personnalisée ??? ;o)))
ÊlculExp(A2)
Function CalculExp(Target)
numerique$ = ",()+*-/^0123456789"
For i = 1 To Len(Target.Value) - 1
'---le -1 élimine le dernier caractère, ici "+"
If InStr(1, numerique$, Mid(Target, i, 1)) Then sExp = sExp + Mid(Target,
i, 1)
Next
CalculExp = Evaluate(sExp)
End Function
Bonsour® JMM21 avec ferveur ;o))) vous nous disiez :
Dans une cellule je récupère le résultat d'une requête que je dois triturer pour arriver à mes fins. Cette cellule contient un string texte de ce genre : ' 12345+ 365444+ ' Je dois isoler chacun des chiffres et les sommer. Pour plus de clarté je joins un extrait avec différents cas de figure.
http://cjoint.com/?fopAnJiwKn
J'ai commis une formule qui semble fonctionner. Je sollicite de l'aide pour une solution - plus académique et plus simple - qui fonctionnerait quel que soit le nombre de caractères, etc., etc.
une petite fonction personnalisée ??? ;o))) ÊlculExp(A2)
Function CalculExp(Target) numerique$ = ",()+*-/^0123456789" For i = 1 To Len(Target.Value) - 1 '---le -1 élimine le dernier caractère, ici "+" If InStr(1, numerique$, Mid(Target, i, 1)) Then sExp = sExp + Mid(Target, i, 1) Next CalculExp = Evaluate(sExp) End Function
-- -- @+ ;o)))
JMM21
Modeste, il est vraiment trop fort !!! Il connait le VBA comme moi la Côte Beaune.... ;))) Grand Merci -- [Jmm21] ☺♂
Bonsour® JMM21 avec ferveur ;o))) vous nous disiez :
Dans une cellule je récupère le résultat d'une requête que je dois triturer pour arriver à mes fins. Cette cellule contient un string texte de ce genre : ' 12345+ 365444+ ' Je dois isoler chacun des chiffres et les sommer. Pour plus de clarté je joins un extrait avec différents cas de figure.
http://cjoint.com/?fopAnJiwKn
J'ai commis une formule qui semble fonctionner. Je sollicite de l'aide pour une solution - plus académique et plus simple - qui fonctionnerait quel que soit le nombre de caractères, etc., etc.
une petite fonction personnalisée ??? ;o))) ÊlculExp(A2)
Function CalculExp(Target) numerique$ = ",()+*-/^0123456789" For i = 1 To Len(Target.Value) - 1 '---le -1 élimine le dernier caractère, ici "+" If InStr(1, numerique$, Mid(Target, i, 1)) Then sExp = sExp + Mid(Target, i, 1) Next CalculExp = Evaluate(sExp) End Function
-- -- @+ ;o)))
Modeste, il est vraiment trop fort !!!
Il connait le VBA comme moi la Côte Beaune.... ;)))
Grand Merci
--
[Jmm21]
☺♂
Bonsour® JMM21 avec ferveur ;o))) vous nous disiez :
Dans une cellule je récupère le résultat d'une requête que je dois
triturer pour arriver à mes fins.
Cette cellule contient un string texte de ce genre : ' 12345+
365444+ '
Je dois isoler chacun des chiffres et les sommer.
Pour plus de clarté je joins un extrait avec différents cas de figure.
http://cjoint.com/?fopAnJiwKn
J'ai commis une formule qui semble fonctionner.
Je sollicite de l'aide pour une solution - plus académique et plus
simple - qui fonctionnerait quel que soit le nombre de caractères,
etc., etc.
une petite fonction personnalisée ??? ;o)))
ÊlculExp(A2)
Function CalculExp(Target)
numerique$ = ",()+*-/^0123456789"
For i = 1 To Len(Target.Value) - 1
'---le -1 élimine le dernier caractère, ici "+"
If InStr(1, numerique$, Mid(Target, i, 1)) Then sExp = sExp + Mid(Target,
i, 1)
Next
CalculExp = Evaluate(sExp)
End Function
Modeste, il est vraiment trop fort !!! Il connait le VBA comme moi la Côte Beaune.... ;))) Grand Merci -- [Jmm21] ☺♂
Bonsour® JMM21 avec ferveur ;o))) vous nous disiez :
Dans une cellule je récupère le résultat d'une requête que je dois triturer pour arriver à mes fins. Cette cellule contient un string texte de ce genre : ' 12345+ 365444+ ' Je dois isoler chacun des chiffres et les sommer. Pour plus de clarté je joins un extrait avec différents cas de figure.
http://cjoint.com/?fopAnJiwKn
J'ai commis une formule qui semble fonctionner. Je sollicite de l'aide pour une solution - plus académique et plus simple - qui fonctionnerait quel que soit le nombre de caractères, etc., etc.
une petite fonction personnalisée ??? ;o))) ÊlculExp(A2)
Function CalculExp(Target) numerique$ = ",()+*-/^0123456789" For i = 1 To Len(Target.Value) - 1 '---le -1 élimine le dernier caractère, ici "+" If InStr(1, numerique$, Mid(Target, i, 1)) Then sExp = sExp + Mid(Target, i, 1) Next CalculExp = Evaluate(sExp) End Function
