Discussion :

[AntoineCompagnie]

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

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

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 :

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

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 *

[Invité]

Bonjour,
La programmation objet implique d'utiliser le constructeur d'objet New!

Code :

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

Dim Timer As New CTimer