Discussion :

[William_puge]

Bonjour,

Je suis en train de reprendre un code ou toutes les variables sont définies de la manière suivante dans Feuil1:

Code :

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

1
2
3
4
5
 
 Option Explicit
Public MaVariable1 As Integer
Public MaVariable2 As Integer
...

Et sont utilisée de la manière suivantes dans les UserForm:

Code :

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

1
2
 
Feuil1.MaVariable1 = ...

Afin de rendre le code plus compréhensible j'aimerai faire des structure.

Pour cela, j'ai créé une structure dans un Module:

Code :

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

1
2
3
4
5
 
Public Type MonType
    MaVariable1 As Integer
    MaVariable2 As Integer
End Type

Et je l'utilise de la manière suivante dans les UserForm:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Option Explicit
Dim MesVariables As MonType
 
Private Sub ComboBox1_Change()
 
Feuil1.MesVariables .MaVariable1 = ComboBox1.ListIndex
MesVariables .MaVariable2 = ComboBox1.ListIndex
 
End Sub

Lors de la compilation, la ligne 7: "Feuil1.MesVariables .MaVariable1 = ComboBox1.ListIndex" me fait une erreur de compilation: Membre de méthode ou de données introuvable.
Alors que la 2ème ligne fonctionne correctement.

J'aimerai comprendre pour quel raison avec la structure, je n'ai plus besoin d'utilisé le "Feuil1.---". Est-ce normal oou ai-je fait un erreur dans mon code?

Il faut savoir que j'utilise ces variables dans plusieur UserForm, j'ai donc besoin que la valeur ne se réinitialise pas entre les UserForm. Il me semble que de déclaré mes variable en "Public" doit suffir mais dois-je aussi passer par le "Feuil1.--"?

Merci d'avance pour vos réponses

[Jean-Philippe André]

Salut,

je te recommande de passer par les modules de classes :
https://fauconnier.developpez.com/ar...neral/classes/

[William_puge]

Merci pour ta réponse,

Je suis donc en train d'essayer de créer une classe selon le tuto que tu m'as conseiller.(Je t'avoue que pour le moment, j'ai vraiment l'impression d'utiliser de trop gros moyen pour mes besoins. Mais, je me dis que si le code se développe, un jour ou l'autre, j'en aurais besoin).

Voici donc ma 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
 
Private mFournisseur As Integer
Private mCustomer As Integer
 
Property Get Fournisseur() As Integer
    Fournisseur = mFournisseur
End Property
 
Property Let Fournisseur(Fournisseur As Integer)
    mFournisseur = Fournisseur
End Property
 
Property Get Client() As Integer
    Client = mClient
End Property
 
Property Let Client(Client As Integer)
        mClient = Client
End Property

Et mon UserForm:

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
 
Option Explicit
 
Dim ArrosagePerif As cArrosage
 
Private Sub ComboBox1_Change()
 
    ArrosagePerif.Fournisseur = ComboBox1.ListIndex
 
End Sub
 
Private Sub ComboBox2_Change()
 
    ArrosagePerif.Client = ComboBox2.ListIndex
 
End Sub
 
Private Sub UserForm_Initialize()
 
 
    With ArrosagePerif
        .Fournisseur = 0
        .Client = 0
  End With
 
End Sub

Se code me génère un erreur '91' : Variable objet ou variable de bloc With non définie.

Après quelque recherche sur internet, j'ai trouvé les éventuelles causes de cette erreur:

1/ Une variable a été déclarée sans spécification d’un type. Si une variable est déclarée sans spécification d’un type, la valeur par défaut pour le type Object.

2/ Vous tentez de référencer un objet qui a été défini sur Nothing

3/Vous tentez d’accéder à un élément d’une variable de tableau n’a pas été correctement déclaré.

4/ Vous tentez d’accéder au code dans un With...End With bloquer avant le bloc a été initialisé. A With...End With doit être initialisé en exécutant le With point d’entrée de déclaration.


De mon point de vu:

1/ il me semble que la declaration est faite correctement

2/ l'erreur se passe au moment ou j'essaye d'initialiser la valeur (donc avant ça c'est normal que les variables sont égale a nothing)

3/ je n'ai pas de tableau

4/ il me semble que le with end est correct


Concernant la ligne "Dim ArrosagePerif As cArrosage", J'ai essayé de la mettre en dehors d'une méthode (comme dans l'example) et dans UserForm_Initialize. Il n'y a aucune difference de comportement.

[Jean-Philippe André]

Salut,
c'est un très bon début, bravo

Ta déclaration est bonne, mais il te manque la ligne suivante avant ton bloc with

Code :

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

Set ArrosagePerif = new cArrosage

[William_puge]

Alors, effectivement ça fonctionne beaucoup mieux.

Donc cela n'a pas répondu à ma question de base concernant la création et le fonctionnement des Types, mais avec cette solution, je n'ai plus besoin de Type donc je considère que ce topic est résolu

Merci beaucoup.