Exécuter un string comme une ligne de code

Version imprimable

30/06/2015, 10h30
LouisExcellence

Exécuter un string comme une ligne de code

Bonjour,

Je cherche à executer une variable de type string ayant comme contenu une fonction.

Par exemple :

Dim a As Integer
Dim code1, code2, code3 As string

code1 = "for i=1 to 10"
code2 = "a=a+10"
code3 = "next i"

Je cherche ici la fonction ou l'ensemble de fonctions à utiliser afin d’exécuter les 3 variables, dans un premier temps connaitre la fonction permettant d'executer UN string, et dans un deuxième temps le moyen de fusionner les trois variables pour en considérer un bloc de code entier (et l’exécuter...)

Je vous remercie d'avance!
30/06/2015, 10h41
Daniel.C

Bonjour,

A ma connaissance, la seule façon d'exécuter ce code est de l'incorporer dans une macro via VBA, mais c'est très lourd et cela suppose que tu es autorisé à le faire.
30/06/2015, 10h54
LouisExcellence

merci de votre réponse, je suis administrateur d'un outil et je cherche à justement simplifier le code d'une macro (1500+ lignes) car l’exécution est lente.
Je pourrais réduire cette macro à une cinquantaine de lignes.

Mon problème est le suivant : ma macro est une succession de conditions if, au début du code on a seulement if element1 = "..." And element2= "...".
A la fin du code j'ai plus de 100 conditions!! Je cherche donc à Incrémenter ces conditions car elles s’enchaînent logiquement.
J'obtiens à la fin : If element1 = "..." And .. >>> element 100= "...", plus de 100 conditions et c'est ça qui ralentis l'execution du code, c'est par ailleurs pas "propre" et il est probable que sur certaines version d'excel le nombre de conditions doit être limité.
30/06/2015, 11h31
Daniel.C

Citation:

Je cherche donc à Incrémenter ces conditions car elles s’enchaînent logiquement

Est-ce que tu peux donner un exemple ?

Voici le "début" du 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
 
 If air_prod = "" Then
 
   Else
 
        For i = 1 To UBound(results_air_prod)
 
            If air_flow_min = 0 And air_flow_max = 0 Then
 
                results(i) = results_air_prod(i)
 
            ElseIf results_air_prod(i) = results(i) Then
 
                results(i) = results(i)
 
            Else
 
                results(i) = ""
 
            End If
 
        Next i
 
    End If

La condition à surveiller ici est :

Code:

If air_flow_min = 0 And air_flow_max = 0 Then

Une partie du code plus loin :

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
 
If length_max = 0 Then
 
   Else
 
        For i = 1 To UBound(results_length)
 
            If air_flow_min = 0 And air_flow_max = 0 And air_prod = "" And installation = "" And cpr_model = "" And dry_model = "" And tech_lub = "" And supplier = "" And Middle_voltage = 0 And weight_max = 0 And height_max = 0 And width_max = 0 Then
 
                results(i) = results_length(i)
 
            ElseIf results_length(i) = results(i) Then
 
                results(i) = results(i)
 
            Else
 
                results(i) = ""
 
            End If
 
        Next i
 
    End If

c'est donc cette condition qui évolue (jusqu'à plus de 100 éléments à la fin du code....) :

Code:

1
2
 
If air_flow_min = 0 And air_flow_max = 0 And air_prod = "" And installation = "" And cpr_model = "" And dry_model = "" And tech_lub = "" And supplier = "" And Middle_voltage = 0 And weight_max = 0 And height_max = 0 And width_max = 0 Then

bonjour,
test ça, attention c'est du VbScript il y a une legère différence avec VBA!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test()
Dim a As Integer
Dim code As String
code = "Sub Test()" & vbCrLf
code = code & "dim a,i" & vbCrLf
code = code & "for i = 1 to 10" & vbCrLf
code = code & "a = a + 10" & vbCrLf
code = code & "next " & vbCrLf
code = code & "msgbox a" & vbCrLf
code = code & "End Sub" & vbCrLf
Set scr = CreateObject("ScriptControl")
scr.Language = "VbScript"
scr.AddObject "This", ThisWorkbook, True
Set m = scr.Modules.Add("Module1")
m.AddCode code
m.Run "test"
Set m= nothing
Set scr = nothing
End Sub

