Ce navigateur n’est plus pris en charge.
Effectuez une mise à niveau vers Microsoft Edge pour tirer parti des dernières fonctionnalités, des mises à jour de sécurité et du support technique.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Bonjour,
Comment neutraliser la touche Entrée. Par exemple, on dit que la cellule A1 est limitée à 10. Quand cette valeur limite est dépassée, on déclenche une MsgBox.
Ma question est : après un clic sur la touche OK de la MsgBox, j’aimerai bloquer la touche Entrée pour que la sélection ne passe pas à la cellule voisine et par la même occasion, vider la valeur erronée.
Merci pour votre aide
Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.
Pourrais-tu me joindre le fichier, STP, pour comprendre. Merci
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(108.80000000000001, 78%, 20%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3ED%3C/text%3E%3C/svg%3E)
Dans le WorkBook_Change initial du classeur, il y a plus de code. J'ai mis la macro initiale en commentaire et j'en ai créé une autre.
Mais c'était peut-être un essai de ta part ?
Daniel
je n'ai pas tout compris. Qu'est-ce que tu entends par : "Je te laisse ajouter ce que je n'ai pas pris"
Bonjour,
Regarde comme ça. Je n'ai remis que mon code. Je te laisse ajouter ce que je n'ai pas pris.
Daniel
Bonjour,
Je te prie de m’excuser. J’ai été un peu vite en te disant que ton code fonctionnait correctement dans mon appli.
En fait, cela fonctionne avec une seule adresse. Ce n’est pas ta faute, car comme je te l’ai présenté, tu ne pouvais pas savoir qu’il y aura d’autre cellules à tester. J’ai essayé quelque chose mais je cale.
J’ai les cellules ʺ E6:F21,I6:J21,M6:N21ʺ à tester. Ma question est : est-ce qu’il est possible d’adapter ʺIf Target.Address = "$E$6" Thenʺ pour tester les cellules ci-dessus. Réf : Feuille2(Point) au début du code.
https://www.cjoint.com/c/KLqo1AY0Xqn
Merci pour ton aide.