mettre en évidence ligne cellule active

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 !

philmar

XLDnaute Occasionnel
Bonsoir,

je cherche un code simple qui permet de mettre en évidence la ligne sur laquelle il y a la cellule active, ce qui est pratique quand il y a des tableaux importants pour visualiser toutes les cellules de la ligne.
L'idéal serait de pouvoir, par exemple, souligner automatiquement en rouge gras la ligne sur laquelle il y a la cellule active (donc sélectionnée).
Est-ce possible?

Bonne soirée à toutes et à tous.

Philippe
 
Re : mettre en évidence ligne cellule active

Re



Le moteur de recherche du forum est efficace , tu sais
J'ai le souvenir d'avoir lu une discussion relative à ta question.

J'ai pas le temps de rechercher, m'en ais me coucher
(Me lève à 4h du matin demain pour aller au taf)
Bonne nuit à tous

Sinon tu peux utiliser Repère de Gaétan Mourmant

PS; je ne parlais de MFC mais de macro.
 
Dernière édition:
Re : mettre en évidence ligne cellule active

Bonjour, et merci à tous, plein de possibilité!
le fichier indiqué par JB offre des possibiltés intéressantes, notamment curseurtarget, tous à fait intéressant quand on a des tableaux importants!

Merci encore à toute l'équipe et bonne journée
Philippr
 
Re : mettre en évidence ligne cellule active

Bonjour à toutes et à tous,
ce code très utile pour notre problème de mise en évidence d'une ligne dans un tableau, ligne où il y a la cellule active, a un défaut : il ne permet pas des sélections de plusieurs cellules quand il est activé.
Est-il possible de créer une macro qui désactive une macro, et qui la réactive (deux macros avec deux boutons par exemple?).
Le code ci dessous
Bonne journée à toutes et à tous



Private Sub Worksheet_Change(ByVal Target As Range)
Set champ = [A3:AW211]
If Not Intersect(champ, Target) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
Union(Cells(Target.Row + 1, 1).Resize(1, champ.Columns.Count), _
Cells(1, Target.Column).Resize(champ.Rows.Count, 1)).Select
Target.Offset(1, 0).Activate
Application.EnableEvents = True
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set champ = [A3:AW211]
If Not Intersect(champ, Target) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
Union(Cells(Target.Row, 1).Resize(1, champ.Columns.Count), _
Cells(1, Target.Column).Resize(champ.Rows.Count, 1)).Select
Target.Activate
Application.EnableEvents = True
End If
End Sub
 
- 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

Discussions similaires

  • Question Question
Microsoft 365 MFC dans tableau
Réponses
2
Affichages
361
Réponses
23
Affichages
665
Retour