Ligne en couleur

[christianpearl]

Bonjour, je ne suis pas très fort en macro,
je cherche à faire en sorte que la ligne sur laquelle je travaillesoit en couleur donc quand je ne suis plus dessus, elle revient à sa couleur d'origine.
Merci

 

[BOISGONTIER]

Re : Ligne en couleur

Bonjour,

http://boisgontierjacques.free.fr/fichiers/jb-Curseur.xls

JB

 

[DoubleZero]

Re : Ligne en couleur

Bonjour, BOISGONTIER, et merci pour ces cadeaux.

Cordialement,

00 🙂🙂

 

[christianpearl]

Re : Ligne en couleur

bonjour,
"cette opération a été annulé a cause de restriction sur cet ordinateur", voilà le message qui apparaît quand je clic sur "ligne couleur" de votre tableau,
sachant que je cherche une solution pour un tableau dont je me sers sur mon lieu de travail, avec XP, et la actuellement je suis sur mon micro perso avec windos 7. ???

 

[eutrophisation]

Re : Ligne en couleur

Je te propose ce code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set champ = Range("a5:f100")
If Not Intersect(champ, Target) Is Nothing And Target.Count = 1 Then
champ.Interior.ColorIndex = xlNone
col1 = champ.Column
col2 = col1 + champ.Columns.Count - 1
Range(Cells(Target.Row, col1), Cells(Target.Row, col2)).Interior.ColorIndex = 35
Dim plg
Set plg = Intersect(Rows(Target.Row), Range("a5:f100"))
If Target.Rows.Count = 1 And Not plg Is Nothing Then [hq2358].Value = plg.Value
End If
End Sub

 

[christianpearl]

Re : Ligne en couleur

Bonjour,
j'ai essayé cette macro, mais cela n'a rien fait, peut être ai je mal "entré" cette macro,
je crée la macro, je met cette formule mais je ne suis pas sur de l'avoir fait correctement,
je dois passer par VBA ou quand je crée la macro ?
SIC

 

[eutrophisation]

Re : Ligne en couleur

Voici un exemple

 

[christianpearl]

Re : Ligne en couleur

Voici un exemple

Bonjour,
j'ai utilisé cet exemple et ça fonctionne,
merci beaucoup