Question module de classe

Bonjour,

Je suis actuellement en train de coder un module de classe d'opérations de matrice, et j'ai plusieurs questions
:
- Je souhaiterais savoir si il est possible de proposer une liste de choix, vous savez quand j'utilise par exemple une fonction sort, qui propose le choix xldescendant, ou xlascendant, peut on proposer une liste de choix nous aussi ?

- je cherche la confirmation que l'on ne peux pas saisir de parametre dans la sub d'initialisation , qui nous sert un peut de constructeur "Sub Class_Initialize()" on peut biensure initialiser des parametres mais la sub ne peux pas prendre de parametre ?

- Nous ne pouvons pas mettre une propriete get en private et la propriete en ecriture (let) en public ?

- en terme de performance, si je fais des fonctions optimisées en terme de complexite .. , est-ce performant de gerer plutot ma classe plutot que des tableaux dans vba, car la gestion des tableau dans vba est un peu incomplete, ma classe permet de gerer l'extraction de colonnes, somer les lignes , les colonnes etc, tout ce qui pourrait etre necessaire a du calcul numerique .

Merci d'avance, toute aide, conseils sont les bienvenus, car voudrais mieux comprendre le fonctionnement des objets dans vba ( un language facile mais qui pour le coup ne donne pas forcement la main sur les choses et on en sait pas toujurs ce que l'on manipule )

voici une toute petite partie de mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

Option Explicit Option Base 1   Private P_MatDim As Variant Private P_Matrix As Variant: Private P_Det As Double, P_Init As Variant   Private Sub Class_Initialize() End Sub   Property Get MatDim() As Variant MatDim = P_MatDim End Property   Public Property Get Matrix() As Variant Matrix = P_Matrix End Property   Public Property Let Matrix(ByVal MyVector As Variant) P_Matrix = MyVector P_MatDim = Array(UBound(MyVector), UBound(MyVector, 2))   End Property   Public Property Get Det() Det = P_Det End Property   'Initialisation de la matrice Public Property Let Init(ByVal MyVal As Variant) Dim i As Long, MyColVector, j As Long Dim MyMatrixT(), MyMatrix, MyValueVector Dim MyVect   MyVect = Split(MyVal, ";")   'Nombre de lignes/ colonnes P_MatDim = Array(UBound(MyVect) + 1, UBound(Split(MyVect(0), ",")) + 1)   'On redimensionne ReDim MyMatrixT(P_MatDim(1), P_MatDim(2))   For i = 0 To UBound(MyVect) 'ligne MyValueVector = Split(MyVect(i), ",") For j = 0 To UBound(MyValueVector) ' colonne MyMatrixT(i + 1, j + 1) = CDbl(MyValueVector(j)) Next j Next i   'Mise à jour P_Matrix = MyMatrixT End Property

---

Bonsoir,
La propriété let permet de renseigner une variable privée du module de classe.

Ce n'est pas pour le folklore c'est pour permettre la qualification des données.

Get privée rime à rien puisque les méthodes en interne du module de classe ont accès au variables privée autant de passé du get!

Il est possible de créer ses propres types de variables mais il également position de créer un enumérateur?

Ce sont des constantes groupées dans un type que tu peux affecter a une variable et Excel te proposera la liste

Code:

---

1 2 3 4 5

public enum myenum Rd1=1 Rd2=2 End enum Public property let myporperty(value as myenum)

---

et là tu auras la saisie instinctive!

Merci bcp tu es une vrai machine , je connaissais pas , et oui pour le get , j'ai dis des betises , je me suis embrouillé , et pour le initialise, on ne peut pas rentrer de parametres , comme ds un constructeur normal en python par exemple?
Car qaund je veux construire ma classe comme je le ferais dans un autre language , je voudrais lui attribuer des valeur pour ces proprietes

Code:

---

1 2	Dim MyMatrix as new matrix

---

Lors dela création de mon objet pas possible ( je sais que ca ne marche pas non plus pour un objet feuille ou workbook) d'ecrire

Code:

---

Dim MyMatrix(1,2) as new matrix

---

Ainsi ma matrice aurais par exemple 1 ligne et 2 colonnes (chose que j'aurais biensur programé dans mes proprietes let )

Tu fais une confusion entre ce que tu connais des autres langues et vba.

Un module de classe en vba dispose d'un constructeur par défaut comme dans tous les langages!

Mais il n'est pas possible de le surcharger!Class_Initialize() n'a rien à voir avec le constructeur c'est un événement que vb, les remords sens doute, met à disposition pour initialisé de paramètres du module de classe!

Il faut faire avec et trouve le comportement le plus judicieux!

Maintenant l'intérêt d'un module de classe ou un tableau, tout dépend du traitement!
Si tu veux compter les horaires mensuel des salariés de ton entreprise une collection de module de classe te permettent d'effectué ce travail sens te compliqué la vie

Code:

---

1 2 3 4 5 6

if dico.exist(cell(i,"a")) then Set cls=new classe Sico.add cells(i,"a"),cls Set cls=nothing Ed if Dico.(cells(i,"a")).count =Dico.(cells(i,"a")).count+1

---

erci pur tes conseils , je suis aussi partit voir les tutos sur les modules de classes en Access, je comprend un peu mieux , en réalité ce n'est pas le constructeur , et si j'avais usé du pas à pas je l'aurais bien vu .., on peut toujours creer une sub d'initialisation , mais que l'on devras utiliser apres la declaration du pointeur

Je clos le sujet, je vais continuer à lire et à me documenter sur le sujet pour le maitiser un peu plus cette semaine .

Merci

Bonjour,
Je métrise bien le sujet, je serai ravi de te mettre des baffes derrière la tête le cas échéant, n'hésitez pas à me demander de l'aide!

Ah c'est pas tombé dans l'oreil d'un sourd, je vais bien reprendre tt ca et faire quelques autres classes (utiles si possible , tant qu'a faire lol) et puis si j'ai des question sur ce qu'il se passe deriere , je viendrais te poser la question. En general c'est plutot ce qu'il se passe derriere qui est un peu plus compliqué sur vba, car on a pas forcememnt la main sur tt puisque c'est un language bien simplifié , merci encore ( les claques ne seront pas necessaires lol )