Discussion :

[DeaD78]

Bonjour à tous !

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

Code :

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

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 :

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
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 !

[mayekeul]

bonjour,

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

[Gorfael]

Salut DeaD78

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 :

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

1
2
[i = 0
nb_modules = 0

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

Code :

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

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

Par

Code :

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

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+

[DeaD78]

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 :

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

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

En attendant, je vais me renseigner sur les collections.

[DeaD78]

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?

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 :

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

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

[DeaD78]

Problème réglé pour la boucle par

Code :

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

nb_modules = Range("G7").Value

Fallait pas aller chercher trop loin.

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

[Gorfael]

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+

[fring]

Bonjour tlm,

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