changer couleur de la ligne sélectionnée

[Vivien]

Bonjour le forum,
Je suppose que ce sujet a déjà été traité dans le forum mais je n'ai rien trouvé dans les anciens posts !!! Voilà, je souhaiterais changer la couleur de la ligne de la cellule sélectionnée mais que la couleur d'origine de cette ligne ne soit pas effacée lorsque je sélectionne une autre cellule (autre ligne). Merci
Bonne journée.
Vivien

 

[Michel]

Bonjour
Dans le menu 'Mise en forme' selectionner :
Bordures
puis Traçages de bordures
Selectionner ensuite la couleur du trait (icone de droite)
et avec le crayon on peut changer n'importe qu'elle trait d'une cellule...
bon we de paques
Michel

 

[pierrejean]

bonjour vivien

tu peux tester cela:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows.Interior.ColorIndex = 2
Target.Rows.Interior.ColorIndex = 6
End Sub

 

[Hervé]

bonjour vivien, michel
salut pierrejean

si ta feuille ne contient pas de mise en forme conditionnelle, tu peux utiliser ce type de code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete

With Rows(Target.Row)
.FormatConditions.Add Type:=xlExpression, Formula1:='=1=1'
.FormatConditions(1).Interior.ColorIndex = 6
End With
End Sub

tu conserves grace à ce code les couleurs placées manuellement.

salut

Message édité par: hervé, à: 14/04/2006 09:07

 

[PascalXLD]

Bonjour

Je propose ceci si j'ai bien compris

Public MaLigne As Integer
Public MaCouleur As Variant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If MaLigne ‹› 0 Then
    Rows(MaLigne).Interior.ColorIndex = MaCouleur
End If
MaLigne = Target.Row
MaCouleur = Range('A' & MaLigne).Interior.ColorIndex
Rows(MaLigne).Interior.ColorIndex = 6
End Sub

 

[PascalXLD]

Re

Oups too late et jolie solution Hervé

 

[Vivien]

Bonjour le Forum, Michel, Pierrejean, Hervé, Pascal,

Je vous remercie pour votre précieuse aide.
Je viens de tester la macro d'Hervé, c'est exactement ce que je souhaitais.
Encore merci et un bon week-end de Pâques.

Vivien

 

[Vivien]

Oups ... J'ai encore une petite question : Comment modifier la macro d'Hervé pour que ne soit concerné la ligne formée par les cellules des colonnes A à S ? Merci.

 

[Hervé]

re tout le monde
salut pascal(merci )

comme ceci, vivien :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete

With Target
        With Range(Cells(.Row, 'A'), Cells(.Row, 'S'))
                .FormatConditions.Add Type:=xlExpression, Formula1:='=1=1'
                .FormatConditions(1).Interior.ColorIndex = 6
        End With
End With

End Sub

salut

 

[pierrejean]

hello Hervé ,Pascal

2 solutions superbes

@ Hervé
il m'a fallu un bonne minute pour comprendre =1=1

 

[Vivien]

Merci Hervé, c'est exactement ce que je souhaitais.

 

[Dan]

Bonjour,

Peut être trop tard pour Vivien mais petite macro que j'avais réalisée ici -->Dans un tableau, appliquer une couleur à une ligne
.

Si les couleurs de fond sont appliquées par mise en forme conditionnelle, elles resteront en place.
Si les couleurs sont appliquées comme couleur de fond, la seule solution est d'ajouter un code pour éviter la disparation de cette couleur de fond.

 

[Gipéhel]

Bonjour Hervé , le forum,
Désolé mais après un certain temps de réflexion, je n'ai pas trouvé le pourquoi du '=1=1'.
Que de chemin encore à parcourir ....
JPL.

 

[pierrejean]

bonjour Gipehel

voici ce que j'ais compris:

il s'agit d'un format conditionnel qui est vrai si 1=1 (ce qui arrive frequemment !!!) d'ou la formule
= 1=1

sous reserve de confirmation

 

[Gipéhel]

Bonjour pierrejean, le forum,
J'avais bien vu que c'était une MFC, mais je n'ai toujours pas compris le '=1=1'. 1 n'est-il pas toujours égal à 1 ?
Merci quand même.
Mon cerveau doit être plus petit que celui de Robert !!!
JPL.