30/06/2015, 12h47
eriiic

Bonjour,

Déjà tu pourrais économiser ces lignes : results(i) = results(i)

Je ne sais pas à quel style de code tu comptes aboutir mais si c'est toujours avec des lignes à 100 conditions le pb c'est qu'excel les évalue toutes même si la 1ère est fausse (et donc 99 tests pour rien).
Ca ne va pas arranger ton nombre de lignes mais tu devrais essayer de les prioriser et de mettre en tête (1 ou 2 par ligne) celles qui ont statistiquement le plus de chance d'être fausses pour quitter les tests au plus tôt.
Si tu en as quelques unes qui ont 1 chance sur 2 d'être fausses ça va te faire un gros gain en tests.
Et pour les suivantes si tu as des groupes de tests qui sont répétés stocke le résultat et réutilise-le plutôt que de refaire tous les tests.
Et si c'est possible les groupes de tests les plus utilisés pourraient même être préparés par formule dans une feuille et récupérés en bloc pour leur utilisation. Ca peut faire un bon gain en plus de raccourcir et simplifier le code.

eric

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
    If air_prod <> "" Then
        For i = 1 To UBound(results_air_prod)
            If air_flow_min + ir_flow_max = 0 Then Results(i) = results_air_prod(i)
            If results_air_prod(i) <> Results(i) Then Results(i) = ""
        Next i
    End If
    If length_max > 0 Then
        For i = 1 To UBound(results_length)
            If (air_flow_min = 0 + air_flow_max + Middle_voltage + supplier + weight_max + height_max + width_max = 0) _
            And (air_prod & installation & cpr_model & dry_model & tech_lub = "") Then Results(i) = results_length(i)
 
            If results_length(i) <> Results(i) Then Results(i) = ""
        Next i
    End If
End Sub

30/06/2015, 13h28
LouisExcellence

Merci pour vos réponses,
Je ne suis pas l'auteur de ce code, je suis simplement chargé de le simplifier pour rendre l’exécution plus rapide.

Pour être plus clair ce code à pour but :

D'effectuer une recherche, je m'explique avec un exemple très simple :

On a 100 maisons, chaque maison a une couleur associée, une taille, un prix, des volets ou non, un jardin ou non...

L'utilisateur rentre des critères de recherche (maison rouge, 150m2, < 300.000e, sans volets, avec jardin, par exemple) et le code VBA renvoie les maison qui entrent dans ces critères.

J'avoue que le code est actuellement très brouillon, c'est pourquoi si vous avez des conseils pour effectuer ce genre de recherche je suis preneur!
J'ai l'intuition qu'une fonction VBA, ou même excel, permet d'y arriver rapidement.
30/06/2015, 13h38
Marc-L

Bonjour,

si la conception de la feuille de calculs contenant les données est correcte,
le résultat serait instantané avec un filtre avancé et en moins de dix lignes de code !

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse
30/06/2015, 13h39
Invité

il me semble bien que le code que j'ai placé au post #8 fait la même chose que le tien en il le simplifie!
30/06/2015, 15h57
LouisExcellence

Le vbscript marche à merveille rdurupt, je note ça dans un coin ça me sera très utile pour la suite (c'est une question fréquemment posée sur des forums pour laquelle sauf erreur de ma part il n'y a eu aucune réponse!)

Marc-L, le filtre avancé s'avère être la meilleure solution, merci!
30/06/2015, 16h14
Invité

Citation:

Envoyé par LouisExcellence

(c'est une question fréquemment posée sur des forums pour laquelle sauf erreur de ma part il n'y a eu aucune réponse!)!

A ma connaissance j'en ai aucune idée

Mais je penses que si!
http://www.developpez.net/forums/d13...e/#post7536200
30/06/2015, 23h52
patricktoulon

heu

Bonsoir
Durupt respect!!!!

il faudra que je te contacte si ca te dérange pas pour me parler en franciscain de ce scriptcontrol au quelque on attribue un langage
tu a l'air de manipuler ca très bien

j'aime le style ;)
01/07/2015, 07h12
Invité

Bonjour Patrick, pas de problème!