Partager via

Effacement de la bordure noire d'une cellule sélectionnée

Anonyme
2024-03-12T09:58:02+00:00

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 !

Microsoft 365 et Office | Excel | Pour la maison | Windows

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.

0 commentaires Aucun commentaire

8 réponses

  1. Hecatonchire 53,780 Points de réputation Modérateur bénévole
    2024-03-12T11:36:28+00:00

    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 !

    Cette réponse a-t-elle été utile ?

    0 commentaires Aucun commentaire
  2. Anonyme
    2024-03-12T11:05:57+00:00

    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-elle été utile ?

    0 commentaires Aucun commentaire
  3. Supprimé

    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

  4. Hecatonchire 53,780 Points de réputation Modérateur bénévole
    2024-03-12T10:29:06+00:00

    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)

    Cette réponse a-t-elle été utile ?

    0 commentaires Aucun commentaire
  5. Anonyme
    2024-03-12T10:26:51+00:00

    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.

    Cette réponse a-t-elle été utile ?

    0 commentaires Aucun commentaire