modules de classe

Bonjour !

"Paul" nous a écrit ...

Je recherche des informations sur la façon d'utiliser les modules de
classe dans Word. J'ai cherché dans la faq, je n'ai rien trouvé.
Si vous pouvez me donner une piste ou des liens, ce serait très
gentil. Merci d'avance.

Les modules de classes s'utilisent dans Word comme dans VB ou dans
Excel. C'est peut-être une boutade mais ça donne une petite idée
où chercher les infos ... ;-)

Anacoluthe
« Il vaut mieux changer de classe qu'être déclassé. »
- Jean GRENIER

Les modules de classes s'utilisent dans Word comme dans VB ou dans
Excel. C'est peut-être une boutade mais ça donne une petite idée
où chercher les infos ... ;-)

Ben oui, mais je me demandais si certains n'avaient pas des exemples Word
qui pourraient m'inspirer.
Bon, je continue mes recherches sur le net.
Et merci.
Paul
« Le module de classe est le living room de la culture », d'après Quino.

Bonjour à tous,
dans le message <enlqofCsDHA.1744@TK2MSFTNGP12.phx.gbl>,

| Bonjour à toutes et à tous,
| Je recherche des informations sur la façon d'utiliser les modules de
| classe dans Word.
| J'ai cherché dans la faq, je n'ai rien trouvé.
| Si vous pouvez me donner une piste ou des liens, ce serait très
| gentil. Merci d'avance.
| Paul

Oui, mais as-tu cherché dans l'aide de VBA? Tu peux regarder ce qui
s'écrit à propos de :
raisevent, event, property,utilisation d'événements avec l'objet
Application, ...
en prime je te joins le code d'une petite classe chronomètre, qui
s'utilise comme tout objet déclaration, utilisation.
== Option Explicit
'Classe chronomètre
'Définit un objet chrono permettant de compter de t0 à t1
'Propriétés :
' - Durée :temps écoulé en secondes
'Méthodes :
' - RAZ
' - Unité
' - Départ
' - Arrêt
' - Durée avec et sans unité
'Chronométrage seulement
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Intervalle As Long, EnMarche As Boolean, Koef As Long, NomUnit1
As String, NomUnit2 As String

Public Property Get Durée() As Variant
If EnMarche Then Arrêt
Durée = Intervalle / Koef
End Property

Public Sub Départ()
If Koef = 0 Then UnitéDeTemps = 4
Intervalle = GetTickCount
EnMarche = True
End Sub

Public Sub Arrêt()
Intervalle = GetTickCount - Intervalle + 1
EnMarche = False
End Sub

Public Sub RAZ()
Intervalle = 0
Durée = 0
End Sub

Public Property Get UnitéDeTemps() As Variant

End Property

Public Property Let UnitéDeTemps(ByVal vNewValue As Variant)
' Unité Koef
'1 millième de seconde 1
'2 centième de seconde 10
'3 dixième de seconde 100
'4 seconde 1000
'5 minute 60000
'6 heure 3600000
Select Case vNewValue
Case 1
Koef = 1
NomUnit1 = "millième"
NomUnit2 = "de seconde"
Case 2
Koef = 10
NomUnit1 = "centième"
NomUnit2 = "de seconde"
Case 3
Koef = 100
NomUnit1 = "dixième"
NomUnit2 = "de seconde"
Case 4
Koef = 1000
NomUnit1 = "seconde"
NomUnit2 = ""
Case 5
Koef = 60000
NomUnit1 = "minute"
NomUnit2 = ""
Case 6
Koef = 3600000
NomUnit1 = "heure"
NomUnit2 = ""
Case Else
Koef = 1000
NomUnit1 = "seconde"
NomUnit2 = ""
End Select
End Property

Public Property Get DuréeAvecUnité() As String
DuréeAvecUnité = CStr(Durée) & " " & NomUnit1
If Durée > 2 Then DuréeAvecUnité = DuréeAvecUnité & "s"
DuréeAvecUnité = DuréeAvecUnité & " " & NomUnit2
End Property
== --
A+

GMO MVP WORD