XL 2016 Surligner ligne du curseur

jessica85190

XLDnaute Nouveau
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

XLDnaute Barbatruc
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
 

Dranreb

XLDnaute Barbatruc
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
VB:
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

XLDnaute Nouveau
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
VB:
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

XLDnaute Barbatruc
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 :
1583331642752.png
 

jessica85190

XLDnaute Nouveau

Pièces jointes

  • Suivi activité PHELIPPEAU.xlsx
    225 KB · Affichages: 6

Dranreb

XLDnaute Barbatruc
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".
 
Dernière édition:

Dranreb

XLDnaute Barbatruc
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.
 

Pièces jointes

  • Test.xlsm
    233.8 KB · Affichages: 7

Discussions similaires

Statistiques des forums

Discussions
311 713
Messages
2 081 806
Membres
101 819
dernier inscrit
lukumubarth