creation de classe

Version imprimable

20/11/2007, 14h11
deubelte

creation de classe
Bonjour
J'aimerais creer une nouvelle propriete de la classe "Range" qui permette de renvoyer les cellules contigues a une cellule.
Appelons Voisinage cette propriete, on aurait:
Code:

1 2 3 4 5 6 7 Sub exemple Set R=Range("C10") Set Region=R.Voisinage Region.Select end sub
Ce code aurait pour effet de selectionner les cellules contigues a C10.
Le pb est que je ne sais pas comment on fait ca.
Alors j'ai cree un nouvel objet dont la classe est "clRegion"

le code de la classe est:
Code:

1 2 3 Public Property Get Region(nsheet As Range) Set Region = Range(nsheet.Offset(-1, -1), nsheet.Offset(1, 1)) End Property
et la fonction de selection est:
Code:

1 2 3 4 5 6 Sub exemple() Dim R As New clRegion Set Rf = R.Region(Range("C10")) Rf.Select End Sub
Le pb est que ca doit creer un nouvel objet, ce qui n'est pas necessaire.

Alors comment puis-je faire ce qu eje voulais faire au debut?
merci

Bonsoir,

De ce que je comprends ta classe comprend deux propriétés:

- Un objet Range en lecture/ecriture (C10 dans ton exemple)

- Un objet Range en lecture seule correspondant aux cellules contigues à C10

Ton module pourrait ressembler à ceci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private clsCellule As Range Property Get Cellule() As Range Set Cellule = clsCellule End Property Property Set Cellule(NewCellule As Range) Set clsCellule = NewCellule End Property Property Get Region() As Range With clsCellule Set Region = Range(.Offset(-1, -1), .Offset(1, 1)) End With End Property
L'utilisation donnerait ceci:
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim MyRange As clRegion Sub Test() Set MyRange = New clRegion Set MyRange.Cellule = Range("C10") MyRange.Region.Select MsgBox MyRange.Region.Address End Sub
Reste à prévoir les cas ou la cellule de base est au bord de la feuille, et celui ou la cellule de base est une plage de cellules, voire plusieurs plages de cellules discontinues...

Cordialement,

Tirex28/

21/11/2007, 10h27
deubelte
Merci
Pourquoi n'est il pas necessaire de mettre un constructeur et un destructeur?
De ce style:
Code:

1 2 3 Private Sub Class_Initialize() .... End Sub
Code:

1 2 3 Private Sub Class_Terminate() .... End Sub
21/11/2007, 13h29
tirex28
Bonjour,

Rien nen t'y oblige mais rien ne t'en empeche, tout dépend de ce que tu veux faire, par exemple:
Code:

1 2 3 Private Sub Class_Initialize() Set Cellule = ActiveCell End Sub
Cordialement,

Tirex28/
21/11/2007, 13h34
deubelte

merci
As tu des references sur la composition et l heritage de classes en VBA?
21/11/2007, 14h04
tirex28

Pour les anglophones:

http://msdn2.microsoft.com/en-us/lib...ffice.10).aspx

Cordialement,

Tirex28/

Voici une classe que j'ai faite
Elle consiste a creer un tableau, qui est repere par la toute premiere cellule, qui possede un titre, et une plage de valeur

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
52
53
54
55
56
57
58
59
60
 
