changer couleur de la ligne sélectionnée

M

Michel

Guest

• 14 Avril 2006

• #2

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 14 Avril 2006

• #3

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 14 Avril 2006

• #4

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

Cliquez pour agrandir...

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

salut

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 14 Avril 2006

• #5

Bonjour

Je propose ceci si j'ai bien compris

Public MaLigne As Integer
Public MaCouleur As Variant

Cliquez pour agrandir...

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 14 Avril 2006

• #6

Re

Oups too late et jolie solution Hervé

 

Vote positif 0 Vote négatif

V

Vivien

Guest

• 14 Avril 2006

• #7

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

 

Vote positif 0 Vote négatif

V

Vivien

Guest

• 14 Avril 2006

• #8

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.

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 14 Avril 2006

• #9

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

Cliquez pour agrandir...

salut

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 14 Avril 2006

• #10

hello Hervé ,Pascal

2 solutions superbes

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

 

Vote positif 0 Vote négatif

V

Vivien

Guest

• 14 Avril 2006

• #11

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

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 14 Avril 2006

• #12

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.

 

Vote positif 0 Vote négatif

G

Gipéhel

XLDnaute Occasionnel

• 14 Avril 2006

• #13

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.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 14 Avril 2006

• #14

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

 

Vote positif 0 Vote négatif

G

Gipéhel

XLDnaute Occasionnel

• 14 Avril 2006

• #15

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.

 

Vote positif 0 Vote négatif