IF avec opérateur dans une variable

Version imprimable

07/03/2018, 09h55
rob1son76

IF avec opérateur dans une variable

Bonjour,

je voudrai créer un IF then avec les conditions dans des variables.

Je m'explique:

Je suis en train de développer un macro qui manipule une base de donnée dans un classeur excel.
Je voudrai permettre à l'utilisateur de créer des conditions de modification de la base.
Pour cela ils peuvent saisir dans des cellules la variable à modifier et la condition.
Cells(1,1) : Variable à modifier
Cells(1,2) : Variable à copier OU donnée (exemple : 10 , "TOTO")
cells(1,3) : variable condition
cells(1,4) : Opérateur de condition
cells(1,5) : Valeur Condition

Avec un exemple ca donne dans l'ordre ci-dessus : SECTEUR, MARQUE , MARQUE , <> , "".
Je voudrai pouvoir faire : IF MARQUE<>"" then SECTEUR=MARQUE

J'ai essayé de mettre toutes les variables, qui récupèrent les conditions ci-dessus, dans une variable string et d'exécuter : IF VARSTRING then.
Mais ca ne fonctionne pas.

Comment puis-je faire?

merci
07/03/2018, 10h15
Menhir

Désolé mais, contrairement à d'autres langages, il n'est pas possible en VBA de créer des méta-variables.

Ce que tu pourrais faire, c'est de mettre en tes 3 première cellule, un indice correspondant à celui d'un vecteur de variables.
Quant au contenu de la cellule 4, ça pourrait être géré avec un Select Case.

Merci Menhir,

j'étais justement en train de tester un case mais j'ai un peu de mal avec.
Tu pourrai m'aider stp?
voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
'Modification
For i = 2 To nbli_MODIF_VAR
 
    For j_RES = 1 To nbcol_RES
        If Workbooks(NMASK).Worksheets("Résultats").Cells(1, j_RES) = Workbooks(NMACRO).Worksheets(1).Cells(i, 13) Then VAR1 = j_RES 'VAR à modifier
        If Workbooks(NMASK).Worksheets("Résultats").Cells(1, j_RES) = Workbooks(NMACRO).Worksheets(1).Cells(i, 14) Then VAR2 = j_RES 'VAR à copier
        If Workbooks(NMASK).Worksheets("Résultats").Cells(1, j_RES) = Workbooks(NMACRO).Worksheets(1).Cells(i, 15) Then VAR3 = j_RES 'VAR CONDITION
    Next j_RES
 
    For i_RES = 2 To nbli_RES
    Select Case Workbooks(NMACRO).Worksheets(1).Cells(i, 16).Value
    Case "="
    CONDI = Workbooks(NMASK).Worksheets("Résultats").Cells(i_RES, VAR3) = Workbooks(NMACRO).Worksheets("Résultats").Cells(i, 17)
    Case "<>"
    CONDI = Workbooks(NMASK).Worksheets("Résultats").Cells(i_RES, VAR3) <> Workbooks(NMACRO).Worksheets("Résultats").Cells(i, 17)
    Case "<"
    CONDI = Workbooks(NMASK).Worksheets("Résultats").Cells(i_RES, VAR3) < Workbooks(NMACRO).Worksheets("Résultats").Cells(i, 17)
    Case "<="
    CONDI = Workbooks(NMASK).Worksheets("Résultats").Cells(i_RES, VAR3) <= Workbooks(NMACRO).Worksheets("Résultats").Cells(i, 17)
    Case ">"
    CONDI = Workbooks(NMASK).Worksheets("Résultats").Cells(i_RES, VAR3) > Workbooks(NMACRO).Worksheets("Résultats").Cells(i, 17)
    Case ">="
    CONDI = Workbooks(NMASK).Worksheets("Résultats").Cells(i_RES, VAR3) >= Workbooks(NMACRO).Worksheets("Résultats").Cells(i, 17)
    End Select
        If CONDI=true Then
        Workbooks(NMASK).Worksheets("Résultats").Cells(i_RES, VAR1) = Workbooks(NMASK).Worksheets("Résultats").Cells(i_RES, VAR2)
        End If
    Next i_RES
Next i

Je n'ai jamais utilisé de case. Je me suis dis qu'un booléan était ce qu'il me fallait mais ca ne fonctionne pas.
Merci de ton aide.

07/03/2018, 11h32
rob1son76

C'est bon en faite ca fonctionne.
J'avais oublié que j'avais déclaré mes variables VAR1,VAR2 et VAR3 en string.
Du coup avec un val(VAR1) ca fonctionne.
07/03/2018, 11h50
Menhir

ton "=true" est inutile puisque ta variable est booléenne.

Bonjour,
je comprends pas vraiment mais bon!

Code:

1
2
3
4
5
 
Operateur="="
If Evaluate(1 & Operateur & 2) Then
    Workbooks(NMASK).Worksheets("Résultats").Cells(i_RES, VAR1) = Workbooks(NMASK).Worksheets("Résultats").Cells(i_RES, VAR2)
End If

07/03/2018, 14h13
rob1son76

dysorthographie,

J'avais essayé avec evaluate mais ca ne fonctionnait pas.
Je n'ai pas du bien l'employer. :(
Je le garde en mémoire pour une prochaine fois.
Merci.