Bonjour,
Je suis actuellement en train de coder le jeu snake sous VBA.
Je rencontre une difficulté que je n'ai pas réussi à résoudre malgré le temps passé à chercher une réponse sur les forums.

Pour définir mon serpent, j'aimerais avoir un tableau de type Range, contient donc donc des cellules, les cellules de ce tableau formant le serpent.
Pendant l'initialisation, VB m'indique une erreur ( différentes selon ce que j'ai essayé).

Voici la partie de mon code qui pose problème (je ne sais pas comment introduire un code, faites le moi savoir ) :

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
      Dim serpent() as Range
      Public Const tete = "+"
      Public Const queue = "#"


      ReDim serpent(4) 'longueur de 4 au début
    For i = 0 To 3
        
        serpent(i) = Range("K" & 19 + i)      'erreur ici : Variable objet ou variable de bloc With non définie
        If i = 0 Then
            serpent(i).Value = tete
        Else
            serpent(i).Value = queue
        End If
    Next i
J'ai également essayé en déclarant mon tableau de la sorte :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
     Dim serpent() as Variant
Dans ce cas, l'erreur affiche " objet requis" lors de l'affectation
Code : Sélectionner tout - Visualiser dans une fenêtre à part
serpent(i).Value = tete
Merci de votre aide et de votre attention !