Voici ce qu'il ce passe quand j'essaie de compiler:
Il y a une erreur impossible à régler qui m'affiche
"Run-Time Error 91

Object variable or With block variable not set"
Quand j'essaie, dans une forme, de faire ce genre de manip:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Dim Affichage As String
Dim Prout As Single
    For t = 0 To 19
        For u = 0 To 19
        If u = 0 Then Affichage = ""
        Prout = Perceptron.GetPoids(Int(u), Int(t))
        Affichage = Affichage & "--" & Prout
        Next
    PrintCons Affichage
    Next
End If
L'objet en question (module de classe de nom TPerceptron) est le suivant:

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
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
44
45
46
47
48
49
50
51
52
53
54
'Cette classe est en fait une description d'un Perceptron
Dim Poids(19, 19) As Single
Dim ActPoids(19, 19) As Boolean
 
Public Seuil As Single
 
 
 
Public Function CalcWeight() As Single
'Ici cette fonction ce chargera de faire l'addition des poids (uniquement ceux des capteurs acitvés
'Une possible amélioration se fera pour les poids inactivé ( les poids les plus importans, si inactivés, seront en fait des inhibiteurs
 
End Function
 
Public Function CheckSeuil() As Boolean
'Cette fonction, à partir du calcul des poids, va renvoyer une réponse positive/négative sur la
End Function
Public Sub CorrectWeights(IsCorrect As Boolean)
'SI la réponse proposée par le neurone est bonne (renforcement des positions)
If IsCorrect = True Then
 
For i = 0 To 19
For e = 0 To 19
If ActPixel(i, e) = True And ActPoids(i, e) = True Then
'modification du poids positive
End If
If ActPixel(i, e) = False And ActPoids(i, e) = False Then
'modification du poids négative
End If
Next
Next
End If
 
'Si la réponse proposée par le neurone est fausse (correction!)
If IsCorrect = False Then
For i = 0 To 19
For e = 0 To 19
Next
Next
End If
 
End Sub
 
'/////////////////////////////////////////////
 
Public Property Let SetPoids(ByVal Value As Integer, X As Integer, Y As Integer)
'Affectation d'une nouvelle valeur
    Poids(X, Y) = Value
End Property
 
Public Property Get GetPoids(X, Y) As Single
'Lecture de la valeur
    GetPoids = Poids(X, Y)
End Property
Je n'arrive pas à trouver le problème!
Expliquer moi ce que je dois modifier, et n'hésitez pas à demander des précisions sur mon code, j'en donnerai le plus possible.

Merci d'avance