Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Ligne de la cellule active colorée

Ligne de la cellule active colorée

6 réponses
Avatar
xem
Bonjour/soir,

J'aimerais surligné avec une couleur la ligne contenant ActiveCell dans une
plage A1;H20,
ActiveCell serait déplacée sur la colonne B.
Un exemple pour me faire comprendre:
- ActiveCell = B3 ===> le fond des cellules de la plage A3;H3 devient jaune
- ActiveCell = B10 ===> le fond des cellules de la plage A3;H3 devient
xlNone et la la plage A10;H10 jaune.

Est-il possible en même temps qu' ActiveCell soit d'une autre couleur
que le jaune?
J'ai vu quelque chose dans le genre sur le fil de " Caroline L."dans le
message
news:ur40d.22989$FX3.217475@weber.videotron.net... du 10/09/04 à 00h05,
mais étant novice je suis incapable de l'adapter.

Autre demande, que signifie " Target ", je n' ai rien trouvé
dans F1 à part CurTargetX et TargetBrowser ?

Souhaitant ne pas perturber votre WE, merci d'avance.

Cordiales salutations.
Xem
Signaler un problème avec ce contenu

6 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
Philippe.R
Bonsoir xem,
Target signifie cible et correspond à la cellule active.

Procédure à coller dans le module de la feuille concernée :

'----------------------------debut de copie------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'MPFE le 11/09/2004
If Target.Row > 20 Or Target.Column < 2 Or Target.Column > 8 Then Exit Sub
Range("a1:h20").Interior.ColorIndex = xlNone
Range("a" & Target.Row & ": h" & Target.Row).Interior.ColorIndex = 6
End Sub
'---------------------------------fin de copie-----------------------------------
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"xem" a écrit dans le message de news:41432fa3$0$21753$
Bonjour/soir,

J'aimerais surligné avec une couleur la ligne contenant ActiveCell dans une
plage A1;H20,
ActiveCell serait déplacée sur la colonne B.
Un exemple pour me faire comprendre:
- ActiveCell = B3 ===> le fond des cellules de la plage A3;H3 devient jaune
- ActiveCell = B10 ===> le fond des cellules de la plage A3;H3 devient
xlNone et la la plage A10;H10 jaune.

Est-il possible en même temps qu' ActiveCell soit d'une autre couleur
que le jaune?
J'ai vu quelque chose dans le genre sur le fil de " Caroline L."dans le
message
news:ur40d.22989$ du 10/09/04 à 00h05,
mais étant novice je suis incapable de l'adapter.

Autre demande, que signifie " Target ", je n' ai rien trouvé
dans F1 à part CurTargetX et TargetBrowser ?

Souhaitant ne pas perturber votre WE, merci d'avance.

Cordiales salutations.
Xem





Avatar
xem
Bonsoir Philippe.R,

Merci beaucoup, mais pour ActivCell de couleur différente
t'as une idée ?
Te presse pas car ce soir je vais au resto.

Bonne soirée

Xem

"Philippe.R" a écrit dans le message de
news:
Bonsoir xem,
Target signifie cible et correspond à la cellule active.

Procédure à coller dans le module de la feuille concernée :

'----------------------------debut de
copie------------------------------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'MPFE le 11/09/2004
If Target.Row > 20 Or Target.Column < 2 Or Target.Column > 8 Then Exit Sub
Range("a1:h20").Interior.ColorIndex = xlNone
Range("a" & Target.Row & ": h" & Target.Row).Interior.ColorIndex = 6
End Sub
'---------------------------------fin de
copie-----------------------------------

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"xem" a écrit dans le message de
news:41432fa3$0$21753$

Bonjour/soir,

J'aimerais surligné avec une couleur la ligne contenant ActiveCell dans
une


plage A1;H20,
ActiveCell serait déplacée sur la colonne B.
Un exemple pour me faire comprendre:
- ActiveCell = B3 ===> le fond des cellules de la plage A3;H3 devient
jaune


- ActiveCell = B10 ===> le fond des cellules de la plage A3;H3 devient
xlNone et la la plage A10;H10 jaune.

Est-il possible en même temps qu' ActiveCell soit d'une autre couleur
que le jaune?
J'ai vu quelque chose dans le genre sur le fil de " Caroline L."dans le
message
news:ur40d.22989$ du 10/09/04 à 00h05,
mais étant novice je suis incapable de l'adapter.

