Ah, ben,
On dirait que j'ai dit une c***rie...
Pourtant, j'étais persuadé avoir déjà testé.
Je vais voir si je retrouve l'application que j'en avais fait.
Désolé pour les faux espoirs.
Version imprimable
Ah, ben,
On dirait que j'ai dit une c***rie...
Pourtant, j'étais persuadé avoir déjà testé.
Je vais voir si je retrouve l'application que j'en avais fait.
Désolé pour les faux espoirs.
J'ai brutalement eu besoin de la réponse au problème de base.
En fait, c'est très simple :ccool: :
emballez les fonctions rebelles dans une fonction de votre projet vba
exemple :
Code:
1
2
3
4
5
6
7
8
9
10
11 Sub eureka() valeur = 12 Formule = "IsNumericS(" & valeur & ")" MsgBox Evaluate(Formule) ' \o/ pour toutes les fonctions rebelles : isnumeric, instr, ... End Sub Function isnumericS(i) 'rend "isnumeric" visible pour 'evaluate' isnumericS = IsNumeric(i) End Function