Discussion :

[chico7878]

Bonjour,

Je souhaite effectuer une suite de tests logiques dont les opérateurs et les résultats sont dans une feuille Excel.

Par exemple, j'ai dans ma cellule Cells(1,1), l'opérateur '<' et je veux tester si
var1 '<' var2 par exemple,
Je cherchais initialement une syntaxe du type
if cells(a,b) opérateur cells (c,d) then ...
mais comment faire comprendre à VBA que opérateur doit être remplacé par le contenu de cells(1,1).

Merci pour toute aide

[marsupilami34]

Bonjour,

Ne peux tu pas utiliser des select case directement dans le code ?

[chico7878]

Bonjour,

Ne peux tu pas utiliser des select case directement dans le code ?

Eh bien c'est ce que je fais en attendant une solution plus propre via la fonction test ci-dessous. (la variable opérateur est lue dans une cellule Excel.)
Mais j'aurais aimé une solution plus synthétique,
et peut être plus optimale? Merci en tout cas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function test(var1 As String, operateur As String, attendu As String) As Boolean
    test = False
    Select Case operateur
    Case "="
        If var1 = attendu Then test = True Else test = False
    Case "<"
        If var1 < attendu Then test = True Else test = False
    Case ">"
        If var1 > attendu Then test = True Else test = False
    End Select
 
End Function