Discussion :

[LouisExcellence]

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!

[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.

[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é.

[Daniel.C]

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

Est-ce que tu peux donner un exemple ?

[LouisExcellence]

Voici le "début" du code

Code :

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

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 :

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

If air_flow_min = 0 And air_flow_max = 0 Then

Une partie du code plus loin :

Code :

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

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 :

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

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

[Invité]

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

Code :

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

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