Copier une cellule sur plusieurs après fusion

Bonjour,

Je réalise un fichier pour jouer au sudoku

et Je souhaite lorsqu'une proposition est enregistrée sur la grille à résoudre,

celle ci soit collée sur les 9 cellules de la grille aide après fusion de celles_ci

Merci

Cordialement

Bonjour,

Beau boulot, pour la fusion de cellule + n° indiqué voici un debut que tu trouveras dans le module "M_AideComplementaire"

Qui va se déclencher lorsque les bouton "Masquer" ou "Afficher" seront activés

Je n'ai pour le moment fait que la partie en bleu (soit la premiere ligne sur 9)

Si tu arrives a continuer pour les lignes suivantes, ma façon de faire :

- Lancer l'enregistrement de macro éditer la formule que tu as deja mis dans "AD7" et mettre "entrée"
a faire pour chaque cellule de 1 à 9 (donc jusqu'a AF9)
puis je colle ça au dessus :

End If
'--------------------------------------------------------------------------------------------------------------------------------------------------
If Range("E4") <> "" Then
    Range("AG4:AI6").Merge
    Range("AG4:AI6").Value = Range("E4")
    Range("AG4:AI6").Font.Size = 20
Else
    Range("AG4:AI6").UnMerge
    Range("AG4:AI6").Font.Size = 8

En changeant le E4 par B7 (Cellule du N° a copier) et AG4:AI6 par AD7:AF9 (zone de grille aide) a grand coup de recherche et remplace.

A+

Bonjour Geof52

Un grand merci pour ton travail, tu as remis de l'ordre dans les modules.

je vais lancer ton travail.

encore un grand merci à toi.

Je fais cela car j'anime un club informatique pour les anciens.

Parfois ils demandent un jeu alors!

Encore merci bonne journée.

Bon cela fonctionne,

il y avait une petite erreur un s qui s'était glissé dans une formule.

J'en suis à plus de moitié.

Je n'arrive pas à mettre résolu ?

Un grand merci

Bien cordialement