Coloriage de la ligne
duduleray
-
duduleray -
duduleray -
Bonjour a tous et toutes, forum bonjour
Voila j'ai avancer un peu, mais la je suis coincer.
La barre de repère doit suivre en fait les déplacements de la souris et lorsque que l'on atteinds la ligne interressée on click et la barre change de couleur (37) par exemple et redeviens bleu (36) lors d'un nouveau click
Je sollicite SVP votre aide car je ne sais pas faire pour que la barre suive la molette de la souris.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If Not Intersect([A4:O28], Target) Is Nothing And .Count = 1 Then
[A4:O28].Interior.ColorIndex = xlNone
Range(Cells(.Row, 1), Cells(.Row, 14)).Interior.ColorIndex = 36
End If
End With
End Sub
Merci d'avance et très bonne journée excel 2007
Raymond
Voila j'ai avancer un peu, mais la je suis coincer.
La barre de repère doit suivre en fait les déplacements de la souris et lorsque que l'on atteinds la ligne interressée on click et la barre change de couleur (37) par exemple et redeviens bleu (36) lors d'un nouveau click
Je sollicite SVP votre aide car je ne sais pas faire pour que la barre suive la molette de la souris.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If Not Intersect([A4:O28], Target) Is Nothing And .Count = 1 Then
[A4:O28].Interior.ColorIndex = xlNone
Range(Cells(.Row, 1), Cells(.Row, 14)).Interior.ColorIndex = 36
End If
End With
End Sub
Merci d'avance et très bonne journée excel 2007
Raymond
Configuration: Windows Vista Internet Explorer 7.0
2 réponses
-
Salut,
En plus de ton code, tu devrais en ajouter un autre
ci-dessous pour un double clic
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If Not Intersect([A4:O28], Target) Is Nothing And .Count = 1 Then
[A4:O28].Interior.ColorIndex = xlNone
Range(Cells(.Row, 1), Cells(.Row, 14)).Interior.ColorIndex = 37
End If
End With
End Sub
Ou celui-ci pour interréagir avec un clic droit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
With Target
If Not Intersect([A4:O28], Target) Is Nothing And .Count = 1 Then
[A4:O28].Interior.ColorIndex = xlNone
Range(Cells(.Row, 1), Cells(.Row, 14)).Interior.ColorIndex = 37
End If
End With
End Sub
A+
Mike-31
Un problème sans solution est un problème mal posé (Einstein)-
Salut Mike, forum,
Merci pour ta réponse, ca marche bien, je n'avais pas penser comme ca mais ca me va bien
Par contre tu saurai comment faire pour que la barre qui colore les lignes suivent la montée ou descente avec la molette de la souris, j'espère bien me faire comprendre sinon demande moi.
A plus tard je remercie pour le code
Bonne après midi
Raymond
-
-
Re,
J’avais travaillé sur cette possibilité de déplacement à la molette, mais je ne me souviens pas si j'y étais arrivé, il est vrai que ça pourrait être une intéressante possibilité. Si tu trouves, mets la solution sur cette discussion et de mon côté je vais faire des recherches
A+
Mike-31
Un problème sans solution est un problème mal posé (Einstein)
