Discussion :

[Pierre Fauconnier]

Chacun code comme il l'entend. Apporter de la complexité pour le plaisir ne fait pas partie de ma façon d'appréhender la programmation. Déporter la création des capteurs et étalonnages dans des fonctions spécifiques, C'EST du Design Pattern Factory à la sauce VBA.

Dans MES projets, j'utilise un Factory. Mais sur le forum, je ne vois pas l'intérêt d'apporter cette notion dans le problème qui nous occupe ici, pas plus que les collections fortement typées ou les propriétés Friend. 30 ans que je code, et je n'ai jamais eu de problèmes à utiliser des collections non typées ou à ne pas utiliser Friend.

concernant FRIEND, je réitère mes propos. Pour des objets qui sont utilisés dans le projet qui les contient, FRIEND ne sert strictement à rien. Les classes sont privées par défaut et donc utilisables uniquement au sein du même projet. Et ne pas mettre Friend n'empêche absolument pas de réutiliser la classe. Je ne vois vraiment pas ce que ta remarque vient faire ici. Une propriété Friend d'une classe, ça veut simplement dire qu'un autre projet je pourra pas l'utiliser. On peut probablement compter sur les doigts d'une main les projets VBA qui utilisent des classes provenant d'autres projets.

A quoi cela sert-il de venir perdre le lecteur avec des concepts de haut vol lorsque déjà, il ne maîtrise pas les bases de la programmation Objet. 🙄

[deedolith]

Je n'impose rien, je présente une solution, permet moi de la défendre.

Ensuite, notre but n'est-il pas aussi d'offrir une approche pédagogique ?

Ne nous voilons pas la face, la qualité des codes sources qui traînent sur internet sont majoritairement médiocre, faute à l'illusion de facilité que prodiguent les cours (Cours correct en VBA, je n'en ai jamais vu).
Bidouiller, c'est facile.
Programmer, c'est difficile.

[Pierre Fauconnier]

Le code que j'ai proposé est loin du bidouillage, et, formateur sur Excel et VBA depuis plus de 25 ans, ma pédagogie, c'est d'apporter les concepts lorsque c'est nécessaire de les apporter. Perdre une personne qui demande à manipuler des classes qui s'emboitent avec des collections dans des concepts de factory, de propriété Friend (totalement inutile ici) et de collections typées, cela n'a strictement rien de pédagogique à mes yeux.

[deedolith]

Je me permet de citer ta signature:

Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...

[DomDeGre]

Bonsoir à tous,

Merci à tous pour vos recherches et propositions.
J'ai passé toute la journée sur mon PC et je n'avais pas vu vos messages que je viens de découvrir. Je vais bien les lire car je pense qu'il y a encore plein de choses que je vais découvrir.
C'est vraiment sympa de voir le temps que vous avez passé à me chercher une solution.
Je suis arrivé à un bout de code, mais il est très perfectible.

Main

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
30
31
32
33
34
35
36
37
38
39
40
41
 
Option Explicit
Dim Capteurs() As Collection
Dim Coef() As Variant
Dim Info() As Variant
Dim a As String
Dim i As Integer
Dim NbCapteurs As Long
Dim NbLignes As Long
 
Sub Test()
 
    Sheets("BDD").Select
    NbLignes = 11 'vite fait pour les tests !!!
    NbCapteurs = 0
    ReDim Coef(1 To NbLignes - 1)
    ReDim Capteurs(1 To NbLignes - 1)
    ReDim Info(1 To NbLignes - 1)
 
    For i = 1 To NbLignes - 1
        If Cells(i + 1, 1) <> Cells(i, 1) Then
            NbCapteurs = NbCapteurs + 1
            Set Capteurs(NbCapteurs) = New Collection
 
            Set Info(NbCapteurs) = New ClsInfos
            Info(NbCapteurs).ID = Cells(i + 1, 1)
            Info(NbCapteurs).Marque = Cells(i + 1, 2)
            Info(NbCapteurs).Modele = Cells(i + 1, 3)
            Capteurs(NbCapteurs).Add Info(NbCapteurs)
        End If
 
        Set Coef(i) = New ClsCoefficient
        Coef(i).DateEtal = Cells(i, 4)
        Coef(i).Alpha = Cells(i, 5)
        Coef(i).Beta = Cells(i, 6)
        Coef(i).Linearite = Cells(i, 7)
        Capteurs(NbCapteurs).Add Coef(i)
 
    Next i
 
End Sub

Classe ClsCoefficient

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
30
31
32
33
34
35
36
37
38
 
Option Explicit
Private mDateEtal As String
Private mAlpha As String
Private mBeta As String
Private mLinearite As String
 
Public Property Let DateEtal(Value As String)
mDateEtal = Value
End Property
 
Public Property Get DateEtal() As String
DateEtal = mDateEtal
End Property
 
Public Property Let Alpha(Value As String)
mAlpha = Value
End Property
 
Public Property Get Alpha() As String
Alpha = mAlpha
End Property
 
Public Property Let Beta(Value As String)
mBeta = Value
End Property
 
Public Property Get Beta() As String
Beta = mBeta
End Property
 
Public Property Let Linearite(Value As String)
mLinearite = Value
End Property
 
Public Property Get Linearite() As String
Linearite = mLinearite
End Property

Classe ClsInfos

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
 
Option Explicit
Private mID As String
Private mMarque As String
Private mModele As String
 
Public Property Let ID(Value As String)
mID = Value
End Property
 
Public Property Get ID() As String
ID = mID
End Property
 
Public Property Let Marque(Value As String)
mMarque = Value
End Property
 
Public Property Get Marque() As String
Marque = mMarque
End Property
 
Public Property Let Modele(Value As String)
mModele = Value
End Property
 
Public Property Get Modele() As String
Modele = mModele
End Property

J'ai utilisé des collections de tableaux car je n'ai trouvé que cela pour aboutir à la structure que je désire.
Dans tous les cas, l'item(1) regroupera les informations du capteur. Les items suivants concerneront chacun un étalonnage différent.
La structure étant toujours identique, j'espère pouvoir faire facilement tous les calculs et tris dont j'aurai besoin.

Merci encore pour votre aide.
Dominique