Sudoku
Le
Jacquouille
Bonjour
J'ai fait un petit truc pour montrer aux gosses comment on joue au Sudoku.
malheureusement, cela ne fonctionne pas à mon gout.
En annexe, le fichier et les explications.
En gros, c'est le petit carré qui ne se colorie pas bien.
http://cjoint.com/?CHqvVf7ImCt
Merci pour toute aide
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
J'ai fait un petit truc pour montrer aux gosses comment on joue au Sudoku.
malheureusement, cela ne fonctionne pas à mon gout.
En annexe, le fichier et les explications.
En gros, c'est le petit carré qui ne se colorie pas bien.
http://cjoint.com/?CHqvVf7ImCt
Merci pour toute aide
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
bonsoir,
chez moi, cela fonctionne très bien !
Je confirme les problèmes décrits sur la feuille.
Pourquoi toutes les cases du petit carré contenant le chiffre demandé ne se
colorient-elles pas ?
Merci pour ce test.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"h2so4" a écrit dans le message de groupe de discussion :
kum60s$cbr$
Jacquouille explained on 16-Aug-13 :
bonsoir,
chez moi, cela fonctionne très bien !
J'ai modifié le début de la macro.
Si tu as d'autres problèmes, explique les
difficultés rencontrées.
'---------------------------------------------
Private Sub macro_Click()
'On Error Resume Next
Dim Chiffre As Variant, n As Integer, CC As Integer
Dim LL As Integer, zz As Integer, compteur As Integer
Dim C As Range, Msg As String
LL = 0
CC = 0
n = 0
Chiffre = 0
zz = 0
With Feuil1
.Range("Feuil1!$A$1:$I$9").Name = "Tablo"
.Range("Feuil1!$A$1:$C$3").Name = "Carré1"
.Range("Feuil1!$D$1:$F$3").Name = "Carré2"
.Range("Feuil1!$G$1:$I$3").Name = "Carré3"
.Range("Feuil1!$A$4:$C$6").Name = "Carré4"
.Range("Feuil1!$D$4:$F$6").Name = "Carré5"
.Range("Feuil1!$G$4:$I$6").Name = "Carré6"
.Range("Feuil1!$A$7:$C$9").Name = "Carré7"
.Range("Feuil1!$D$7:$F$9").Name = "Carré8"
.Range("Feuil1!$G$7:$I$9").Name = "Carré9"
End With
Feuil1.Range("a1:i9").Interior.ColorIndex = xlNone
For Each C In Range("tablo")
If C.Value > 0 And C.Value < 10 Then
C.Interior.ColorIndex = 8
End If
Next
Msg = "Entrez votre chiffre à analyser.(de 1 à 9)"
Chiffre = Application.InputBox(Prompt:=Msg, Type:=1)
If Chiffre = False Then
MsgBox "Vous avez annulé l'opération. Fin. "
Exit Sub
End If
If Chiffre < 0 Or Chiffre > 9 Then
MsgBox "Le chiffre saisie est hors des bornes permises. Recommencez."
Exit Sub
End If
MsgBox Chiffre
'le reste du code...
End Sub
'---------------------------------------------
MichD
---------------------------------------------------------------
Un grand merci, cela fonctionne à merveille.
Je ne vais pas plus loin dans le développement car il faut laisser aux
gosses le soin de penser et de calculer qui est manquant ....
Il ne faut pas que l'ordi fasse tout.
Grand merci et bon WE
jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"MichD" a écrit dans le message de groupe de discussion :
kunrih$67r$
Bonjour,
J'ai modifié le début de la macro.
Si tu as d'autres problèmes, explique les
difficultés rencontrées.
'---------------------------------------------
Private Sub macro_Click()
'On Error Resume Next
Dim Chiffre As Variant, n As Integer, CC As Integer
Dim LL As Integer, zz As Integer, compteur As Integer
Dim C As Range, Msg As String
LL = 0
CC = 0
n = 0
Chiffre = 0
zz = 0
With Feuil1
.Range("Feuil1!$A$1:$I$9").Name = "Tablo"
.Range("Feuil1!$A$1:$C$3").Name = "Carré1"
.Range("Feuil1!$D$1:$F$3").Name = "Carré2"
.Range("Feuil1!$G$1:$I$3").Name = "Carré3"
.Range("Feuil1!$A$4:$C$6").Name = "Carré4"
.Range("Feuil1!$D$4:$F$6").Name = "Carré5"
.Range("Feuil1!$G$4:$I$6").Name = "Carré6"
.Range("Feuil1!$A$7:$C$9").Name = "Carré7"
.Range("Feuil1!$D$7:$F$9").Name = "Carré8"
.Range("Feuil1!$G$7:$I$9").Name = "Carré9"
End With
Feuil1.Range("a1:i9").Interior.ColorIndex = xlNone
For Each C In Range("tablo")
If C.Value > 0 And C.Value < 10 Then
C.Interior.ColorIndex = 8
End If
Next
Msg = "Entrez votre chiffre à analyser.(de 1 à 9)"
Chiffre = Application.InputBox(Prompt:=Msg, Type:=1)
If Chiffre = False Then
MsgBox "Vous avez annulé l'opération. Fin. "
Exit Sub
End If
If Chiffre < 0 Or Chiffre > 9 Then
MsgBox "Le chiffre saisie est hors des bornes permises. Recommencez."
Exit Sub
End If
MsgBox Chiffre
'le reste du code...
End Sub
'---------------------------------------------
MichD
---------------------------------------------------------------
"Jacquouille" a écrit dans le message de groupe de discussion :
kulvm5$r5o$
Bonjour
J'ai fait un petit truc pour montrer aux gosses comment on joue au Sudoku.
Merci pour toute aide
voici ma proposition avec explications pas à pas
choisir affichage de candidats,
mode bavard, synthése sonore,
résoud plus de 90% des sudoku
http://cjoint.com/?CHtooQQtEEo