Bonjour,
J'ai une question avec la fonction Worksheet_Change.
Voici le code
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 modifie une cellule ma ligne change bien de couleur.
- 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.