Logo GNT
Actualités Tests & Guides Bons Plans
Gemini 3 Shein GTA 6 iPhone 17 Switch 2 ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Mise en surbrillance

Mise en surbrillance

9 réponses
Avatar
michel-hirard
Bonjour,

Je souhaiterais mettre en surbrillance (fond rouge par exemple) la ligne
correspondant à la cellule sélectionnée.
Il faut bien sûr que la ligne en surbrillance change suivant la cellule
sélectionnée et soit applicable à n'importe quelle feuille.
Je pense qu'il faut passer par une macro que je n'arrive pas à écrire

Je crois que cette technique pourrai rendre de grands services à ceux qui,
comme moi, doivent travailler sur de véritables "draps de lit"

Merci pour votre aide,

Michel
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ChrisV
Bonjour Michel,

Dans la feuille de code de l'onglet concerné...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 3
' et si tu veux ajouter la sélection de la colonne
' .EntireColumn.Interior.ColorIndex = 3
End With
End Sub


ChrisV


"michel-hirard" a écrit dans le message de news:
c0njeb$895$
Bonjour,

Je souhaiterais mettre en surbrillance (fond rouge par exemple) la ligne
correspondant à la cellule sélectionnée.
Il faut bien sûr que la ligne en surbrillance change suivant la cellule
sélectionnée et soit applicable à n'importe quelle feuille.
Je pense qu'il faut passer par une macro que je n'arrive pas à écrire

Je crois que cette technique pourrai rendre de grands services à ceux qui,
comme moi, doivent travailler sur de véritables "draps de lit"

Merci pour votre aide,

Michel




Avatar
michdenis
Bonjour Michel,

Essaie ceci :

Copie ce qui suit dans le ThisWorkbook de ton classeur :

'-------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Cells.Interior.ColorIndex = xlNone
Cells.Font.ColorIndex = xlAutomatic
Target.EntireRow.Interior.ColorIndex = 3
Target.EntireRow.Font.ColorIndex = 24

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


Salutations!



"michel-hirard" a écrit dans le message de news:c0njeb$895$
Bonjour,

Je souhaiterais mettre en surbrillance (fond rouge par exemple) la ligne
correspondant à la cellule sélectionnée.
Il faut bien sûr que la ligne en surbrillance change suivant la cellule
sélectionnée et soit applicable à n'importe quelle feuille.
Je pense qu'il faut passer par une macro que je n'arrive pas à écrire

Je crois que cette technique pourrai rendre de grands services à ceux qui,
comme moi, doivent travailler sur de véritables "draps de lit"

Merci pour votre aide,

Michel
Avatar
Titus
Bonjour,
Comment faire si je veux la même chose mais avec la ligne A:E
Merci
Titus

"ChrisV" a écrit dans le message de
news:%23DIW$
Bonjour Michel,

Dans la feuille de code de l'onglet concerné...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 3
' et si tu veux ajouter la sélection de la colonne
' .EntireColumn.Interior.ColorIndex = 3
End With
End Sub


ChrisV


"michel-hirard" a écrit dans le message de
news:

c0njeb$895$
Bonjour,

Je souhaiterais mettre en surbrillance (fond rouge par exemple) la ligne
correspondant à la cellule sélectionnée.
Il faut bien sûr que la ligne en surbrillance change suivant la cellule
sélectionnée et soit applicable à n'importe quelle feuille.
Je pense qu'il faut passer par une macro que je n'arrive pas à écrire

Je crois que cette technique pourrai rendre de grands services à ceux
qui,


comme moi, doivent travailler sur de véritables "draps de lit"

Merci pour votre aide,

Michel








Avatar
Céline Brien
Salut Michel,
L'utilitaire Repère de Gaëtan Mourmant est la réponse à tes besoins.
http://www.polykromy.com/
Céline

"michel-hirard" a écrit dans le message de
news:c0njeb$895$
Bonjour,

