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."
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
h2so4
Le #25598212
Jacquouille explained on 16-Aug-13 :
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."



bonsoir,

chez moi, cela fonctionne très bien !
Jacquouille
Le #25598692
Bonjour
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 :
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."



bonsoir,

chez moi, cela fonctionne très bien !
MichD
Le #25599232
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
Le #25599872
Re
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
---------------------------------------------------------------
pom...pom...pom..
Le #25602472
Bonsour® Jacquouille

"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
Publicité
Poster une réponse
Anonyme