Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Sudoku

5 réponses
Avatar
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."

5 réponses

Avatar
h2so4
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 !
Avatar
Jacquouille
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 !
Avatar
MichD
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
---------------------------------------------------------------
Avatar
Jacquouille
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
---------------------------------------------------------------
Avatar
pom...pom...pom..
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