XL 2016 colorier une ligne sélectionner

litchoutsou

XLDnaute Junior
Supporter XLD
Bonjour à tous et merci à ce Forum et à tous ceux qui soutienne ceux qui on des difficultés
j'ai un souci que je n'arrive pas résoudre
sur la feuille 1 j'ai des noms, et j'ai une formule qui me permet en cliquant sur le nom d'aller le chercher dans une cellule sur la feuille N°2 et celle-ci va se colorier en jaune, j'aimerai que la ligne entière de la colonne A à la colonne Q se mette en jaune, car avec la formule que j'ai seule une cellule devient jaune, autre souci dès que je clic ailleurs les cellules sélectionner se mettent également en jaune.
je ne sais si je me suis fais bien comprendre, alors je joins un fichier modèle
Merci de votre soutien.
 

Pièces jointes

  • 100 .xlsm
    47.8 KB · Affichages: 14

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir,
En PJ un essai avec quelques modifs :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
[AH1] = ""
  Application.ScreenUpdating = False
    If Target = "" Then Exit Sub ' On sort si vide
    ' Clear the color of all the cells
    Cells.Interior.ColorIndex = 0
    ' Highlight the active cell
    Range(Cells(Target.Row, "A"), Cells(Target.Row, "Q")).Interior.ColorIndex = 6
    Application.ScreenUpdating = True
Fin:
End Sub
 

Pièces jointes

  • 100 .xlsm
    50.5 KB · Affichages: 3

Discussions similaires

Statistiques des forums

Discussions
312 107
Messages
2 085 356
Membres
102 874
dernier inscrit
Petro2611