Discussion :

[patricktoulon]

Bonjour a tous
c'est peut être une chose tout simple mais qui me pose problème depuis un moment déjà a savoir la porté d'une variable dans une/des instances d'une classe controls

en effet jusqu'à présent j'utilisais le tag et autre astuces pour mémoriser une donnée et le ressortir dans les évènement control de la classe

pour faire simple aujourd'hui on va instancier une classe a partir du userform pour y appeler la fonction1 qui va classer une listbox je pourrais donc gérer son évènement

"mousedown" dans la classe .jusque la rien de bien compliqué

et dans la fonction1 de la classe on va instancier la classe control

arrêtez moi si je me trompe il y a donc 2 classe1 instanciées

mon problème c'est que je voudrais qu'une variable "colwidth" prenne une valeur et que cette valeur au mousedown de la listbox dans la classe je puisse ressortir cette variable pour

l'exemple aujourd'hui et pour une facilité de solution on ressortira cette variable dans un msgbox

code du userform

on constate que dans le initialyse de la classe si j'alimente la variable elle est utilisable dans l'evenement mousedown de la listebox

problème je suis obligé de classer la listbox avant quoi que se soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim cl As New Classe1
Private Sub UserForm_Activate()
    Set plage = Sheets(1).Range("a1:j100")
    colonnewidths = Array(60, 80, 60, 60, 90, 80, 75, 68, 90, 60)
    With ListBox1
        .List = plage.Value
        .ColumnCount = plage.Columns.Count
        .ColumnWidths = Join(colonnewidths, ";")
    End With
    cl.fonction1 ListBox1
End Sub

code de la classe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public WthEvents liste1 As MSForms.listbox
Dim CLS As New Classe1
dim colwidth
Private Sub Class_Initialize()
'colwidth = "blablablabla"
End Sub
Function fonction1(listbox)
colwidth = listbox.ColumnWidths
Set CLS.liste1 = listbox
End Function
Private Sub liste1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 Then MsgBox colwidth
End Sub

Attention il n'est surtout pas question ici de mettre cette variable en public dans un module standard

si quelqu'un a une idée a proposer je veux bien

[unparia]

Bonjour Patrick
Encore sur cette "listbox éditable dynamiquement", hein ...
Je vais finir par déposer une contribution sur ce sujet futile et on n'en parlera plus.
Pour te répondre (et de manière générale) : on évite de toutes manières autant que faire se peut de jouer avec la portée des variables. C'est gourmand , alors qu'il suffit souvent de passer ces mêmes variables en paramètres ***** de la procédure qui doit les utiliser.

***** Ah oui ! Je sais ... tu "mesures", toi, la qualité d'un code au nombre le plus réduit possible des octets qu'il occupe. Je pose sur ces choses un tout autre regard et privilégie l'efficacité, la moindre occupation de la mémoire (proportionnelle à la portée des variables) et la rapidité d'exécution .

[patricktoulon]

Bonjour jacques

ca répond pas a ma question

et c'est non seulement pour ma liste box (qui fonctionne déjà très bien) mais pour d'autre projets aussi


même si c'est (gourmand, que tu utiliserais un autre procédé, etc.) je voudrais bien savoir comment garder cette variable dans toute ma classe

j'ai bien essayé property (let/get) mais c'est pareil si c'est pas alimenté dans le initialise ca la garde pas

d'autant plus que si tu avais lu ma demande correctement (pas en diagonale) tu ne m'aurais pas dis cela

Pour te répondre (et de manière générale) : on évite de toutes manières autant que faire se peut de jouer avec la portée des variables. C'est gourmand , alors qu'il suffit souvent de passer ces mêmes variables en paramètres ***** de la procédure qui doit les utiliser

je vois pas comment on pourrait envoyé un paramètre a une private sub évènement control sub classé

[Jean-Philippe André]

Salut,

j'ai eu beau relire 4 fois ton post, je ne comprends rien :
-de ce que tu expliques
-de ce qui te bloques
-de ce que tu attends de nous.

[patricktoulon]

re Bonjour jean Phillipe André

ce que j'explique c'est simple

dans le userform j'instancie la classe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim cl as new classe 1

'dans le activate de l'userform j'appelle la fonction1 de la classe avec pour paramètre la listbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cl.fonction1(listbox1)

dans la classe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Public WithEvents liste2 As MSForms.listbox
dim machin as string
dim cls as new classe1

