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 !