Déclaration d'un Structure (Type) et utilisation

Bonjour,

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

Code:

---

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:

---

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:

---

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:

---

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

Salut,

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

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:

---

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:

---

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.

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:

---

Set ArrosagePerif = new cArrosage

---

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.