Surbrillance colonne et ligne de la cellule active
Bonjour à tous,
Je suis encore débutant dans l'utilisation d'excel. Je bute actuellement sur un problème de subrillance...
J'ai trouvé un code pour mettre en surbrillance que j'ai retravaillé afin de mettre surbrillance la colonne et la ligne de la cellule active. Cependant, dès que je supprime le texte dans la cellule toutes les informations dans les autres textes cellules présents sur la ligne et la colonne en surbrillance sont effacées...
Le code en question
Private Sub Worksheet_Change(ByVal Target As Range)
Set champ = [Z8:OM1000]
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 = [Z8:OM1000]
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
Pourriez-vous m'aider SVP ? merci d'avance
Bonsoir,
voir le fichier joint :
Attention, c'est juste pour montrer que cela peut-être plus simple... En effet, la couleur se met sur la ligne complète et la colonne complète !
La suppression de valeur n'influe pas sur les lignes colorées.
@ bientôt
LouReeD
Merci beaucoup, je vais faire le test et je vous redis.
Belle journée
Merci encore pour ce code, la surbrilllance fonctionne bien. Mais malheureusement cela enlève le remplissage (couleur de fonds de mon Excel)
Auriez-vous une solution contre cela SVP ?
Bonjour
Si vos couleurs sont "en dur" en effet ce code les remplace...
Vos couleurs peuvent elles provenir de MFC ? Cela résoudrait le problème, mais il n'y aurait pas de surbrillance sur ces dernières...
Sans fichier pas évident ! Ceci dit, s'il y a problème avec les couleurs alors peut-être seriez vous OK pour partir non pas sur une surbrillance, mais plutôt sur un encadré : un cadre horizontal sur la ligne de la cellule et un vertical sur la colonne, le cadre d'intersection sera la cellule cliquée...
@ bientôt
LouReeD
Le fichier correspondant :
en plus de l'encadré il y a un fond de couleur jaune "transparent" ce qui fait qu'à l'intersection des deux cadres la cellules est "plus" jaune donc elle ressort mieux...
@ bientôt
LouReeD
Bonjour à tous,
avec une MFC qui préserve les couleurs et les MFC présentes.
(et qui permet la saisie)
eric
Bonsoir,
en regardant j'ai vu des MFC, mais je n'ai compris qu'un peu après : Création de deux MFC en rapport avec la ligne et la colonne de la cellule cliquée et ces MFC sont en "première" position de l'ordre de mise en place. S'il n'existe pas de MFC alors ce sont les deux seules, s'il en existe alors elles passent "avant" ! mais aucunes de ces MFC restent, car dès qu'on change de cellule, un code les supprime sur l'ancienne cellule et les reconstruit sur la nouvelle !
Bien joué eriiic !
@ bientôt
LouReeD
Bonsoir,
Bah si, tu as tout compris loureed
eric
Bonjour à tous,
Une solution simple et efficace sans rien casser au format.
Bonsoir,
Bravo également !
FJ a donc l'embarras du choix ! Merci @ tous.
@ bientôt
LouReeD
Merci encore pour toutes vos réponses ! J'ai trouvé mon bonheur. Meilleures salutations
Bonsoir,
juste pour info quel est donc votre bonheur ?
@ bientôt
LouReeD