Bonjour, j'ai un problème d'utilisation des classes.
Je veux utiliser une classe pour définir un matériau, rentrer ma base de données matériau et pouvoir ensuite appeler mes propriétés matériau n'importe ou dans ma feuille excel. Ca a l'air simple mais mon manque de connaissances me fait gravement défaut...
exemple :
- je crée une classe "Materiau" avec les proprietés "densité", "young", "alpha", "poisson". Chacune de ces propriétés doit être dépendante de la température
ici un exemple de ce que j'ai essayé de faire en copiant des lignes trouvées ici
- je rentre tous mes matériaux dans un module "base_mat"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Option Explicit Private FDensite As Variant Public Property Let Densite(ByRef Valeur As Variant) Set Densite = Valeur End Property Public Property Get Densite() As Variant Set Densite = FDensite End Property Private Sub Class_Initialize() Set FDensite = New Sequence End Sub
ex :
(excusez la syntaxe... de toutes façons même en simplifiant à l’extrême avec une seule valeur j'ai une erreur de compilation)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 dim acier as new Materiau acier.densité = ([20; 8000]; [100 ; 7500]; [200; 7000])
- ensuite dans ma feuille je veux appeler la densité de l'acier à 100°C.
je voudrais taper un truc du style =acier.Densité(100) et ça me renverrai 7500 dans cet exemple. Ca je n'y suis jamais arrivé non plus.
j'espere avoir été clair...merci de votre aide!
Partager