Mettre une cellule de la ligne active en couleur

Résolu
mchotard Messages postés 491 Statut Membre -  
mchotard Messages postés 491 Statut Membre -

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

brucine Messages postés 22999 Statut Membre 3 570
 

Bonjour,

Pas plus simple de figer la colonne A?

0
mchotard Messages postés 491 Statut Membre 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 22999 Statut Membre 3 570
 

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 967 Statut Membre 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 1944 Statut Membre 237
 

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 491 Statut Membre 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 Statut Contributeur 5 136
 

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 491 Statut Membre 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 1122 Statut Membre 363
 

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 491 Statut Membre 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