Autre demande, que signifie " Target ", je n' ai rien trouvé
dans F1 à part CurTargetX et TargetBrowser ?

Souhaitant ne pas perturber votre WE, merci d'avance.

Cordiales salutations.
Xem









Avatar
xx
Bonsoir Philippe.R,

Merci beaucoup, mais pour ActivCell de couleur différente
t'as une idée ?


Moi je propose ça, dérivé de la précédente et excellente contribution :
'----------------------------debut de
copie------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'MPFE le 11/09/2004
If Target.Row > 20 Or Target.Column > 8 Then
Range("a1:h20").Interior.ColorIndex = xlNone
Exit Sub
End If
Range("a1:h20").Interior.ColorIndex = xlNone
Range("a" & Target.Row & ": h" & Target.Row).Interior.ColorIndex = 6
Cells(Target.Row, 2).Select
End Sub
'---------------------------------fin de
copie-------------------------------------

Te presse pas car ce soir je vais au resto.


C'était bon ?

Avatar
RaMA
Bonsoir
CibleSel (ou Target ) ====> sélection en cours

Private Sub Worksheet_SelectionChange(ByVal CibleSel As Range)
Range("a1:h20").Interior.ColorIndex = xlNone
If CibleSel.Row > 20 Or CibleSel.Column < 1 Or CibleSel.Column > 8 Then Exit
Sub
Range("a" & CibleSel.Row & ": h" & CibleSel.Row).Interior.ColorIndex = 6
If CibleSel.Column < 2 Or CibleSel.Column > 8 Then Cells(CibleSel.Row,
2).Select
ActiveCell.Interior.ColorIndex = 8
End Sub

Salutations
RaMa
--
.
"xem" a écrit dans le message de news:
41433f52$0$21768$
Bonsoir Philippe.R,

Merci beaucoup, mais pour ActivCell de couleur différente
t'as une idée ?
Te presse pas car ce soir je vais au resto.

Bonne soirée

Xem

"Philippe.R" a écrit dans le message de
news:
Bonsoir xem,
Target signifie cible et correspond à la cellule active.

Procédure à coller dans le module de la feuille concernée :

'----------------------------debut de
copie------------------------------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'MPFE le 11/09/2004
If Target.Row > 20 Or Target.Column < 2 Or Target.Column > 8 Then Exit
Sub
Range("a1:h20").Interior.ColorIndex = xlNone
Range("a" & Target.Row & ": h" & Target.Row).Interior.ColorIndex = 6
End Sub
'---------------------------------fin de
copie-----------------------------------

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"xem" a écrit dans le message de
news:41432fa3$0$21753$

Bonjour/soir,

J'aimerais surligné avec une couleur la ligne contenant ActiveCell
dans
une


plage A1;H20,
ActiveCell serait déplacée sur la colonne B.
Un exemple pour me faire comprendre:
- ActiveCell = B3 ===> le fond des cellules de la plage A3;H3 devient
jaune


- ActiveCell = B10 ===> le fond des cellules de la plage A3;H3 devient
xlNone et la la plage A10;H10 jaune.

Est-il possible en même temps qu' ActiveCell soit d'une autre couleur
que le jaune?
J'ai vu quelque chose dans le genre sur le fil de " Caroline L."dans le
message
news:ur40d.22989$ du 10/09/04 à 00h05,
mais étant novice je suis incapable de l'adapter.

Autre demande, que signifie " Target ", je n' ai rien trouvé
dans F1 à part CurTargetX et TargetBrowser ?

Souhaitant ne pas perturber votre WE, merci d'avance.

Cordiales salutations.
Xem













Avatar
Philippe.R
Bonsoir xem,
cette version convient elle ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'MPFE le 11/09/2004 v2
Dim LiG As Long
LiG = Target.Row
If LiG > 20 Or Target.Column > 8 Then Exit Sub
Cells(LiG, 2).Select
Range("a1:h20").Interior.ColorIndex = xlNone
Range("a" & LiG & ": h" & LiG).Interior.ColorIndex = 6
Cells(LiG, 2).Interior.ColorIndex = 7
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"xem" a écrit dans le message de news:41433f52$0$21768$
Bonsoir Philippe.R,

Merci beaucoup, mais pour ActivCell de couleur différente
t'as une idée ?
Te presse pas car ce soir je vais au resto.

Bonne soirée

