Discussion :

[jbonneval]

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 :

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

[Marc-L]

Bonjour,

utiliser une variable tableau :

Code :

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

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

______________________________________________________________________________________________________

Je suis Paris, …

[jbonneval]

Super Merci

J'ai trouvé ca aussi sur un autre forum

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

[Invité]

Salut,

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

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
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 :

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

[Marc-L]

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) …