Discussion :

[bigdos]

Bonjour,
j'essaie de mettre en place un jeu de sudoku avec un affichage d'aide.
mon problème consiste entre autre à essayer de simplifier le code vba
qui copie "grille" d'entré cellule simple,
vers collage " grille jeu" cellules fusionnées
Ajouter éventuellement une couleur aux chiffres pour les distingués de ceux ajoutés
Voir lien joint
https://www.cjoint.com/c/MFzrKN3tNUZ

Merci
Cordialement

[Alex020181]

Bonjour,

Plusieurs façons de faire.

Voici une proposition; cellule par cellule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Option Explicit
Sub sudo()
 
Dim ligne_destination As Long
Dim colonne_destination As Long
 
Dim ligne_origine As Long
Dim colonne_origine As Long
 
ligne_origine = 4
 
For ligne_destination = 4 To 28 Step 3
 
    colonne_origine = 3
 
    For colonne_destination = 2 To 26 Step 3
 
        Sheets("Jeux-Sudoku").Cells(ligne_destination, colonne_destination) = Sheets("Grille").Cells(ligne_origine, colonne_origine)
 
        colonne_origine = colonne_origine + 1
 
    Next colonne_destination
 
    ligne_origine = ligne_origine + 1
 
Next ligne_destination
 
End Sub

A toi de compléter pour les couleurs.

Teste et dis nous.

[bigdos]

Merci Alex 020181

un travail super qui fonctionne à merveille.
Cela va me permettre de lancer ce jeu
aux séniors de notre club bénévole informatique.

Rapidité et efficacité
.
Bonne soirée

[Franc]

Bonjour, si je comprends bien, tu veux copier la grille de l'onglet "Grille" vers la grille à résoudre de l'onglet "Jeux-Sudoku" et composée de cellules fusionnées. Voici une macro pour le faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub CopierGrille()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim i As Long, j As Long
    Set ws1 = Sheets("Grille")
    Set ws2 = Sheets("Jeux-Sudoku")
    For i = 0 To 8
        For j = 0 To 8
            ws2.Range(ws2.Cells(4 + i * 3, 2 + j * 3), ws2.Cells(6 + i * 3, 4 + j * 3)).Value = ws1.Cells(4 + i, 3 + j).Value
        Next j
    Next i
End Sub

Petite remarque en passant, tu utilises beaucoup de .Select dans ton code, la plupart du temps c'est inutile.
Ce n'est pas nécessaire pour manipuler les données d'une feuille ou d'une cellule et cela alourdit le code inutilement.

[bigdos]

Bonjour, si je comprends bien, tu veux copier la grille de l'onglet "Grille" vers la grille à résoudre de l'onglet "Jeux-Sudoku" et composée de cellules fusionnées. Voici une macro pour le faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub CopierGrille()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim i As Long, j As Long
    Set ws1 = Sheets("Grille")
    Set ws2 = Sheets("Jeux-Sudoku")
    For i = 0 To 8
        For j = 0 To 8
            ws2.Range(ws2.Cells(4 + i * 3, 2 + j * 3), ws2.Cells(6 + i * 3, 4 + j * 3)).Value = ws1.Cells(4 + i, 3 + j).Value
        Next j
    Next i
End Sub

Petite remarque en passant, tu utilises beaucoup de .Select dans ton code, la plupart du temps c'est inutile.
Ce n'est pas nécessaire pour manipuler les données d'une feuille ou d'une cellule et cela alourdit le code inutilement.

Merci
je suis d'accord avec tes observations sur select
mais c'est parce que je suis parti sur macro manuelle.
J'essaye le code et te donnes la réponse
bravo pour cette disponibilité.
Cela fonctionne bien
Mes séniors vont pouvoir jouer.
Bonne soirée