Mettre une cellule de la ligne active en couleur

Résolu
mchotard Messages postés 496 Date d'inscription   Statut Membre Dernière intervention   -  
mchotard Messages postés 496 Date d'inscription   Statut Membre Dernière intervention   -

Bonjour,

J'ai un fichier de A1 à Y370

En colonne A j'ai les jours de l'année. J'aimerai pourvoir mettre en couleur la cellule de la colonne en A en fonction de la ligne que j'ai sélectionnée.

Ex : si je sélectionne la cellule F200, j'aimerai que la cellule A200 soit en couler pour bien la repérer.

Merci
Windows / Chrome 137.0.0.0

A voir également:

9 réponses

Résumé de la discussion

Le besoin est de mettre en surbrillance la cellule A de la ligne active lorsque l’utilisateur sélectionne une cellule, dans un tableau allant de A1 à Y370. Plusieurs solutions ont été proposées, dont l’usage d’une macro VBA Worksheet_SelectionChange qui efface les couleurs existantes puis colore Cells(Target.Row, 1).Interior.ColorIndex = 8, mais qui peut supprimer les autres mises en couleur du tableau. En complément, une approche mêlant mise en forme conditionnelle et un appel Calculate dans l’événement de sélection a été évoquée, et certains proposent aussi la fonctionnalité « Focus sur la cellule » d’Excel 365 pour obtenir un repérage visuel sans code. Les échanges insistent sur les contraintes techniques et l’importance de tester dans un fichier de travail, sans adopter une solution unique universelle.

Généré automatiquement par IA
sur la base des meilleures réponses
brucine Messages postés 22553 Date d'inscription   Statut Non membre Dernière intervention   3 618
 

Bonjour,

Pas plus simple de figer la colonne A?

0
mchotard Messages postés 496 Date d'inscription   Statut Membre Dernière intervention   43
 

Merci, j'ai dû mal m'exprimer, il ne s'agit pas de figer la colonne, mais de mettre en surbrillance ou en couleur la cellule de la colonne A en fonction de la ligne active.

Est-ce plus clair?

0
brucine Messages postés 22553 Date d'inscription   Statut Non membre Dernière intervention   3 618
 

J'avais bien compris, mais ce n'est sûrement pas simple si c'est possible en VBA, je n'en sais rien, c'est pourquoi j'avais suggéré de passer par les volets dont le résultat sera le même.

Une question de ce style est évoquée ici:

https://www.mrexcel.com/board/threads/highlight-first-cell-in-row-and-column.1137846/

0
The_boss_68 Messages postés 970 Date d'inscription   Statut Membre Dernière intervention   182
 

Bonsoir,

Peut-être un truc de ce genre ==> attention activer les macros

Clic ICI

PS: Ce qui vous parait évident pour vous ne l'est pas forcément pour les autres, quelques explications et un fichier de test valent tous les longs discours.

Slts

0
danielc0 Messages postés 1994 Date d'inscription   Statut Membre Dernière intervention   245
 

Bonjour à tous,

Avec Excel 365, il y a la fonctionnalité "Focus sur la cellule"  (Onglet Affichage) qui donne ce résultat (la couleur est paramétrable) :

Daniel


0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
mchotard Messages postés 496 Date d'inscription   Statut Membre Dernière intervention   43
 

Avec la solution de The_boss_68, j'ai trouvé mon bonheur. Il ne me resque plaus qu'à modifier les couleur, mais cela je sais faire.

Parfait et mer ci à vous tous pour vos interventions.

A bientôt peut-être

mchotard

0
Mike-31 Messages postés 19571 Date d'inscription   Statut Contributeur Dernière intervention   5 138
 

Bonjour,

Ou avec ce code placé dans les propriétés de la feuille concernée, la cellule colonne A de la ligne active se colorise

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Col_ As Integer
    Col_ = 1
    On Error Resume Next
    Cells.Interior.ColorIndex = xlNone
    Cells(Target.Row, Col_).Interior.ColorIndex = 8
End Sub


0
mchotard Messages postés 496 Date d'inscription   Statut Membre Dernière intervention   43
 

Bonjour

Cela fonctionne pour mettre la cellule A couleur, parcontre elle supprimes toutes mes autres couleurs du tableau.

Merci pour ton travail

0
cousinhub29 Messages postés 1129 Date d'inscription   Statut Membre Dernière intervention   364
 

Bonjour,

Une autre solution, utilisant une mise en forme conditionnelle, couplée à ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

Et la MEFC :

Fichier


0
mchotard Messages postés 496 Date d'inscription   Statut Membre Dernière intervention   43
 

merci à tous mais la proposition de Mike-31 me satisfait tout à fait. Elle correspond à ce que je souhaitais.

Vous pouvez considérez que ma demande est résolu désormais.

Bonne journée

Cdlt

0