Comment utiliser des Sub et des Property Get dans une autre feuille ?
* Bonjour, *
Je suis nouveau avec la programation orientée objet avec VBA. Je souhaite utiliser une classe créer sur stackoverflow ici. Mais je ne suis pas capable d'utiliser les Sub et les Property Get depuis une autre feuille. J'ai l'erreur suivante : `Object variable or With block variable not set`
Code:
1
2
3
4
| Dim Timer As CTimer
Timer.StartCounter
// choses pour implémenter le solveur d'Excel.
temps2 = Timer.TimeElapsed |
Ici on a la Sub et la Property Get qu'on utilise plus haut :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| Public Sub StartCounter()
QueryPerformanceCounter m_CounterStart
End Sub
Property Get TimeElapsed() As Double
Dim crStart As Double
Dim crStop As Double
QueryPerformanceCounter m_CounterEnd
crStart = LI2Double(m_CounterStart)
crStop = LI2Double(m_CounterEnd)
TimeElapsed = 1000# * (crStop - crStart) / m_crFrequency
End Property |
* Merci *