Je souhaiterais mettre en surbrillance (fond rouge par exemple) la
ligne

correspondant à la cellule sélectionnée.
Il faut bien sûr que la ligne en surbrillance change suivant la
cellule

sélectionnée et soit applicable à n'importe quelle feuille.
Je pense qu'il faut passer par une macro que je n'arrive pas à écrire

Je crois que cette technique pourrai rendre de grands services à ceux
qui,

comme moi, doivent travailler sur de véritables "draps de lit"

Merci pour votre aide,

Michel




Avatar
ChrisV
Bonjour Titus,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iR As Long
Application.ScreenUpdating = False
iR = ActiveCell.Row
Columns("A:E").Interior.ColorIndex = xlNone
Range("A" & iR & ":E" & iR) _
.Interior.ColorIndex = 3
End Sub


ChrisV


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

Bonjour,
Comment faire si je veux la même chose mais avec la ligne A:E
Merci
Titus

"ChrisV" a écrit dans le message de
news:%23DIW$
Bonjour Michel,

Dans la feuille de code de l'onglet concerné...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 3
' et si tu veux ajouter la sélection de la colonne
' .EntireColumn.Interior.ColorIndex = 3
End With
End Sub


ChrisV


"michel-hirard" a écrit dans le message de
news:

c0njeb$895$
Bonjour,

Je souhaiterais mettre en surbrillance (fond rouge par exemple) la
ligne



correspondant à la cellule sélectionnée.
Il faut bien sûr que la ligne en surbrillance change suivant la
cellule



sélectionnée et soit applicable à n'importe quelle feuille.
Je pense qu'il faut passer par une macro que je n'arrive pas à écrire

Je crois que cette technique pourrai rendre de grands services à ceux
qui,


comme moi, doivent travailler sur de véritables "draps de lit"

Merci pour votre aide,

Michel












Avatar
ChrisV
Re,

Si l'action doit se réaliser uniquement lorsque la cellule active est dans
la zone A:E...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iR As Long
If Target.Column < 6 Then
Application.ScreenUpdating = False
iR = ActiveCell.Row
Columns("A:E").Interior.ColorIndex = xlNone
Range("A" & iR & ":E" & iR) _
.Interior.ColorIndex = 3
End If
End Sub


ChrisV


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

Bonjour,
Comment faire si je veux la même chose mais avec la ligne A:E
Merci
Titus

"ChrisV" a écrit dans le message de
news:%23DIW$
Bonjour Michel,

Dans la feuille de code de l'onglet concerné...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 3
' et si tu veux ajouter la sélection de la colonne
' .EntireColumn.Interior.ColorIndex = 3
End With
End Sub


ChrisV


"michel-hirard" a écrit dans le message de
news:

c0njeb$895$
Bonjour,

Je souhaiterais mettre en surbrillance (fond rouge par exemple) la
ligne



correspondant à la cellule sélectionnée.
Il faut bien sûr que la ligne en surbrillance change suivant la
cellule



sélectionnée et soit applicable à n'importe quelle feuille.
Je pense qu'il faut passer par une macro que je n'arrive pas à écrire

Je crois que cette technique pourrai rendre de grands services à ceux
qui,


comme moi, doivent travailler sur de véritables "draps de lit"

Merci pour votre aide,

Michel












Avatar
michel-hirard
Re-bonjour, et merci à vous tous, ChrisV, Titus, michdenis et Céline

Pour Céline qui m'indique le site de Gaëtan Mourmant que je fréquente assez
souvent (à recommander) je crois que j'ai été le premier à expérimenter sa
macro il y a bien deux ans; elle ne fonctionnait pas correctement et je la
trouvais bien compliquée... mais il l'a peut être modifiée depuis.
La proposition de michdenis me convient parfaitement mais celle de ChrisV
fonctionne très bien dans un feuille

Merci encore à tous vous êtes des cador

