je fais di c++ mais la je dois faire un truc sous excel eet ca aurait tres pratique de créer un objet!
 
Comment peut-on faire ca et quel sont les syntaxe.
 
J'ai fouiller l'aide mais curieusement je n'ai rien trouvé  

Ouaip c'est faisable mais je sait pas encore comment
Par contre c'est fort peu probable que tu ne trouve pas ton compte avec ce que vb propose.
(References et composants du menu projet)

be non c pour gerer une truc perso.
 
J'ai une liste de personne avec chacun 45 attribut et je m'étais dit qu'une classe representant une personne ca serait vraiment bien venu    
 
alors comment k'on fait ?

Un exemple de module de classe d'objets ayant les propriétés index, Plateau_Gauche et Plateau_Droit et les méthodes Définir, Afficher et Coucou. Un constructeur et un destructeur (ce dernier ne joue aucun rôle). C'est rudimentaire mais le principe y est.
 
Une propriété publique :
Public index As Integer
Deux propriétés privées :
Private Plateau_Gauche As Double
Private Plateau_Droit As Double
 
Un constructeur:
Private Sub Class_Initialize()
Dim Message, Title, Default, MyValue
 
On Error GoTo Gestion_Erreurs
 
Message = "Entrez une valeur pour le plateau gauche"
Title = "Plateau gauche" ' Définit le titre.
Plateau_Gauche = InputBox(Message, Title)
 
Message = "Entrez une valeur pour le plateau droit"
Title = "Plateau droit" ' Définit le titre.
Plateau_Droit = InputBox(Message, Title)
 
Numero = Numero + 1
index = Numero
 
Exit Sub
Gestion_Erreurs:
Select Case Err.Number
    Case 13
        MsgBox "Vous devez saisir un nombre réel!"
        Resume
    Case Else
        MsgBox Err.Description
End Select
 
End Sub
 
Un Destructeur:
Private Sub Class_Terminate()
 
End Sub
 
Une méthode publique:
Public Sub Definir()
 
Dim Message, Title, Default, MyValue
 
On Error GoTo Gestion_Erreurs
 
Message = "Entrez une valeur pour le plateau gauche"
Title = "Plateau gauche" ' Définit le titre.
Plateau_Gauche = InputBox(Message, Title)
 
Message = "Entrez une valeur pour le plateau droit"
Title = "Plateau droit" ' Définit le titre.
Plateau_Droit = InputBox(Message, Title)
 
Exit Sub
 
Gestion_Erreurs:
Select Case Err.Number
    Case 13
        MsgBox "Vous devez saisir un nombre réel!"
        Resume
    Case Else
        MsgBox Err.Description
End Select
 
End Sub
 
Une autre méthode publique:
Public Sub Afficher()
 
MsgBox "Plateau gauche: " & Plateau_Gauche & Chr(13) & "Plateau droit: " & Plateau_Droit
 
End Sub
Public Sub Ecart()
Dim Ecart As Double
Ecart = Plateau_Gauche - Plateau_Droit
MsgBox "L'écart entre le plateau gauche et le plateau droit est de:" & Ecart
 
End Sub
 
Encore une autre méthode publique:
Public Sub Coucou()
 
MsgBox "Coucou!"
 
End Sub
 
 
 
Voilà! En espérant que cela t'aidera !

a non ca va pas m'aider    
 
non je deconne, c super merci