Bonjour je fais un puissance 4 et j'ai se message d'erreur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
La référence d'objet n'est pas définie à une instance d'un objet.
Voici le 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
16
17
18
19
20
21
22
23
24
25
26
 Private Sub conversiontab()

        Dim i As Integer
        Dim j As Integer
        

        For i = 1 To 6
            For j = 1 To 7
'erreur sur la ligne qui suis !
                If TabCase(i, j).BackColor = Color.BlueViolet Then
                    TabConvertie(i, j) = 1

                Else
                    If TabCase(i, j).BackColor = Color.DarkOrange Then
                        TabConvertie(i, j) = 2
                    Else
                        TabConvertie(i, j) = 0
                    End If

                End If

            Next
        Next


    End Sub