Bonjour à tous,
J ai une petite macro qui prend des données dans une feuille excel et qui crée des objets
contenant ses données, seulement le problème c est que je fais une boucle qui prend chaque ligne du tableau
et affecte les valeurs à un objet que je met dans un dictionnaire. Seulement la valeur de l objet change à chaque fois alors que je voudrais qu'il crée un objet différent à chaque fois et le stock.
En gros je voudrais créer des objets du type Objet(i).
Voici le code :

Sub TestCreeFond()

Dim j As Byte
Dim Fund As New CFond 'Cree un objet de type CFond
Dim ListeFonds As Scripting.Dictionary 'Dictionnaire dans lequel je met mes objets
Set ListeFonds = New Scripting.Dictionary


For j = 2 To 17
'''''''''''''''''''''''''''''''''''''''''''''''''
'Affectation des elements de la feuille aux attributs de mon objet
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
With Fund
.ISIN = ThisWorkbook.Sheets("Feuil1").Range("A" & j).Value
.Libelle = ThisWorkbook.Sheets("Feuil1").Range("B" & j).Value
.Qtite = ThisWorkbook.Sheets("Feuil1").Range("C" & j).Value
.Cours = ThisWorkbook.Sheets("Feuil1").Range("D" & j).Value
.ValeurBoursiere = ThisWorkbook.Sheets("Feuil1").Range("E" & j).Value
.Classification = ThisWorkbook.Sheets("Feuil1").Range("F" & j).Value
End With
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Ajout du fond au dictionnaire
''''''''''''''''''''''''''''''''''''''''''''''''''''''''

ListeFonds.Add j, Fund

Next j

End Sub

Bref si je pouvais avoir un objet Fund(j) j'aurais ainsi 16 objets différents et non le même. Voilà si vous pouviez m aider merci.

Salut pense au balise code sa aide lors de la lecture de ton code.

Merci