dans la fonction1 de la classe1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
function fonction1(listbox)
set cls.liste2=listbox
machin =listbox.columnwidths 
end function

et dans l'évènement liste2 mousedown dans la classe je veux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox machin

[Invité]

Bonjour Patrick,
chaque propriétés et méthodes , quelle soient public ou privées, appartiennent exclusivement à l'instance de la classe.

il faut comparer ça à un bloc de papier calque ou chaque calque est univoque. pour modifier une autre instance il faut y avoir accès!

le plus simple, facile à dire, est de définir une instance mère qui engrangera toutes les information utile aux filles.

Code revient à rendre public les info! :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set clsM = ClsMaitre
clsM.colwidth = listbox.ColumnWidths

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Public WithEvents liste1 As MSForms.listbox
Public colwidth
Private clsM As Classe1
Function fonction1(listbox, ClsMaitre As Classe1)
Set clsM = ClsMaitre
clsM.colwidth = listbox.ColumnWidths
Set CLS.liste1 = listbox
End Function
Private Sub liste1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 Then MsgBox clsM.colwidth
End Sub

[patricktoulon]

bonjour robert
ton premier code tu le met ou

[Invité]

Dans ta fonction du module de classe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Function fonction1(listbox, ClsMaitre As Classe1)
Set clsM = ClsMaitre
clsM.colwidth = listbox.ColumnWidths
Set CLS.liste1 = listbox
End Function

[unparia]

Re bonjour Patrick

Je t'invite à lire le didacticiel fort bien fait que Pierre Fauconnier a pris la peine de déposer en ce qui concerne les classes personnalisées.
http://fauconnier.developpez.com/art...neral/classes/
Je l'ai personnellement lu et relu. Il apporte ta solution, notamment en ce qui concerne l'aspect analogue entre une classe personnalisée et une variable de type personnalisé.
Fais comme moi -->> prends le temps de lire et analyser tout ce que Pierre Fauconnier y expose.

[patricktoulon]

bonjour jacques

je l'ai même en pdf ce tuto depuis longtemps

les variables typées/classe je sais m'en servir

il y a une seule chose qui manque

c'est le fait que j'utilise une fonction dans!!!! la classe pour instancier une autre!!!! instance de la classe

ce qui a pour effet dans les sub classe de perdre le property let/get ou même une simple variable dimée c'est évident

dans les démo a moins que j'ai sauté ce chapitre l'utilisation des object de la classe est en dehors du module classe

je vais tester la proposition de robert

[patricktoulon]

@Robert

non ca ne fonctionne pas

pour rappel
code userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim cl As New Classe1
 
Private Sub UserForm_Activate()
    Set plage = Sheets(1).Range("a1:j100")
    colonnewidths = Array(60, 80, 60, 60, 90, 80, 75, 68, 90, 60)
    With ListBox1
        .List = plage.Value
        .ColumnCount = plage.Columns.Count
        .ColumnWidths = Join(colonnewidths, ";")
    End With
    cl.fonction1 ListBox1, cl
End Sub

code classe

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Public WithEvents liste1 As MSForms.listbox
Dim CLS(2) As New Classe1
public ncolwidth as string
 
Property Get colwidth() As String
    ' Propriété en lecture
    colwidth = ncolwidth
End Property
 
Property Let colwidth(colwidth As String)
    ' Propriété en écriture
    ncolwidth = colwidth
End Property
 
Private Sub Class_Initialize()
'colwidth = "blablablabla"
End Sub
 
 
Function fonction1(listbox, ClsMaitre)
Dim clsM As Classe1
Set clsM = ClsMaitre
clsM.colwidth = listbox.ColumnWidths
Set CLS(1).liste1 = listbox
CLS(1).colwidth = listbox.ColumnWidths
End Function
Private Sub liste1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 Then MsgBox colwidth
End Sub

j'ai toujours un message vide

[Jean-Philippe André]

Salut,

a defaut de pouvoir faire avancer le schmiblick, je crois pouvoir dire que cette ligne est foireuse :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cl.fonction1 ListBox1, cl

se passer soi meme en parametre :/

[patricktoulon]

re il m'a sembler aussi
mais comme il la mis dans sa réponse j'ai essayé ca coute rien

mais c'est bon ca fonctionne
en fait il faut alimenter le colwidth de chaque instances

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
16
17
18
19
20
21
22
23
Option Explicit
Public WithEvents liste1 As MSForms.listbox
Dim CLS(2) As New Classe1
Private ncolwidth As String
Private clsM As Classe1
 
