XL 2016 Surligner ligne du curseur

[jessica85190]

Bonjour,
Je n'arrive pas à ajouter de macro sur mon Excel pour surligner ou souligner toute la ligne de mon curseur.
Pouvez-vous m'explique toutes les étapes pour l'ajouter.
J'ai trouvé ce type de code :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set champ = [B3:E21]
If Not Intersect(champ, Target) Is Nothing Then
On Error Resume Next
Shapes("curseurH").Visible = True
If Err <> 0 Then ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 1, 1, 1000, 1).Name = "curseurH"
ActiveSheet.Shapes("curseurH").Line.ForeColor.RGB = RGB(255, 0, 0)
Shapes("curseurH").Top = ActiveCell.Top + ActiveCell.Height
Shapes("curseurH").Height = 1
Shapes("curseurH").Width = champ.Width
Shapes("curseurH").Left = champ.Left
ActiveSheet.Shapes("curseurv").Line.ForeColor.RGB = RGB(255, 0, 0)
Else
On Error Resume Next
Shapes("curseurH").Visible = False
End If
End Sub

Merci

 

[Dranreb]

Bonjour.
Pourquoi avez vous besoin de Shape pour ça ?
Une mise en forme conditionnelle ne ferait-elle pas l'affaire ?
Il suffirait de mettre à jour un nom dans la feuille qui donnerait le numéro de la ligne sélectionnée, et une MFC par formule =LIGNE()=LCou

 

[jessica85190]

Bonjour.
Pourquoi avez vous besoin de Shape pour ça ?
Une mise en forme conditionnelle ne ferait-elle pas l'affaire ?
Il suffirait de mettre à jour un nom dans la feuille qui donnerait le numéro de la ligne sélectionnée, et une MFC par formule =LIGNE()=LCou

Je ne vois pas bien ce que vous voulez dire ! pourriez vous être plus précis ?

 

[Dranreb]

Il suffirait de mettre à jour un nom dans la feuille qui donnerait le numéro de la ligne sélectionnée, et une MFC par formule =LIGNE()=LCou

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Me.[B3:E21], Target) Is Nothing Then Exit Sub
    Me.Names.Add "LCou", Target.Row
    End Sub

 

[jessica85190]

Il suffirait de mettre à jour un nom dans la feuille qui donnerait le numéro de la ligne sélectionnée, et une MFC par formule =LIGNE()=LCou

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Me.[B3:E21], Target) Is Nothing Then Exit Sub
    Me.Names.Add "LCou", Target.Row
    End Sub

Je n'y connais rien, pouvez-vous m'expliquer comment insérer cela ?

 

[Dranreb]

Clic droit sur l'onglet, Visualiser le code, collez le code dans la fenêtre de code.
Ça remplace votre procédure en somme, alors vous devriez savoir le faire. Ensuite :

 

[jessica85190]

C

Clic droit sur l'onglet, Visualiser le code, collez le code dans la fenêtre de code.
Ça remplace votre procédure en somme, alors vous devriez savoir le faire. Ensuite :
Regarde la pièce jointe 1057209

Ca ne fonctionne pas :/ Je vous joins le fichier, pourriez vous l'intégrer sur le deuxième onglet ?

 

[Dranreb]

Joignez le .xlsm, il n'y a pas de macro dans un .xlsx.

 

[jessica85190]

Voila

 

[Dranreb]

Bonjour.
Le nom "LCou" de la feuille "Suivi activité 2020" est bien corrigé quand on sélectionne une ligne de la plage B3:E21
Mais il n'y existe pas de mise en forme conditionnelle qui l'exploite par la formule "=LIGNE()=LCou".

 

[BOISGONTIER]

Bonjour,

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

Boisgontier

 

[jessica85190]

Le résultat n'est pas glorieux !

 

[Dranreb]

Ben le résultat dépend de la MFC, bien sûr !

 

[Dranreb]

Par exemple ce test élaboré à partir de votre classeur surligne bien, je trouve, la ligne contenant la cellule sélectionnée.
J'ai changé la plage touchée parce que celle que vous aviez indiquée ne me semblait pas avoir beaucoup de sens dans cette feuille.