Bonjour,
J'ai une question avec la fonction Worksheet_Change.
Voici le code- Quand je modifie une cellule ma ligne change bien de couleur.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Private Sub Worksheet_Change(ByVal Target As Range) ' Change de couleur de la ligne apres modif d'une cellule Application.EnableEvents = False ThisRow = Target.Row ThisRow = Target.Row ThisCol = Split(Cells(1, Target.Column).Address(), "$")(1) If ThisRow = 1 Then GoTo Fin 'Rows(ThisRow).Interior.Color = RGB(255, 0, 0) 'Rows(ThisRow).Interior.ColorIndex = 4 Range("A" & ThisRow & ":" & ThisCol & ThisRow).Interior.ColorIndex = 4 'Target.Font.ColorIndex = 5 Fin: Application.EnableEvents = True End Sub
- Quand je fait un copié coller d'une ligne vers une autre ligne ça se passe correctement.
- Quand je fait un copié collé d'une ligne vers un groupe de ligne, la première ligne de ce groupe est coloriée et pour les autres lignes du groupe il n'y a que la cellule qui est coloriée.
- Quand je fait un copié collé vers le bas j'ai le même fonctionnement qu'au dessus.
Comment remédier a ce dysfonctionnement.
Merci.
Partager