Discussion :

[d.tellier]

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.

[SfJ5Rpw8]

bonsoir,


et il doit faire quoi ton code ..?

[casefayere]

Avant de voir plus loin, revois ton code que j'aurai traduit comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
Dim thiscol As Long, ThisRow As Long
If Target.Row = 1 Then Exit Sub
Application.EnableEvents = False
ThisRow = Target.Row
thiscol = Target.Column
Range(Cells(ThisRow, 1), Cells(ThisRow, thiscol)).Interior.ColorIndex = 4
Application.EnableEvents = True
End Sub

EDIT : bonjour Bbil, pas vu ta réponse

[d.tellier]

Bonjour,
merci Beaucoup, le code est mieux comme ça.
Le code sert a modifier une ligne quand une cellule de cette ligne est modifié.
La couleur de fond change pour les cellules de A à la cellule que je viens de modifier.

Quand je modifie ligne après ligne, la macro marche bien.
Si je fait un copié/collé d'une zone vers un ensemble de zone ou un recopie vers le bas, toutes les lignes modifiés ne change pas de couleurs, il n'y a que le cellule de la ligne qui a changé de fond de couleurs.

merci.

[casefayere]

Bonjour,

un code dans ce gout là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer
If Target.Row = 1 Then Exit Sub
For x = Target.Row To Target.Row + Target.Count - 1
  Cells(x, Target.Column).Interior.ColorIndex = 4
Next x
End Sub

[SfJ5Rpw8]

Bonsoir,

tiens sans boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
    Range(Target.EntireRow.Columns(1), Target).Interior.ColorIndex = 4
End Sub

[d.tellier]

Bonjour,
Super et Merci.
Le code qui marche est celui ci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
    Range(Target.EntireRow.Columns(1), Target).Interior.ColorIndex = 4
End Sub

Il est bien pratique car il permet de savoir si une ligne a été modifié et par quelle colonnes.

A+.