Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Surligner ligne du curseur

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion jessica85190
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

jessica85190

Guest
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
 
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
Je ne vois pas bien ce que vous voulez dire ! pourriez vous être plus précis ?
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Je n'y connais rien, pouvez-vous m'expliquer comment insérer cela ?
 
Vote positif 0 Vote négatif

Pièces jointes

Vote positif 0 Vote négatif
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:
Vote positif 0 Vote négatif
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

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
EXCEL :: VBA :: Barre de progression via un graphique cylindrique, cubique, aquarium, donuts et shape
Réponses
0
Affichages
727
oguruma
  • Résolu(e)
XL 2010 [RESOLU]Adapter Dimensions Shapes d'une plage
Réponses
7
Affichages
673
cathodique
M
  • Question Question
EXCEL 2007 - VBA en automatique
Réponses
14
Affichages
1 K
patricktoulon
R
  • Question Question
XL 2019 Convertir Macro 32 bit en 64 bit
Réponses
2
Affichages
4 K
sylvanu
D
  • Question Question
XL 2016 Application.OnTime ne s'arrête pas, fichier se réouvre tout seul
Réponses
11
Affichages
3 K
Dranreb
P
  • Question Question
XL 2016 RÉSOLU - Atteindre des feuilles masquées avec Worksheet_BeforeDoubleClick
Réponses
5
Affichages
986
Patsylla
P
F
  • Question Question
XL 2010 Organigramme automatique non centré
Réponses
1
Affichages
2 K
fablog
F
M
  • Question Question
Macro active en permanence
Réponses
1
Affichages
1 K
Dranreb
  • Question Question
Shape inactif si cellules verrouillées
Réponses
2
Affichages
678
boulou
  • Question Question
curseur dynamique
Réponses
7
Affichages
2 K
tinet
  • Question Question
utiliser deux fois BeforeDoubleClick
Réponses
2
Affichages
19 K
tinet
  • Question Question
Loupe en VBA
Réponses
2
Affichages
3 K
tinet
  • Question Question
Code qui insère la date du jour en L, mais comment faire pour ne pas pouvoir l'écrasé
Réponses
1
Affichages
12 K
phlaurent55
B
  • Question Question
Besoin d'aide pour décrypter du code !
Réponses
4
Affichages
1 K
Papou-net
  • Question Question
Raison d'un conflit ?
Réponses
3
Affichages
747
JNP
  • Question Question
Image en menu liste déroulante
Réponses
2
Affichages
1 K
anthoYS
C
  • Question Question
Copie image interne avec liste déroulante VBA
Réponses
11
Affichages
2 K
CFR
C
M
  • Question Question
Sélection d'une colonne et d'une ligne avec le survol de la souris
Réponses
1
Affichages
1 K
Matjul
M
M
[REF] Wiki Page 8 de MichelXld
Réponses
0
Affichages
39 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…