Variable "indirecte"

Option Explicit 
'
Private Type ExterVar 
   NomVar As String 
   Valeur As Long 
End Type 
'
Dim Mytab(1 To 57) As ExterVar 
'
'
Private Sub Form_Load() 
'   init un peu..
    Mytab(1).NomVar = "Coucou" 
    Mytab(1).Valeur = 70 

    Mytab(2).NomVar = "strTest" 
    Mytab(2).Valeur = 40 

    Mytab(5).NomVar = "Machin" 
    Mytab(5).Valeur = 187 
End Sub 
Private Sub Form_Unload(Cancel As Integer) 
    Erase Mytab 
End Sub 
'
'
Private Sub Command1_Click() 
    Call TestVar 
End Sub 
'
'
Private Sub TestVar() 
'   on veux récupérer le long pour "strTest"
    Const sSearch As String = "strTest" 
    Dim i As Integer 
    '
    For i = 1 To 57 
        If Mytab(i).NomVar = sSearch Then Exit For 
    Next i 

'   on a quitté trop tard, donc non trouvé
    If i = 58 Then 
        MsgBox "Fausse variable non-trouvée" 
    Else 
'   trouvé, on a l'indice
        MsgBox "La variable cherchée est '" & sSearch & "'" & vbCrLf & _
               "Elle est en " & i & "è position du tableau" & vbCrLf & _ 
               "Sa valeur est de '" & CStr(Mytab(i).Valeur) & "'"
    End If 
End Sub 
 

Coloration syntaxique automatique [AFCK]