bonsoir

j'ai créé un jeu de sudoku
j'utilise une "cellule" comme objet de base.
voici quelques variables de l'objet
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
  Private mCandidats(1 To 9) As tyCandidatCellule ' dans chaque cellule il y a 9 candidats possible _
                                                    si le Candidats est impossible "indCand" = 0 _
                                                    si le Candidats est possible "indCand" = au Candidats de 1 à 9
    Private mNbreCandidat As Integer ' nombre de Candidats possible dans la cellule donc au départ s'il n'y a pas de valeur il y a 9 candidats
    Private mLigne As Integer ' numéro de la ligne dans le sudoku
    Private mColonne As Integer
    Private mNuméroCarré As Integer 'chaque cellule appartient à une ligne une colonne et aussi un carré de 9 cellules
    Private mValeur As Integer ' valeur de la cellule soit attribué au départ soit résultat des recherches au départ si pas de valeur attribuée c'est égal à 0
voici quelques propriétées:
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
 
Property Let ligne(Lig As Integer)
    mLigne = Lig
End Property
Property Get ligne() As Integer
    ligne = mLigne
End Property
Property Let Colonne(Col As Integer)
    mColonne = Col
End Property
Property Get Colonne() As Integer
    Colonne = mColonne
End Property
Property Let NuméroCarré(numCar As Integer)
    mNuméroCarré = numCar
End Property
Property Get NuméroCarré() As Integer
    NuméroCarré = mNuméroCarré
End Property
mon problème est que je n'arrive pas à créer correctement la property Let ou Get pour attribuer le tableau tyCandidatCellule ().
ce tableau est défini dans un module général
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Public Cellules(1 To 9, 1 To 9) As New cCellule 'tableau des objet cellule
 
Public Type tyCandidatCellule
    IndCand As Integer 'indice du Candidats
    couleur As Integer
    cand_1 As Integer 'indice si unique dans cellule
End Type
j'ai tenté ce code
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
 
Property Let Candidats(ind As Integer, vale As Integer)
    Lig = mLigne
    Col = mColonne
    numCar = mNuméroCarré
    tLig = mTierLigne
    tCol = mTierColonne
    'enregistrement du Candidats dans la cellule (uniquement à l'initialisation
    If mCandidats(ind).IndCand = 0 And vale > 0 Then
        mCandidats(ind).IndCand = vale
        mCandidats(ind).cand_1 = 0
        mCandidats(ind).couleur = 0
    End If
...
end property
j'ai toujours un message d'erreur "utilisation incorrecte de la propriété"

en espérant avoir été assez clair