'definition des variables internes
Private x_val As Integer
Private y_val As Integer
Private titre As String
Private header As Range
Private Mysurface As Range
 
 
Private Sub Class_Terminate()
'Destructeur
header.Value = vbNullString
Set header = Nothing
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''Dimension horizontale'''''''''''''''''''''''''
Public Property Get dimensions_abs()
dimensions_abs = x_val
End Property
Public Property Let dimensions_abs(x)
x_val = x
End Property
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''Dimension verticale'''''''''''''''''''''''''
Public Property Get dimensions_ord()
dimensions_ord = y_val
End Property
Public Property Let dimensions_ord(x)
y_val = x
End Property
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''Titre'''''''''''''''''''''''''''''''''''''''
Public Property Get Title()
Title = titre
End Property
Public Property Let Title(d)
header.Value = d
End Property
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
'''''''''''''''''''''''''''''''''Definition de la premiere cellule ''''''''''''''''''''''''''''''''''''''''''
Public Property Get Entete()
Set Entete = header
End Property
Public Property Let Entete(dsss)
For Each Item In Sheets("SurfVol").Cells
If Item.Address = dsss Then
Set header = Item
Exit For
End If
Next Item
End Property
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''Definition de la plage'''''''''''''''''''''
Public Property Get Surface() As Range
Set Surface = Mysurface
End Property
 
Public Property Let Surface(x)
Set Mysurface = Range(header, header.Offset(x_val, y_val))
End Property'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Voici l exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub exempl()
 
 
Dim Tableaux1 As cTableaux
Set Tableaux1 = New cTableaux
Tableaux1.dimensions_abs = 10
Tableaux1.dimensions_ord = 12
Tableaux1.Entete = "$DG$6"
Tableaux1.Title = "Letitre"
Tableaux1.Surface = 5
 
Set ff = Tableaux1.Surface()
 
Set Tableaux1 = Nothing
 
End Sub

Le probleme quand je fais ca, c'est que dans la fenetre locals, on voit les variables Private titre,header,.....

Aussi comment ameliorer cette classe?
Merci

21/11/2007, 15h56
Pierre Fauconnier

Bonjour

A mon avis, il n'y a pas moyen de masquer les propriétés privées de l'objet, en VBA.

De plus, en vb, il n'y a pas d'héritage ni de polymorphisme.

Pour voir comment l'améliorer, il faudrait que tu expliques à quoi te sert cet objet...

Pour ma part, je ne vois pas l'utilité de

Code:

Property Let Surface(x)

, car la surface est déterminée au moment de préciser le nombre de lignes et le nombre de colonnes. Pour moi, la variable privée my_surface doit être calculée dans les property let dimension_... et la propriété Surface doit être en lecture seule.

De plus, pour ce genre d'objet, je préfère définir les propriétés lors d'une méthode

Code:

Sub Init(Header as range, x as long, y as integer)

(remarque au passage que x est de type long pour pouvoir accueillir plus de 32768 lignes...). Dès lors les propriétés dimensions... deviennent des propriétés en lecture seule, comme la propriété Surface.

De plus, il faut choisir des noms explicites pour les propriétés, car pour la propriété dimensions_abs, je pensais qu'il s'agissait du nombre de colonnes (comme dans un tableau normal avec x en abcisse et y en ordonnée), et il semble que ce soit l'inverse. Pourquoi ne pas choisir Lignes et Colonnes ou NombreLignes et Nombre_Colonnes par exemple. Les variables privées s'appelleraient alors mLignes et mColonnes. La propriété Surface devrait utiliser la variable privée mSurface. Habituellement, les variables privées d'une classe sont préfixées de m ou de m_ et, pour celles qui sont directement en lien avec une propriété publique, elles portent le même nom que la propriété publique à laquelle elles se rapportent.

Pour améliorer encore, tu peux typer ta propriété

Code:

property get Surface() as range
21/11/2007, 16h08
deubelte

merci pour les infos.

Citation:

Pour voir comment l'améliorer, il faudrait que tu expliques à quoi te sert cet objet...

Disons que cetait pour apprendre a utiliser les classes en VBA.
Plus precisement, je fais projet en VBA Excel ou je manipule des tableaux qui ont tous le meme format alors je pensais creer des objets.
Par exemple pour avoir le nombre de cellules utilises dans le tableau, je dois faire:

Code:

nblignes_call = Sheets("Surfvol").Range("list_of_strikes_within_the_range").Offset(1, 0).End(xlDown).Row - Sheets("Surfvol").Range("list_of_strikes_within_the_range").Row

Alors autant mettre ca dans un objet, c'est plus mieux et plus facile a utiliser.

Citation:

A mon avis, il n'y a pas moyen de masquer les propriétés privées de l'objet, en VBA.

Tant pis, c'est juste que c'est penible davoir deux fois les memes variables dans la fenetre.

Citation:

Pour ma part, je ne vois pas l'utilité de
Code :

Property Let Surface(x)

, car la surface est déterminée au moment de préciser le nombre de lignes et le nombre de colonnes. Pour moi, la variable privée my_surface doit être calculée dans les property let dimension_... et la propriété Surface doit être en lecture seule.

Cest ce que je pensais faire.

Citation:

et la propriété Surface doit être en lecture seule.

Donc pas de get pour la lecture seule ?

Citation:

De plus, pour ce genre d'objet, je préfère définir les propriétés lors d'une méthode
Code :

Sub Init(Header as range, x as long, y as integer)

Je ne comprends pas ce que tu dis. Que serait le code de Init alors?

Citation:

Envoyé par deubelte

Donc pas de get pour la lecture seule ?

Non, c'est l'inverse. C'est Get qui lit et Let qui écrit.
Une propriété est en lecture seule lorsque tu as

Code:

property get Surface() as range

sans avoir

Code:

property let Surface(... as range)

Ainsi, tu peux la lire mais tu ne peux pas l'écrire.

Citation:

Envoyé par deubelte

Citation:

De plus, pour ce genre d'objet, je préfère définir les propriétés lors d'une méthode
Code :

Sub Init(Header as range, x as long, y as integer)

Je ne comprends pas ce que tu dis. Que serait le code de Init alors?

Pour définir la surface, tu as besoin du nombre de lignes et du nombre de colonnes. Si tu permets de modifier le nombre de lignes et le nombre de colonnes dans des propriétés spécifiques, tu ne sais pas facilement calculer la surface. Or, tu pourrais en avoir besoin dans ta classe, surtout que le but principal de ta classe est de mettre un objet Range à disposition du code appelant.
Tu as alors deux solutions. La première est de te passer de Init et de déterminer les trois variables nécessaires au calcul de la plage via des propriétés spécificiques en écriture.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 property let Header(Header as range) set mHeader = Header end property property let Lignes(Lignes as long) mLignes =Lignes end property property let Colonnes(Colonnes as integer) mColonnes = Colonnes end property
puis de mettre la surface à disposition au sein de la propriété
Code:

1 2 3 4 property get Surface() as range set Surface = range(header,header(lignes,colonnes)) end property
en gérant alors le fait que le code pourrait très bien appeler la propriété surface alors que Lignes et/ou Colonnes n'ont pas été spécifiées. La propriété surface sera toujours en lecture seule, puisque sa définition dépend d'autres propriétés de l'objet.

C'est pour cela que je propose une méthode Init
Code:

1 2 3 4 5 6 7 sub Init(Header as range, Lignes as long, Colonnes as Integer) set mHeader = Header mLignes = Lignes mColonnes = Colonnes set mSurface = range(header,header(lignes,colonnes)) end sub
Dans ce cas, les propriétés Lignes, Colonnes et Surface seront en lecture seule.

21/11/2007, 19h02
deubelte

Oui, mais Sub init, tu dois la definir dans un module et pas dans une classe
Ce n'est donc pas une propriete, c'est une methode.

Peux tu definir une methode dans une classe?
21/11/2007, 19h06
Pierre Fauconnier
Citation:

Envoyé par deubelte

Oui, mais Sub init, tu dois la definir dans un module et pas dans une classe
Ce n'est donc pas une propriete, c'est une methode.

Peux tu definir une methode dans une classe?

Si tu places le code
Code:

1 2 3 4 sub Init(...) ... ... end sub
dans une classe, Init devient une méthode de cette classe.
Tu as donc, dans un module standard
Code:

1 2 dim MonTableau as new cTableaux montableau.init(range("a1"),5,8)
Attention! Lorsque l'on travaille avec une classe, on parle de propriétés et de méthodes, mais une classe peut aussi mettre des fonctions à disposition du code appelant. Tout dépend de l'objet.

Dans un module standard, on ne parlera pas de méthode, mais de procédure et on parlera de fonction. On ne parlera jamais de propriété dans un module standard.
21/11/2007, 19h20
deubelte

OK merci
Et par exemple, pour remplir en colonne les cellules contenues dans la surface, comment ferais-tu?

Si la surface est un range, c'est en fait une collection de cellule

Peut on faire une boucle For Next ?

Citation:

Attention! Lorsque l'on travaille avec une classe, on parle de propriétés et de méthodes, mais une classe peut aussi mettre des fonctions à disposition du code appelant. Tout dépend de l'objet.

Dans un module standard, on ne parlera pas de méthode, mais de procédure et on parlera de fonction. On ne parlera jamais de propriété dans un module standard.

merci pour les precisions

Tu utilises la propriété Surface comme un objet Range

Avec la classe suivante (Attention, j'ai modifié la ligne qui définit l'objet mSurface, pour que la plage Surface soit sur le même onglet que la cellule Header)
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 Option Explicit Dim mLignes As Long Dim mColonnes As Integer Dim mHeader As Range Dim mSurface As Range Sub Init(Header As Range, Lignes As Long, Colonnes As Integer) Set mHeader = Header mLignes = Lignes mColonnes = Colonnes Set mSurface = Header.Parent.Range(Header, Header(Lignes, Colonnes)) End Sub Property Get Surface() As Range Set Surface = mSurface End Property Property Get Lignes() As Long Lignes = mLignes End Property Property Get Colonnes() As Integer Colonnes = mColonnes End Property
Tu peux utiliser le code suivant
Code:

1 2 3 4 5 6 7 8 9 10 Sub essais() Dim MaPlage As Range Dim MonObjet As New cTableaux MonObjet.Init Range("b3"), 5, 10 Set MaPlage = MonObjet.Surface MaPlage.Cells(4, 3) = "Bonjour" MaPlage.Cells(12, 0) = "Au revoir" End Sub
pour voir comment VBA travaille avec la propriété Surface

Je te conseille de travailler avec F8 (mode pas à pas) dans Essai pour suivre le déroulement du code

je m'excuse pour ma mal-comprenence, mais je n'arrive pas a comprendre a quoi sert Init.
Que je fasse:
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub exempl() Dim Tableaux1 As cTableaux Set Tableaux1 = New cTableaux Tableaux1.Colonne = 10 Tableaux1.Lignes = 12 Tableaux1.Entete = "$DG$6" Tableaux1.Title = "Letitre" Set Tableaux = Nothing End Sub
ou ca:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub exempl() Dim Tableaux1 As cTableaux Set Tableaux1 = New cTableaux Tableaux1.Colonne = 10 Tableaux1.Lignes = 12 Tableaux1.Entete = "$DG$6" Tableaux1.Title = "Letitre" Call Tableaux1.Init(Tableaux1.Entete, Tableaux1.Lignes, Tableaux1.Colonne) Set Tableaux = Nothing End Sub
Ca a exactement le meme effet. Je vois dans la fenetre locals la surface qui est bien définie.

En fait la propriete entete est definie comme suit:
Code:

1 2 3 4 5 6 7 8 Public Property Let Entete(dsss) For Each Item In Sheets("SurfVol").Cells If Item.Address = dsss Then Set Header = Item Exit For End If Next Item End Property
Ca permet de definir la premiere case d'un tableau.
Quand je fais:

Code:

Tableaux1.Entete = "$DG$6"

La surface est automatiquement definie. Cest bizarre

22/11/2007, 15h25
deubelte

On m'a dit plus haut qu'on pouvait pas faire du polymorphisme et de l'heritage en VBA.
Mais voici ce que je voudrais faire:

A partir d'un objet Myobjet1 instancie d'une classe MyClass1
je voudrais creer un sous objet Myobjet2 de l'objet Myobjet1 instancie d'une autre classe MyClass2.

Par exemple, si on a un objet MyTableau je veux creer un sous Tableau MyTableau2 de MyTableau pour pouvoir faire:

MyTableau.MyTableau2.Colonne=5.

merci
22/11/2007, 18h41
Pierre Fauconnier

Avec la classe que j'ai définie, tu ne peux pas affecter les propriétés Lignes et Colonnes, et tu dois utiliser Init. Mais si tu laisses les propriétés en lecture/écriture, la méthode Init devient inutile. Cela étant, je serais curieux de voir ton code, car avec ce que tu avais donné au départ, la propriété Surface n'est pas définie avant d'affecter la propriété Surface. Mais comme je l'ai dit plus haut, il n'est pas logique d'avoir la propriété Surface en lecture/écriture. Pour moi, cette propriété doit être en lecture seule.

En l'absence du code que tu utilises, et d'explications claires et détaillées sur ce que tu souhaites réaliser, je ne sais pas être plus précis dans mes explications.

Cela étant, utiliser une classe X comme propriété d'une classe Y n'est en rien du polymorphisme, et il est tout à fait possible de créer deux classes dont l'une serait utilisée comme propriété de l'autre.

Il est également possible de définir comme propriété d'une classe X un objet de classe X. Toutes ces constructions dépendent de ce que tu souhaites réaliser. Il te faut donc être plus précis dans tes explications et tes exemples.
Je note cependant que coder "en dur" la feuille de données dans la classe n'est pas pertinent.

En ce qui concerne la propriété Parent, elle est définie pour une série d'objets.
Ainsi, le Parent d'une cellule est l'objet Worksheet qui la contient. Le Parent d'un objet Worksheet est l'objet Workbook qui le contient...

Pour une classe personnalisée, il n'y a pas de propriété Parent par défaut. C'est à toi de créer la propriété lors de l'élaboration de ta classe.
22/11/2007, 20h19
ouskel'n'or

Hello Pierre, je viens de lire ton cours ;) Quand en tires-tu un tuto, ça vaudrait la peine. ;)
Merci à toi, j'ai mis de côté l'url.

Quant au code de deubelte... j'attends aussi :mouarf:
Bonne soirée.

Classe clTableaux

Voici les programmes
J'ai fait un objet d'objet (cf clCorps1)

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
Private x_val As Integer
Private y_val As Integer
Private titre As String
Private Header As Range
Private Mysurface As Range
Private MyCorps As Range
Private MyCorps1 As clCorps1
Private Sub Class_Initialize()
Dim uk As clCorps1
Set uk = New clCorps1
Me.Corps1 = uk
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Property Let Corps1(Val As clCorps1)
Set MyCorps1 = Val
End Property
 
Public Property Get Corps1() As clCorps1
Set Corps1 = MyCorps1
End Property
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Class_Terminate()
Header.Value = vbNullString
Call deleteName(titre)
 
Set Header = Nothing
Set MyCorps1 = Nothing
End Sub
Public Property Get Colonne()
Colonne = x_val
End Property
Public Property Let Colonne(x)
x_val = x
End Property
Public Property Get Lignes()
Lignes = y_val
End Property
Public Property Let Lignes(x)
y_val = x
End Property
Public Property Get Title()
Title = titre
End Property
Public Property Let Title(d)
titre = d
Header.Value = d
Header.Parent.Names.Add Name:=d, RefersTo:="=" & CStr(Header.Parent.Name) & "!" & CStr(Header.AddressLocal)
End Property
Public Property Get Entete()
Set Entete = Header
End Property
Public Property Let Entete(dsss)
For Each Item In ActiveSheet.Cells
    If Item.Address = dsss Then
         Set Header = Item
         Exit For
    End If
Next Item
End Property
Public Property Get Surface()
Set Surface = Mysurface
End Property
Public Property Get Corps()
Set Corps = MyCorps
End Property
Public Sub Init(Header As Range, Lignes As Long, Colonnes As Integer, Lignes1, Colonnes1)
 
Set Mysurface = Header.Parent.Range(Header, Header(Lignes, Colonnes))
Set MyCorps = Header.Parent.Range(Header.Offset(1, 1), Header(Lignes, Colonnes))
Set MyCorps1 = Range("A1")
End Sub
Public Sub EffaceTout()
Mysurface.ClearContents
End Sub
Public Sub EffaceCorps()
MyCorps.ClearContents
End Sub
Sub deleteName(arg1)
Header.Parent.Names(arg1).Delete
End Sub

Classe clCorps1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private x_val As Integer
Private y_val As Integer
Private Sub Class_Initialize()
 
End Sub
Public Property Get Colonne()
Colonne = x_val
End Property
Public Property Let Colonne(x)
x_val = x
End Property
Public Property Get Ligne()
Ligne = y_val
End Property
Public Property Let Ligne(y)
y_val = y
End Property

Programme d utilisation
Je ne sais pas si tout marche

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub exempl()
 Dim Tableaux1 As cTableaux
Set Tableaux1 = New cTableaux
Tableaux1.Colonne = 10
Tableaux1.Lignes = 12
Tableaux1.Entete = "$Z$3"
Tableaux1.Title = "Letitre"
 
For j = 1 To Tableaux1.Colonne - 1
     For i = 1 To Tableaux1.Lignes - 1
         Tableaux1.Corps.Cells(i, j) = i * j
     Next i
Next j
Tableaux1.EffaceCorps
Tableaux1.EffaceTout
 
 Tableaux1.Corps1.Colonne = 1
Tableaux1.Corps1.Ligne = 9
 
 Call Tableaux1.Init(Tableaux1.Entete, Tableaux1.Lignes, Tableaux1.Colonne, Tableaux1.Corps1.Ligne, Tableaux1.Corps1.Colonne)
Set Tableaux1 = Nothing
End Sub