Vba avec excel

Version imprimable

25/06/2023, 19h37
bigdos

Vba avec excel

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

Bonjour,

Plusieurs façons de faire.

Voici une proposition; cellule par cellule.

Code:

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.

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:

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.

25/06/2023, 20h28
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

Citation:
Envoyé par 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:

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