Discussion :

[skypred]

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 !

[Thautheme]

Bonjour Skypred, bonjour le forum,

Puisque tu parles de Range il faut un Set :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set serpent(i) = Range("K" & 19 + i)

[skypred]

En effet, cela fonctionne. J'étais sur qu'il s'agissait d'une erreur bête..
Merci de ton aide et bonne soirée !

[Thautheme]

Re,

Oui Set et Range, heu pardon ! C'est étrange parfois le VBA...