Fusion et défusion de cellule en fonction de touche clavier

Question

Voici mon problème avec mon fichier Excel. Le but est de ne pas pouvoir déplacer le curseur en dehors de la zone B2:G7. Il y a 4 zones de 9 cases. Chaque zone contient par défaut les chiffres 1, 2, 3, 4, 5, 6, 7, 8 et 9 comme le sudoku. Le tableau est préparer par la fonction Quadrillage. Donc les touches possibles a utiliser sont les suivantes : * Flèche gauche * Flèche droite * Flèche bas * Flèche haut * Esc pour abandonner et rendre toutes les touches utilisables * et les touches chiffres avec la touche ALT (combinaison de touche) (ALT+1, ALT+2, ...) Il y a 4 zones B2:D4, E2:G4, B5:D7, E5:G7. En fonction de la zone, si je fais par exemple ALT+2 si le 2 est affiché alors je l'efface, sinon je l'affiche. Idem pour tous les chiffres. Lorsqu'il reste un seul chiffre dans la zone alors la zone est fusionnée au niveau cellule et n'affiche que le chiffre restant. Par contre, si la zone ne contient plus qu'un chiffre et que je fais ALT+ un autre chiffre alors la zone contiendra 2 chiffres et ceux ci doivent apparaître dans leur case respective. J'ai essayer de programmer quelques choses mais je n'arrive pas au résultat. En lien mon fichier. Je serais heureux que quelqu'un puisse m'aider ? Merci...

X Cellus · Answer

Pour cela, pas besoin de créer une macro Sub DeplCursor(keyscan As Integer) La ligne de code ci-dessous sera suffisante. A placer sur l'activation de la feuille 1. Worksheets("Feuil1").ScrollArea = "B2:G7" Et ôter les lignes Application.OnKey de déplacement de curseur. Pour revenir à un curseur se déplaçant sur toute la feuille, faire. Worksheets("Feuil1").ScrollArea = "" Ensuite, si pour ta version Excel (2010) utilisez ALT + Chiffre ne pose pas de souci. Sur les versions plus récentes ces séquences de touche est réservée aux Emojis. Il faudrait détailler d'avantage en plusieurs tableaux présentés sur d'autres pages le résultat escompté. Selon les chiffres tapés à chaque fois. L'image est généralement plus efficace que les mots...