mettre en évidence ligne cellule active

Re : mettre en évidence ligne cellule active

Bonsoir


Oui c'est possible

Et déjà des exemples dans des fils de discussions existants.

Re : mettre en évidence ligne cellule active

Oui, et effet, mais qui ne fonctionnent pas quand il y a déjà des MFC dans le tableau..

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.

Re : mettre en évidence ligne cellule active

Bonjour à tous,

une solution en pièce jointe
une seule contrainte: ne pas modifier le contenu de la cellule A1


à+
Philippe

Re : mettre en évidence ligne cellule active

Re,

une autre solution
ne pas modifier le contenu des cellules A1 et A2

à+
Philippe

Re : mettre en évidence ligne cellule active

Bonjour,

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

JB

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