Recuperer la valeur d'une variable composée

Version imprimable

Bonjour,

Je souhaiterais récuperer la valeur d'une variable composée avec la valeur de la variable de la boucle en For Next.
La valeur de cette variable est ensuite utilisée dans une function TblLF7 = FiltreClé(tab_prob, m)

Exemple:
LF1= "LF7L"
LF2= "LF7L"
LF3= "LF7M"
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Dim VariableManip () Dim LF1 as string Dim LF2 as string Dim LF3 as string Dim m as string LF1= "LF7L" LF2= "LF7L" LF3= "LF7M" For l = 1 To 3 m = "LF" & l MsgBox(m) 'TblLF7 = FiltreClé(tab_prob, m)
NExt

End sub

Lorsque l a la valeur 1, la valeur de l'expression m devra être la valeur de la variable LF1 => "LF7L"
Lorsque l a la valeur 2, la valeur de l'expression m devra être la valeur de la variable LF2 => "LF7L"
Lorsque l a la valeur 3, la valeur de l'expression m devra être la valeur de la variable LF3 => "LF7M"

Merci d'avance pour votre retour

Cdt
Jerome

07/12/2015, 15h50
Marc-L
Bonjour,

utiliser une variable tableau :
Code:

1 2 3 4 5 6 7 Sub Demo() VLF = [{"LF7L","LF7L","LF7M"}] For L% = 1 To 3 M$ = VLF(L) MsgBox L & " : " & M Next End Sub
______________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

______________________________________________________________________________________________________
Je suis Paris, …

Super Merci :)

J'ai trouvé ca aussi sur un autre forum

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
 
Sub VaraibleManip()
Dim LF1 as string
Dim LF2 as string
Dim LF3 as string
Dim m(1 To 3) As String
 
LF1=  "LF7L"
LF2=  "LF7L"
LF3=  "LF7M"
 
For l = 1 To 3
 
'Permet de boucler avec la valeur d'une variable composé par la boucle For Next
m(1) = LF1
m(2) = LF2
m(3) = LF3
 
TblLF7 = FiltreClé(tab_prob, m(l))
 
MsgBox(m(l))
 
Next
 
End Sub

Petite question:
A quoi sert le % et $ après la variable L et M?

Encore merci pour ton aide :)

Bon pm
jerome

Salut,

Sinon, si le texte n'est pas formé de manière logique, un autre exemple:

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
 
Sub GetTextTest1()
    MsgBox GetText(1)
End Sub
 
Sub GetTextTest2()
    Dim i As Long
    Dim s(1 To 3) As String
 
    For i = 1 To 3
        s(i) = GetText(i)
    Next
 
    For i = 1 To 3
        Debug.Print s(i)
    Next
End Sub
 
Function GetText(Index As Long) As String
    Dim s As String
 
    Select Case Index
        Case 1: s = "LF7L"
        Case 2: s = "LF7L"
        Case 3: s = "LF7M"
    End Select
    GetText = s
 
End Function

Si ton texte est formé de manière logique, remplace ajoute des 'Case' dans le select case.
Par exemple:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Sub GetTextTest3()
    Const INDEX_MAX = 20
    Dim i As Long
    Dim s(1 To INDEX_MAX) As String
 
    For i = 1 To INDEX_MAX
        s(i) = GetText2(i)
    Next
 
    For i = 1 To INDEX_MAX
        Debug.Print s(i)
    Next
End Sub
 
Function GetText2(Index As Long) As String
    Dim s As String
 
    Select Case Index
        Case 1
            s = "LF7L"
 
        Case 2
            s = "LF7L"
 
        Case 3
            s = "LF7M"
 
        ' Traitement spécifique.
        Case 4 To 10
            s = "LFX" & (Index * 5)
 
        ' Traitement spécifique.
        Case 11 To 20
            s = "LFY" & (Index * 3 + 1)
 
        ' Traitement spécifique.
        Case Is > 20
            s = "LFZ" & (Index + 1)
 
    End Select
    GetText2 = s
 
End Function

07/12/2015, 16h32
Marc-L

Citation:

Envoyé par jbonneval

A quoi sert le % et $ après la variable L et M?

A déclarer à la volée le type de la variable (cf aide VBA) …