Discussion :

[layer69]

le programme ci dessous est une partie du 2048 que je dois faire, ici je me concentre sur la touche bas (flèche cliqué avec la souris) cependant tester le avec l'ordi moi il me met des erreurs tous le temps si j'en résous une (erreur) il m'en met une autre donc un coup de main ne serait pas de trop merci d'avance.
mon tableau commence a la colonne 2 jusqu’à 5 et en ligne sa va de 3 jusqu'à 6
voici le programme:

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
Sub bas()
Dim x
For j = 2 To 5
      i = 5
        While i >= 3
          If Cells(i, j) = "" Then
              i = i - 1
          End If
          If Cells(i + 1, j) = "" Then
              While Cells(i + 1, j) = ""
                   Cells((i + 1), j) = Cells(i, j)
                   Cells(i, j) = ""
                   i = i - 1
              Wend
          End If
        Wend
          While Cells(i + 1, j) = Cells(i, j)
                Cells(i + 1, j) = 2 * Cells(i, j)
                Cells(i, j) = ""
          Wend
Next j
End Sub