est il possible d'identifier des doublettess ou des triplettes ?

est il possible d'identifier des doublettess ou des triplettes ? - VB/VBA/VBS - Programmation

Marsh Posté le 27-11-2008 à 11:57:21    

Bonjour,
 
voila mon probleme:
j'ai un carre de 9*9 cases (vous reconnaitrez le sudoku)
avec dans chaque cases toutes les possibilites
 
je voudrais savoir sil est possible d'identifier s'il y a des doublettes ou des triplettes ? Du moins les doublettes c'est facile mais c'est plutot les triplettes qui me posent probleme !
 
sachant qu'une "triplette" peut etre:
135 135 135
135 13 15
135 13 35
 
Est ce que vous voyer comment faire ?
 
Merci de votre aide

Message cité 1 fois
Message édité par ingenieurcesi33 le 27-11-2008 à 13:58:42
Reply

Marsh Posté le 27-11-2008 à 11:57:21   

Reply

Marsh Posté le 01-12-2008 à 07:39:56    

ingenieurcesi33 a écrit :

Bonjour,
 
voila mon probleme:
j'ai un carre de 9*9 cases (vous reconnaitrez le sudoku)
avec dans chaque cases toutes les possibilites
 
je voudrais savoir sil est possible d'identifier s'il y a des doublettes ou des triplettes ? Du moins les doublettes c'est facile mais c'est plutot les triplettes qui me posent probleme !
 
sachant qu'une "triplette" peut etre:
135 135 135
135 13 15
135 13 35
 
Est ce que vous voyer comment faire ?
Merci de votre aide


 
Salut,
 
Ça me paraît trop simple mais je poste quand même une réponse:
Sous Excel 2007
Sub DetectTriplet()
For i = 1 To 8
For j = 1 To 8
If Cells(i, j) = Cells(i, j + 1) And Cells(i, j) = Cells(i, j + 2) Or Cells(i, j) = Cells(i + 1, j) And Cells(i, j) = Cells(i + 2, j) Then
Range(Cells(i, j), Cells(i, j + 2)).Select
'Sélectionner le triplet
With Selection.Font
.Color = -16776961
'Mettre en rouge
End With
End If
Next j
Next i
End Sub
 
Edit: évidemment,avec ce type de code, le joueur est obligé d'exécuter le code pour se rendre compte de la répétition. A propos, tu n'as pas dit comment identifier une doublette.
 
 


Message édité par TAM136 le 01-12-2008 à 08:35:59
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed