Bonjour,
Je cherche à surligner la ligne active dans un fichier Excel sans supprimer la couleur de base.
Lorsque j'utilise la mise en forme conditionnelle avec un code VBA, la feuille ralentie considérablement. Voir ci-dessous :
Le code VBA que j'utilise me permet de ne pas surligner les deux premières rangées et donc de ne pas affecter la couleur de mes titres de colonnes. Mais cela ne règle pas mon problème avec les cellules individuelles que je marque comme "Insatisfaisant".
C'est ce code :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Dans la plage de cellules utilisée ...
With Me.UsedRange.Rows
'... sauf la première ligne
With .Offset(2).Resize(.Count - 2)
' - effacer la couleur
.Interior.ColorIndex = xlNone
' - si la cellule active n'est pas dans cette plage : terminé
If Intersect(Target, .Cells) Is Nothing Then Exit Sub
' - sinon : changer la couleur de la ligne
Intersect(Target.EntireRow, .Cells).Interior.ColorIndex = 3
End With
End With
End Sub
Merci,
eaclipse