1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| Dim ligne As Integer
Dim colonne As Integer
If Not Application.Intersect(Target, Columns("a:f")) Is Nothing Then
ligne = Target.Row
colonne = Target.Column
End If
If Not Application.Intersect(Target, Columns("a")) Is Nothing Then
ligne = Target.Row
colonne = Target.Column
For i = 2 To Sheets("En cours").Range("a" & Rows.Count).End(xlUp).Row
If Sheets("En cours").Cells(i, 3) = Cells(ligne, 3) Then
Sheets("En cours").Cells(i, 52) = Target
End If
Next i
End If
If Not Application.Intersect(Target, Columns("c")) Is Nothing Then
ligne = Target.Row
colonne = Target.Column
For i = 2 To Sheets("En cours").Range("c" & Rows.Count).End(xlUp).Row
If Sheets("En cours").Cells(i, 3) = Cells(ligne, 3) Then
Sheets("En cours").Cells(i, 53) = Target
End If
Next i
End If
Sub end |
Partager