Discussion :

[dariusvba]

Bonjour à tous.
Je me présente, je m'apelle Darius je suis nouveau sur votre forum.
Je suis actuellement étudiant en Economie gestion mais je programme en Vba dans le cadre de ma licence.
Novice, j'ai quelques difficultés à résoudre cet exercice.
Je me permets de le poster ici au cas où quelqu'un aurait la bonté de m'aider .
Merci d'avance !

je serais vraiment reconnaissant pour vos réponses je ne maîtrise vraiment pas bien les boucles et malgré les connaisances que j'arrive à récoler sur d'autres sites je ne parviens pas à commencer à coder un tel programme... de plus je suis un peu pressé par le temp.
SVP UN PEU D'AIDE

[kiki29]

Salut, une fois de plus : Les règles du Club

Sinon à lire, assimiler et appliquer : La gestion des boucles dans Excel

[clementmarcotte]

Bonjour,

Là, tu viens d'enfreindre quelques règles du forum.

Pas de up tout de suite après avoir posé la question

Aucune indication sur ce que tu as déjà réalisé et aucun code fourni

Le forum exige des efforts de la part du demandeur et ne fournit pas de code gratuit clef en main.

Et puis le fait de se plaindre que c'est urgent, est plutôt irritant. Ceux qui répondent ici le font bénévolement.

[eriiic]

Bonjour,

D'accord avec les avis précédents : sors tes cours et met les mains dans le cambouis.
Si tu demandes déjà pour les boucles tu n'es pas arrivé au bout...
Tu dois faire un tableau qui représente le damier, en mettant dedans par exemple 0 pour vide, 1 pour blanc, 2 pour noir.
Bien que le damier fasse 8x8 je te conseille de faire un tableau 10x10. Comme tu devras tester au-dessus, au-dessous, à gauche et à droite, en faisant ainsi tu n'auras pas de dépassement d'indice à gérer sur les bords.
Ex :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Table(0 To 9, 0 To 9)
Sub balayage()
    Dim lig As Long, col As Long, pion As Long
    For lig = 1 To 8
        For col = 1 To 8
            If Table(lig, col) = 1 Then MsgBox "Pion blanc en " & lig & ", " & col
            If Table(lig, col - 1) = 2 Then MsgBox "Pion noir à gauche de " & lig & ", " & col
        Next col
    Next lig
End Sub

edit : mis le Dim Table oublié

[kiki29]

Salut, une simple recherche donne pour vb net ( plus approprié que vba ) une myriade de solutions, bref tout faux.

[dariusvba]

Bonsoir et merci pour vos réponses.
J'ai commencé à essayer de coder ça donne ça pour l'instant

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
27
28
29
30
Type Pions 
       Couleur as string
End type 
 
 
Sub othello () 
 
    Const  longueur = 8
   Const largeur = 7
 
dim Tableauothello (  1 to longueur , 1 to largeur )  as string
Dim i as integer
Dim j as integer    
 
For i = 1 to longueur 
i = 1 to largeur 
cells(i,j).interior.colorindex=3
Next J 
Next I  
 
for i = 1 to longueur 
for j = 1 to largeur 
tableauothello(i,j) = ‘vide’’
next j 
next i
 
Tableauothello ( 4,5 ) = " noir"
Tableauothello( 5 , 4 ) = "" blanc "
 
End sud

Salut, une simple recherche donne pour vb net ( plus approprié que vba ) une myriade de solutions, bref tout faux.

Merci pour ta réponse de vb net mais je dois le faire en VBA.

[eriiic]

Re,

J'ai édité mon post, j'avais oublié le Dim Table(0 To 9, 0 To 9) qui va bien.
PS : un damier d'othello fait 8x8, pas 8x7