XL 2016 Surligner ligne du curseur

jessica85190 · 4 Mars 2020

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 · 4 Mars 2020

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 · 4 Mars 2020

Dranreb à dit:
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 · 4 Mars 2020

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 · 4 Mars 2020

Dranreb à dit:
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 · 4 Mars 2020

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 · 4 Mars 2020

C

Dranreb à dit:
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 · 4 Mars 2020

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

jessica85190 · 5 Mars 2020

Voila

Dranreb · 5 Mars 2020

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 · 5 Mars 2020

Bonjour,

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

Boisgontier

jessica85190 · 5 Mars 2020

Le résultat n'est pas glorieux !

Dranreb · 5 Mars 2020

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

Dranreb · 5 Mars 2020

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.

XL 2016 Surligner ligne du curseur

jessica85190

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

jessica85190

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

jessica85190

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

jessica85190

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

jessica85190

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

BOISGONTIER

XLDnaute Barbatruc

jessica85190

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Pièces jointes

Discussions similaires