1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Public Dico As Object
Public Property Let Variables(Nom As String, value As Variant)
If TypeName(Dico) = "Nothing" Then Set Dico = CreateObject("Scripting.Dictionary")
Dico(Nom) = value
End Property
Public Property Get Variables(Nom As String) As Variant
If TypeName(Dico) = "Nothing" Then Set Dico = CreateObject("Scripting.Dictionary")
Variables = Dico(Nom)
End Property
Sub test()
Set Dico = Nothing
For i = 1 To 10
Variables("compteur6") = Variables("compteur6") + 1
Variables("compteur15") = Variables("compteur6") - 1
Debug.Print Variables("compteur6"), Variables("compteur15")
Next
End Sub |
Partager