Xem

"Philippe.R" a écrit dans le message de
news:
Bonsoir xem,
Target signifie cible et correspond à la cellule active.

Procédure à coller dans le module de la feuille concernée :

'----------------------------debut de
copie------------------------------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'MPFE le 11/09/2004
If Target.Row > 20 Or Target.Column < 2 Or Target.Column > 8 Then Exit Sub
Range("a1:h20").Interior.ColorIndex = xlNone
Range("a" & Target.Row & ": h" & Target.Row).Interior.ColorIndex = 6
End Sub
'---------------------------------fin de
copie-----------------------------------

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"xem" a écrit dans le message de
news:41432fa3$0$21753$

Bonjour/soir,

J'aimerais surligné avec une couleur la ligne contenant ActiveCell dans
une


plage A1;H20,
ActiveCell serait déplacée sur la colonne B.
Un exemple pour me faire comprendre:
- ActiveCell = B3 ===> le fond des cellules de la plage A3;H3 devient
jaune


- ActiveCell = B10 ===> le fond des cellules de la plage A3;H3 devient
xlNone et la la plage A10;H10 jaune.

Est-il possible en même temps qu' ActiveCell soit d'une autre couleur
que le jaune?
J'ai vu quelque chose dans le genre sur le fil de " Caroline L."dans le
message
news:ur40d.22989$ du 10/09/04 à 00h05,
mais étant novice je suis incapable de l'adapter.

Autre demande, que signifie " Target ", je n' ai rien trouvé
dans F1 à part CurTargetX et TargetBrowser ?

Souhaitant ne pas perturber votre WE, merci d'avance.

Cordiales salutations.
Xem













Avatar
xem
Merci xx, RaMa et PhilippeR,

Je viens de passer une exelente soirée ,
je découvre vos solutions, mais je crois
qu'il serait plus résonnable que j'essaie
d'analyser et comprendre demain à tête reposée.

Merci, bonne nuit .
Xem


"Philippe.R" a écrit dans le message de
news:
Bonsoir xem,
cette version convient elle ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'MPFE le 11/09/2004 v2
Dim LiG As Long
LiG = Target.Row
If LiG > 20 Or Target.Column > 8 Then Exit Sub
Cells(LiG, 2).Select
Range("a1:h20").Interior.ColorIndex = xlNone
Range("a" & LiG & ": h" & LiG).Interior.ColorIndex = 6
Cells(LiG, 2).Interior.ColorIndex = 7
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"xem" a écrit dans le message de
news:41433f52$0$21768$

Bonsoir Philippe.R,

Merci beaucoup, mais pour ActivCell de couleur différente
t'as une idée ?
Te presse pas car ce soir je vais au resto.

Bonne soirée

Xem

"Philippe.R" a écrit dans le message de
news:
Bonsoir xem,
Target signifie cible et correspond à la cellule active.

Procédure à coller dans le module de la feuille concernée :

'----------------------------debut de
copie------------------------------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'MPFE le 11/09/2004
If Target.Row > 20 Or Target.Column < 2 Or Target.Column > 8 Then Exit
Sub



Range("a1:h20").Interior.ColorIndex = xlNone
Range("a" & Target.Row & ": h" & Target.Row).Interior.ColorIndex = 6
End Sub
'---------------------------------fin de
copie-----------------------------------

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"xem" a écrit dans le message de
news:41432fa3$0$21753$

Bonjour/soir,

J'aimerais surligné avec une couleur la ligne contenant ActiveCell
dans




une
plage A1;H20,
ActiveCell serait déplacée sur la colonne B.
Un exemple pour me faire comprendre:
- ActiveCell = B3 ===> le fond des cellules de la plage A3;H3
devient




jaune
- ActiveCell = B10 ===> le fond des cellules de la plage A3;H3
devient




xlNone et la la plage A10;H10 jaune.

Est-il possible en même temps qu' ActiveCell soit d'une autre
couleur




que le jaune?
J'ai vu quelque chose dans le genre sur le fil de " Caroline L."dans
le




message
news:ur40d.22989$ du 10/09/04 à
00h05,




mais étant novice je suis incapable de l'adapter.

Autre demande, que signifie " Target ", je n' ai rien trouvé
dans F1 à part CurTargetX et TargetBrowser ?

Souhaitant ne pas perturber votre WE, merci d'avance.

Cordiales salutations.
Xem