Création d'objets selon une "value"

Bonjour à tous !

Voilà mon problème : j'ai créé un objet dans un module de classe avec les variables suivantes.

Code:

---

1 2 3 4 5

Public Nom As String Public Repeat As Boolean Public Nb_repeat As Integer Public Delete As Boolean Public Nb_interfaces As Integer

---

Je veux donc créer cet objet en plusieurs exemplaires selon une valeur rentrée dans ma feuille excel tel que :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Test()   Dim i As Integer Dim nb_modules As Integer   i = 0 nb_modules = 0   nb_modules = Range("G7:H8").Value 'cellules fusionnées   For i = 1 To nb_modules   MsgBox "Module n° " & i Dim Module & i As New Module   Next i   End Sub

---

Je ne pense que ce ne sont que des erreurs de syntaxe, enfin j'espère... En gros, il faudrait, par exemple si la valeur de ma case est 5, créer 5 objets "Module".

Merci de votre aide !

bonjour,

le mieux est de créer une collection ou un tableau d'objet

Salut DeaD78

Citation:

---

j'ai créé un objet dans un module de classe avec les variables suivantes.

---

Le problème vient peut-être de là essaies dans un module général

Code:

---

1 2	[i = 0 nb_modules = 0

---

sert à rien puisque tu les initialises jyste après
Remplace

Code:

---

nb_modules = Range("G7:H8").Value

---

Par

Code:

---

nb_modules = Range("G7").MergeArea

---

Mais si tu veux de l'aide explique en quoi est le pboblème : tu as la 1re boîte de messages ou non ?

Et explique le finalité, le but à atteindre (créer des modules me semble bizarre, surtout par macro), on aura peut-être une autre solution à te proposer.
A+

Merci de vos réponses !

Alors, je pense, en effet, qu'il serait plus judicieux de passer par les collections mais ce n'est pas trop ma tasse de thé !

Le problème du code précédent est une incompatibilité de types à la ligne :

Code:

---

For i = 1 To nb_modules

---

Je ne crée donc même pas de boîte de dialogue.

En ce qui concerne ce que je cherche à faire, j'ai déjà posté un topic dessus ici : http://www.developpez.net/forums/sho...d.php?t=560853. Je vais donc devoir passer par des objets, sinon je ne vois aps comment.

Ce que je cherche à faire pour le moment c'est des créer un nombre d'objets en un nombre d'exemplaire égal à la valeur d'une case de ma feuille excel.

En gros, si j'ai "nb" comme réponse dans ma case, je veux faire quelque chose
de la forme :

For i = 1 to nb, Dim Module"i" as new Module.

En gros je veux créer "nb"objets Module d'un coup qui aient pour nom Module1, Module2, ..., jusqu'à Modulenb.

Merci pour le coup de main :P

En attendant, je vais me renseigner sur les collections.

Je viens de jeter un oeil aux collections qui répondent assez bien à ce que je souhaite et assez simples d'utilisation.

Cependant, j'ai quand même le problème suivant : je veux faire un compteur allant de i=1 jusqu'à nb_modules sachant que nb_modules correspond à Range("G7:H8").Value. Celà me provoque uen incompatibilité de type.

Comment faire? :roll:

Edit : j'ai ça pour l'instant dans mon module de test et ça ne fonctionne pas. Un module de classe appelé Module a aussi été créé avec seulement quelques variables.

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim colModule As New Collection Dim i As Integer, nb_modules As Integer   nb_modules = Range("G7:H8").Value   For i = 1 To nb_modules   colModule.Add (New Module)   Next i

---

Problème réglé pour la boucle par

Code:

---

nb_modules = Range("G7").Value

---

Fallait pas aller chercher trop loin.

Par contre, les colelctions c'est toujours pas ça..

Salut
Tu ne maîtrise pas bien le VBA "basique" et tu veux créer du code à partir du code.... C'est une bonne solution pour passer du temps sur Excel, mais désolé, à ce niveau, je ne me sens pas compétant (en un seul mot)
A+

Bonjour tlm,

et si tu nous disais ce que tu comptes faire avec ces "Modules" ?

En gros on a la série de questions suivantes :

Combien de modules y a-t-il?

En fonction de la réponse à cette question, il faut répéter autant de fois les suivantes (en gros, une fois pour chaque module) :

Nom du module?
Est-il répétable?
Est-il supprimable?
Combien d'interfaces y a-t-il?

En fonction de la réponse au nombre d'interfaces, il faut répéter autant de fois les questions suivantes (et celà pour chaque module) :

Nom de l'interface?
Nombre de surfaces?

De même, en fonction du nombre de surfaces, il faut répéter autant de fois (pour chaque module et chaque interface donc) les questions suivantes :

Nom de la surface?
...

Voilà, en gros le cheminement du questionnaire.

Au final, si on a 2 Modules ça va donner :

Combien de modules y a-t-il? ==> 2

Nom du 1er module?
Est-il répétable?
Est-il supprimable?
Combien d'interfaces y a-t-il? 2

Nom de l'interface?
Nombre de surfaces? 2

Nom de la 1ère surface?
Nom de la 2ème?

Nom de l'interface?
Nombre de surfaces? 1

Nom de surface?

_________________________________________________________________

Nom du 2ème module?
Est-il répétable?
Est-il supprimable?
Combien d'interfaces y a-t-il? 1

Nom de l'interface?
Nombre de surfaces? 1

Nom de surface?


Voilà donc ce que ça doit donner. Le questionnaire doit donc être dynamique en fonction des réponses : il est donc évident qu'il faut que j'automatise ça en VBA mais je ne sais pas comment faire.

Bon...ne sachant pas très bien où tout cela doit mener, ci-dessous un code qui pourra peut-être t'inspirer, à tester sur une feuille vierge

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

Sub test() Dim NbMod As Byte, NbInterf As Byte, NbSurf As Byte Dim NomMod As String, NomInterf As String Dim i As Byte, j As Byte, k As Byte, x As Integer   Range("A1:D1").ColumnWidth = 20 Columns("A:D").HorizontalAlignment = xlLeft   x = 1 NbMod = InputBox("Combien de modules y a-t-il?", "Nombre de modules")   For i = 1 To NbMod Cells(x, 1) = "Nom Module " & i & " :" NomMod = InputBox("Nom du module " & i & " ?") Cells(x, 2) = NomMod Cells(x + 1, 1) = "Répétable :" Cells(x + 1, 2) = InputBox("Le module " & NomMod & " est-il répétable ?") Cells(x + 2, 1) = "Supprimable :" Cells(x + 2, 2) = InputBox("Le module " & NomMod & " est-il supprimable ?") Cells(x + 3, 1) = "Nombre d'interfaces :" NbInterf = InputBox("Combien d'interface y a-t-il dans le module " & NomMod & " ?") Cells(x + 3, 2) = NbInterf x = x + 4   For j = 1 To NbInterf Cells(x, 2) = "Nom Interface " & i & "." & j & " :" NomInterf = InputBox("Nom de l'interface " & i & "." & j & " ?") Cells(x, 3) = NomInterf Cells(x + 1, 2) = "Nombre de surfaces :" NbSurf = InputBox("Combien de surfaces y a-t-il dans l'interface " & NomInterf & " ?") Cells(x + 1, 3) = NbSurf x = x + 2   For k = 1 To NbSurf Cells(x, 3) = "Nom Surface " & i & "." & j & "." & k & " :" Cells(x, 4) = InputBox("Nom de la surface " & k & " de l'interface " & NomInterf & " ?") x = x + 1 Next Next x = x + 1 Next   End Sub

---

Alors là, merci BEAUCOUP fring, c'est exactement de ça que j'avais besoin. Je dois bien sûr adapter mais c'est carrément ça le principe !

Encore merci :king: