OVH Cloud OVH Cloud

Colorier/surligner la ligne où on se trouve.

8 réponses
Avatar
Emmanuel
Bonjour,

J'ai une feuille avec beaucoup de données et je souhaiterais marquer plus la
ligne où je travaille par un coloriage/surlignage de la ligne.

Est-ce possible simplement ?
Ou faut-il une macro qui tourne en tâche de fond qui fait le "boulot".

Merci par avance pour votre aide si vous avez la réponse,
Emmanuel.

8 réponses

Avatar
michdenis
Bonjour Emmanuel,

copie ce qui suit dans le code du module feuille où l'action se déroule.

'---------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 8

End Sub
'---------------------


Salutations!


"Emmanuel" a écrit dans le message de news:

Bonjour,

J'ai une feuille avec beaucoup de données et je souhaiterais marquer plus la
ligne où je travaille par un coloriage/surlignage de la ligne.

Est-ce possible simplement ?
Ou faut-il une macro qui tourne en tâche de fond qui fait le "boulot".

Merci par avance pour votre aide si vous avez la réponse,
Emmanuel.
Avatar
jb
Bonjour,

Je ne vois pas comment le faire en MEFC. En macro, on peut imaginer ce
genre de pgm:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsEmpty(mémo) Then
Rows(mémo).Interior.ColorIndex = 2
End If
mémo = Target.Row
Target.EntireRow.Interior.ColorIndex = 33
End Sub

JB
Avatar
Modeste
Bonsour®
Emmanuel wrote:
je souhaiterais marquer la ligne où je travaille par un
coloriage/surlignage de la ligne.
faut-il une macro qui tourne en tâche de fond qui fait le "boulot".


oui sans tache de fond et sans toucher aux mises en forme existantes
à l'aide d'une procédure événementielle
explication là :
http://www.polykromy.com/nl/nl6/nl6.html
exemple là :
http://polykromy.com/fichiers/rectangle.xls

@+

--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042

Avatar
G. L
Bonsoir Emmanuel & Denis

Hop ! je garde.
Merci à vous deux
Le premier pour avoir eu l'idée
Le second pour la solution géniale
Cordialement
Gérard



"michdenis" a écrit dans le message de
news:
Bonjour Emmanuel,

copie ce qui suit dans le code du module feuille où l'action se déroule.

'---------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 8

End Sub
'---------------------


Salutations!


"Emmanuel" a écrit dans le message de
news:


Bonjour,

J'ai une feuille avec beaucoup de données et je souhaiterais marquer plus
la

ligne où je travaille par un coloriage/surlignage de la ligne.

Est-ce possible simplement ?
Ou faut-il une macro qui tourne en tâche de fond qui fait le "boulot".

Merci par avance pour votre aide si vous avez la réponse,
Emmanuel.




Avatar
jb
Bonjour,

Voici une autre solution MFEC qui préserve les couleurs:


-Sélectionner le champ A2:D16
-Format/Mise en forme Conditionnelle
=LIGNE()ÎLLULE("ligne")


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

http://cjoint.com/?lmgWbpxtU0

JB
Avatar
G. L
Bonjour Jacques,

Cette solution est plus rapide, lorsqu'une colonne est sélectionnée tout est
normal alors que la formule précédente colore l'ensemble de la feuille.

Cependant, moi qui suis un adepte de mise en forme conditionnelle
=MOD(LIGNE();2)=1 pour avoir une ligne sur deux « façon listing »

Évidemment =LIGNE()ÎLLULE("ligne") n'est pas pris en compte.

Existe t'il une solution pour maintenir les deux formats conditionnels ?

D'autre part, lorsque par macro je fais un calcul "pas à pas" dans
différentes lignes et différentes colonnes, le déroulement de la macro passe
à chaque changement par Calculate du Private Sub.

Est-il possible de suspendre la fonction pendant le déroulement de la macro
?

Merci d'avance

Cordialement

Gérard


"jb" a écrit dans le message de
news:
Bonjour,

Voici une autre solution MFEC qui préserve les couleurs:


-Sélectionner le champ A2:D16
-Format/Mise en forme Conditionnelle
=LIGNE()ÎLLULE("ligne")


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

http://cjoint.com/?lmgWbpxtU0

JB
Avatar
jb
Il suffit de mettre le format indiqué en première position. Il sera
prioritaire sur les autres.

Cordialement JB
Avatar
G. L
Elémentaire ! est-ce pas ;)

Merci Jacques.



"jb" a écrit dans le message de
news:
Il suffit de mettre le format indiqué en première position. Il sera
prioritaire sur les autres.

Cordialement JB