Discussion :

[fabien.toune]

Bonjour,
voici mon casse-tête : j'essaie de passer en argument d'une fonction personnalisée une chaîne ( par exemple ">=11" ) , et j'aimerais pouvoir utiliser dans le corps de ma fonction une expression du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if range("A1").value ">= 11"

...
Comment évaluer mon argument (je l'ai mis en string) pour l'intégrer dans un test logique ?
Merci d'avance pour les idées

Fabien

[Actarus69]

sans trop m'avancé , la question a déj) été posée il ya pas très longtemps.
je crois qu'en VB , on ne peut pas faire ce genre de chose....pas possible de faire éxécuter le contenu d'une variable comme du code...enfin je crois. :o

[AlainTech]

Désolé de vous contredire mais ça fonctionne très bien:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Appel()
  Dim sString As String
  sString = ">= 11"
  Test (sString)
End Sub
 
 
Sub Test(sCond As String)
  Dim vResult As Variant
  vResult = Evaluate([A1] & sCond)
  Msgbox (vResult)
End Sub

Le variant est tout à fait intentionnel, dans ce cas-ci, car il permet de recevoir n'importe quel résultat. Y compris une erreur.

Il va de soit que, si l'expression évaluée renvoit un booléen (comme dans ce cas), on peut écrire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Evaluate([A1] & sCond) Then

[fabien.toune]

Ben merci beaucoup les gars, c'est super sympa