Michel,

"michel-hirard" a écrit dans le message de
news:c0njeb$895$
Bonjour,

Je souhaiterais mettre en surbrillance (fond rouge par exemple) la ligne
correspondant à la cellule sélectionnée.
Il faut bien sûr que la ligne en surbrillance change suivant la cellule
sélectionnée et soit applicable à n'importe quelle feuille.
Je pense qu'il faut passer par une macro que je n'arrive pas à écrire

Je crois que cette technique pourrai rendre de grands services à ceux qui,
comme moi, doivent travailler sur de véritables "draps de lit"

Merci pour votre aide,

Michel




Avatar
Titus
Thanks a lot ChrisV
Titus

"ChrisV" a écrit dans le message de
news:%
Re,

Si l'action doit se réaliser uniquement lorsque la cellule active est dans
la zone A:E...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iR As Long
If Target.Column < 6 Then
Application.ScreenUpdating = False
iR = ActiveCell.Row
Columns("A:E").Interior.ColorIndex = xlNone
Range("A" & iR & ":E" & iR) _
.Interior.ColorIndex = 3
End If
End Sub


ChrisV


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

Bonjour,
Comment faire si je veux la même chose mais avec la ligne A:E
Merci
Titus

"ChrisV" a écrit dans le message de
news:%23DIW$
Bonjour Michel,

Dans la feuille de code de l'onglet concerné...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 3
' et si tu veux ajouter la sélection de la colonne
' .EntireColumn.Interior.ColorIndex = 3
End With
End Sub


ChrisV


"michel-hirard" a écrit dans le message de
news:

c0njeb$895$
Bonjour,

Je souhaiterais mettre en surbrillance (fond rouge par exemple) la
ligne



correspondant à la cellule sélectionnée.
Il faut bien sûr que la ligne en surbrillance change suivant la
cellule



sélectionnée et soit applicable à n'importe quelle feuille.
Je pense qu'il faut passer par une macro que je n'arrive pas à
écrire





Je crois que cette technique pourrai rendre de grands services à
ceux




qui,
comme moi, doivent travailler sur de véritables "draps de lit"

Merci pour votre aide,

Michel
















Avatar
Gaetan Mourmant
Suivant de loin le forum, peux-tu me dire les problèmes que tu as
rencontrés.

L'intérêt de ma macro est qu'elle laisse les formats intacts, mais
effectivement, elle est plus compliquée que les autres propositions.
Page directe de la macro : http://www.polykromy.com/nl/nl6/nl6.html

Merci d'avance

--
Gaetan Mourmant
www.polykromy.com
Consultation - Formation
Excel - Data mining

"michel-hirard" a écrit dans le message de
news: c0oaid$3u7$
Re-bonjour, et merci à vous tous, ChrisV, Titus, michdenis et Céline

Pour Céline qui m'indique le site de Gaëtan Mourmant que je fréquente
assez

souvent (à recommander) je crois que j'ai été le premier à
expérimenter sa

macro il y a bien deux ans; elle ne fonctionnait pas correctement et
je la

trouvais bien compliquée... mais il l'a peut être modifiée depuis.
La proposition de michdenis me convient parfaitement mais celle de
ChrisV

fonctionne très bien dans un feuille

Merci encore à tous vous êtes des cador

Michel,

"michel-hirard" a écrit dans le message de
news:c0njeb$895$
Bonjour,

Je souhaiterais mettre en surbrillance (fond rouge par exemple) la
ligne


correspondant à la cellule sélectionnée.
Il faut bien sûr que la ligne en surbrillance change suivant la
cellule


sélectionnée et soit applicable à n'importe quelle feuille.
Je pense qu'il faut passer par une macro que je n'arrive pas à
écrire



Je crois que cette technique pourrai rendre de grands services à
ceux qui,


comme moi, doivent travailler sur de véritables "draps de lit"

Merci pour votre aide,

Michel