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,
J'ai le code suivant dans une feuille d'un fichier Excel :
' Déplace verticalement la sélection d'une cellule X à une cellule vide Y sur la ligne 2 et désélectionne la cellule active X
ActiveCell.Offset(2 - ActiveCell.Row, 0).Select
La cellule ainsi sélectionnée Y est bordée de noir épais comme si elle avait été sélectionnée par le pointeur. Je souhaiterais que cette bordure n'apparaisse pas (ou disparaisse dès que cette cellule Y est sélectionnée). La cellule Y est colorée et ne doit pas changer de couleur. Je cherche une ligne de code VBA qui aboutisse à ce résultat. Il faudrait que cette ligne fonctionne aussi bien sur PC que sur Mac.
Merci d'avance !
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.
![](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(160, 33%, 25%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EH%3C/text%3E%3C/svg%3E)
Très bien si cela correspond à ton attente.
Mais je ne vois pas en quoi cela répond à ta demande. Apres le Application.ScreenUpdating = True il y a toujours une bordure autour de C33 !
Merci beaucoup. C'est pour des raisons d'ergonomie et d'esthétique vis à vis des utilisateurs que j'ai besoin de cela.
A défaut d'une solution, j'ai utilisé ce code qui fonctionne :
Application.ScreenUpdating = False
Worksheets("Feuil1").Range("C33").Select
Application.ScreenUpdating = True
Cela renvoie toujours à la même case C33 et sans faire défiler l'écran.
Cette réponse a été supprimée en raison d’une violation de notre Code de conduite. La réponse a été signalée manuellement ou identifiée via la détection automatisée avant que l’action ne soit entreprise. Pour obtenir plus d’informations, veuillez consulter notre Code de conduite.
Les commentaires ont été désactivés. En savoir plus
Bonjour,
Pour
ActiveCell.Offset(2 - ActiveCell.Row, 0).Select
j'aurais opté pour
Application.Goto "R2C"
La bordure dont tu parles est-elle celle avec la poignée de recopie (carré en bas à droite) quand on sélectionne une cellule ? En quoi est-ce gênant ?
Sinon il suffit de ne pas faire de sélection (.select) 😁
Souvent des sélections sont faites inutilement (ralentissant fortement le code)
A priori, aussi bien sur Mac que Windows, ton code déplace la sélection et donc, forcément, on voit le cadre vert correspondant :
Il faudrait que tu en dises un peu plus sur ce que ton code est censé faire et le contexte. La sélection est-elle indispensable (ce n'est pas toujours évident) ? En tout cas, s'il y a sélection d'une cellule, je ne vois pas comment éviter que ça se manifeste, en dehors d'un Application.ScreenUpdating = False qui le masquera... de façon temporaire.