Property Get colwidth() As String
    colwidth = ncolwidth ' Propriété en lecture
End Property
Property Let colwidth(colwidth As String)
     ncolwidth = colwidth ' Propriété en écriture
End Property
 
Private Sub Class_Initialize()
'colwidth = "blablablabla"
End Sub
Function fonction1(listbox)
Set CLS(1).liste1 = listbox
CLS(1).colwidth = listbox.ColumnWidths
End Function
Private Sub liste1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 Then MsgBox colwidth
End Sub

Merci a tous

[Invité]

En fait il courant qu'une instance se passe elle même en paramètres!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
set ClsFille = new Classe1
Set ClsFille.Parent = Me

Il est ainsi possible de naviguer dans arborescence!

[patricktoulon]

bien vu robert c'est une question que je me posais depuis un moment

juste pour finir y a t il un moyen du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for each class in cls.instances

histoire de pouvoir faire des mise ajour globales de toutes les instances dynamiquement

[Invité]

Si tu instancie via une collection oui en quelque sorte!

Mais là on as une arborescence comme les répertoires de Windows!

Tu auras accès aux instances immédiatement fille. Implémentes une méthode qui parcours de filles en filles!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
public function Scan()
for i = 0 to Instances.count -1
          Instances(i).scan
Next
End function

Mais tu peux appeler la fonction fille en vérifiant le typename(ClseFille) <>"Nothing"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
public instances as new collection
For i = 1 to 10
Set cls= new class1
Set Cls.parent = me
instances.add cls
Set cls= nothing
Next
for each class in instances

[Invité]

Bonjour,
En conclusion pour la compréhension.
Un module de classe est un modèle de variable objet que je qualifierai d’intelligent !
Une instance est une photocopie du code de ce module de classe, compilé via son constructeur NEW et chargé en mémoire. Je peux donc manipuler cette instance (Objet fini).

Il ne faut pas confondre instance et module de classe, même si apparemment [Touche F8] c’est la même chose ! En fait le compilateur passe plusieurs fois dans l’éditeur du module de classe mais en renseignant ses propriétés avec celles de l’instance en cours (Me).
Les propriétés et méthodes sont univoques pour chaque instance .elles sont encapsulé dans l’instance et seule les propriétés et méthodes public sont accessibles via une déclinaison de la hiérarchie de l’instance ! Me.Parent.Parent.Parent !
Les modules de classe sont déroutants pour un développeur habitué au langage procédural !

Il faut désapprendre ce que nous avons appris et voir les module de classe comme un chaine de commandement où chaque acteur sais faire le travail qu’il lui est confié sans pour autant que le chef de projet ne puisse avoir accès à son logiciel !
Une application architecturée autour de module de classe est comme une maison fabriquée en Lego ! Je choisi tel ou tel brique en fonction de ses caractéristique sens me soucier de comment elle a été fabriqué même si pour le coup c’est moi qui la fabrique ! Après tout on le fait tous les jours

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
16
17
18
19
Debug.Print ActiveCell.Parent.Name
Debug.Print ActiveCell.Parent.Parent.Name
Debug.Print ActiveCell.Parent.Parent.Parent.Name
 
Private Sub Workbook_Open()
Debug.Print Me.Name
End Sub
 
 
Private Sub Worksheet_Deactivate()
Debug.Print Me.Name
Debug.Print Me.Parent.Name
End Sub
 
 
 
Private Sub UserForm_Initialize()
Debug.Print Me.Name
End Sub

il faut comprendre WorkBooks est une collection

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
WorkBooks.add
MyCollection.Add

et ne pas perdre de vue que WorkBook est un classe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim Xl as new Excel.application 'Classe

Cordialement

[patricktoulon]

re
Merci robert pour l'exemple de la collection

[Invité]

Bonjour Patrick,

Je viens de penser que faire une boucle pour modifier les listes fille n'était pas forcement la bonne solution vue que l'évènement peut tout aussi bien être intercepté par la classe fille!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub liste1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 Then MsgBox colwidth
End Sub
Private Sub liste1_parent_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 Then MsgBox colwidth
End Sub

C'était juste histoire que tu passe définitivement du coté obscure de la force!

[patricktoulon]

Bonjour Robert
je l'avais jamais tenter comme ca bien vu je me passe de variable et j'ai les parent rien en classant les filles

bien vu