est il possible d'identifier des doublettess ou des triplettes ? - VB/VBA/VBS - Programmation
Marsh Posté le 01-12-2008 à 07:39:56
ingenieurcesi33 a écrit : Bonjour, |
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.
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 édité par ingenieurcesi33 le 27-11-2008 à 13:58:42