XL 2016 Test et ou amélioration jeu Sudoku

[Nicolas JACQUIN]

Bonjour à toutes et tous,
Je vous présente un jeu Sudoku, à tester ou améliorer
J'ai essayé de détailler au maximum chaque code pour une bonne compréhension j'espère.
Bon jeu.
Nicolas.

 

[Nicolas JACQUIN]

Je ne sais pas comment tu arrives à appuyer 6 fois de suite sur une touche en deux centièmes de seconde, mais on va dire que c'est parfait ainsi et que tu ne dois surtout rien changer à ton code ; je vais acheter un PC neuf et ce sera fluide chez moi aussi... 🙄

Noon, à chaque clic

 

[TooFatBoy]

Noon, à chaque clic

OK, donc tu ne tiens absolument pas compte de ce que je t'ai dit plusieurs fois : déplacement par les flèches.

Toi, si tu étais mécanicien automobile, je te dirais que ma voiture a un problème d'embrayage et tu me répondrais que les essuie-glaces n'ont aucun problème... 🤪

 

[Nicolas JACQUIN]

mais non, bouton flèche, j'ai fourché c'est pareil 😉😉

 

[TooFatBoy]

mais non, clic bouton flèche c'est pareil 😉😉

Ben oui, 6 appuis consécutifs sur une flèche, c'est pareil qu'un clic, bien sûr !... Exactement comme un embrayage et des essuie-glaces c'est pareil... 🙄


Bonne chance pour la suite à ceux qui voudront bien tester...
Bye

 

[VIARD]

Bonjour @Nicolas JACQUIN , @Gégé-45550, @TooFatBoy, @job75

Félicitation, jolie travail.
Je te propose un affichage par Command_Bar. fichier joins.
mais cela ne semble pas évident à mettre en place, il faut revoir le code.
C'est juste une suggestion.
Amicalement
Jean-Paul

 

[Nicolas JACQUIN]

Bonjour @Nicolas JACQUIN , @Gégé-45550, @TooFatBoy, @job75

Félicitation, jolie travail.
Je te propose un affichage par Command_Bar. fichier joins.
mais cela ne semble pas évident à mettre en place, il faut revoir le code.
C'est juste une suggestion.
Amicalement
Jean-Paul

Bonjour à tous,
Merci du retour, ça peut m'intéressé, merci
Nicolas

 

[VIARD]

Bonjour Nicolas

J'ai vu une petite simplification dans "CreerGrille"

 ' Remplir la plage avec les valeurs du sudoku
    For i = 1 To 9
        For j = 1 To 9
            If sudoku(i, j) <> 0 Then
                cellRange.Cells(i, j).Value = sudoku(i, j)
            Else
                cellRange.Cells(i, j).Value = "" ' Supprime les zéros
            End If
        Next j
    Next i

Tu peux écrire:

' Remplir la plage avec les valeurs du sudoku
    For i = 1 To 9
        For j = 1 To 9
            cellRange.Cells(i, j).Value = IIf(sudoku(i, j) <> 0, sudoku(i, j), "")
        Next j
    Next i

Amicalement
Jean-Paul

 

[AZERUS]

Bonjour,

Dommage, Active X n'est pas actif ds Mac, comment adapter ce fichier pour Mac ?

 

[Nicolas JACQUIN]

Bonjour,

Dommage, Active X n'est pas actif ds Mac, comment adapter ce fichier pour Mac ?

Les contrôles de formulaire fonctionnent ??

 

[Nicolas JACQUIN]

Apparemment oui, je vais voir ça

 

[Nicolas JACQUIN]

Vite fait, à tester déjà, reste à voir pour la visibilité, mais si déjà le reste fonctionne

 

[AZERUS]

Ce n'est pas un problème d'affectation de macro mais d'exécution des codes VBA; à l'ouverture du fichier, ce message d'erreur s'affiche lorsqu'on clique sur une cellule des tableaux mais cela n'empêche pas de faire fonctionner le fichier :

Erreur d'exécution 1004
La méthode OLEOBJECTS DE l'objet "_Worksheet" a échoué

La ligne suivante pose problème :

Set chkAide = ws.OLEObjects("Check_aide")

En tous cas merci, le Sudoku fonctionne !!!

 

[Nicolas JACQUIN]

je suis dessus, je pense avoir trouvé

 

[Nicolas JACQUIN]

En faites, j'ai pas tout à fait trouvé encore (checkbox aide inactive, aide toujours là), mais avec l'exemple proposé,
je pense que tu ne devrais plus avoir d'erreur, enfin j'espère.
Ca fait plus de 2 heures que j'y travaille encore pour trouver la solution.
Essaye déjà pour voir dans tout les sens, ou d'autres personnes si on un mac.
Merci,
Nicolas

 

[Nicolas JACQUIN]

Si déjà tu as ce résultat là, je serai content de pouvoir avancer sur un os que je ne n'ai pas et ne connais pas