J'ai brutalement eu besoin de la réponse au problème de base.
En fait, c'est très simple:
emballez les fonctions rebelles dans une fonction de votre projet vba
exemple :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager