Comment créer une classe d'ojet en vba

Bonjour Fred,

Pour créer une classe en vba tu cliques sur "insertion Module de classe", tu renommes ensuite ton module de classe (c'est comme ca qu'on appelle une classe en vba), dans ton cas tu le renommes "humain".

Enfin dans l'éditeur de texte de ton module de classe "humain" tu écris :


'---------------------
' Classe humain
'---------------------

Dim pvardit As String
Dim pvarvoit As Integer

'--------------------------
'
' vardit
'
'--------------------------
Public Property Get vardit () As String
vardit = pvardit
End Property
Public Property Let vardit (Value As String )
pvardit = Value
End Property

'--------------------------
'
' varvoit
'
'--------------------------
Public Property Get varvoit () As Integer
varvoit = pvarvoit
End Property
Public Property Let varvoit (Value As Integer )
pvarvoit = Value
End Property

'--------------------------
'
' methode parler
'
'--------------------------
Sub parler()
MsgBox (vardit)
End Sub

'--------------------------
'
' methode regarder
'
'--------------------------
Sub regarder()
MsgBox (varvoit)
End Sub


Pour utiliser ton objet (par exemple dans un formulaire), tu écris :


Private Sub CommandButton1_Click()

dim fred as new humain
fred.vardit = "coucou"
fred.parler

End Sub

Voilà, c beau la vie quand on peut compter sur la solidarité des pros :)

Bon ca fait 5 ans que fred attend sa réponse... je pense qu'il a zappé depuis

Je fournis donc la réponse pour ceux que ca intéresse

salut essaye en creant un module de classe
sa va te creer classe1
et la tu cré ta classe
je ne suis pas sur mais ca ne coute rien dessayer
a+
toubiiiiiiiiiiiiloooooooooooooouuuuuuuuuuuuuuuuuuuuuupppp

Alors,
J’ai créer un module de classe « humain ».

J’y ai mis deux variable
Et deux fonctions :

Dim vardit As String
Dim varvoit As Integer


Sub parler()
MsgBox (vardit)
End Sub
Sub regarder()
MsgBox (varvoit)
End Sub


Mais lorsque je veux utiliser un objet


Private Sub CommandButton1_Click()

Set fred = New humain
fred.vardit = "coucou"
fred.parler
End Sub


J’ai un message disant : propriété ou methode non gérée par cet objet.

J’aurais du déclarer mes propriétés et mes méthodes différemment ?


Je vous remercie encore.

bien sur que si
il suffit de faire insertion module de classe


et tu declares des propriétes (variable typées)
et des méthodes qui vont prendre en charge tes fonctions

elle est pas belle, la vie ?

essaye de mettre en déclaration au début du module de classe
Public vardit As String
Public varvoit As Integer


elle est pas belle, la vie ?

et oui, la vie est belle lorsque l'on peut compter sur la solidarité de professionnels.

Un tout grand merci.

On a posé de bonnes questions, on a cru qu'on allait donner des réponses intéressantes , mais au final on ne sait pas créer un objet en vba (création de classe mais pas d'instanciation)

Bonjour,
Y manque le principal...
Dans ton projet VBA faut créer une instance de ta classe et c'est avec celle la que tu peu travailler

Dans un Module,
Public HumC as Humain
et par exemnple dans une sub
Sub Machin()
Dim E
    Set HumC = New Humain
    vardit ="La donnée"
    HumC.Parler
...
....

A+

oui, mais comment creer une classe?
merci

Salut,
Complètement impossible en vba à ma connaissance

Qui va en mer pour son plaisir,
irait en enfer pour ses vacances