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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
| ' Fonction qui change des que tu change la colonne
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iENT As Integer
Dim iRET As Integer
Dim ENT As Worksheet
Dim RET As Worksheet
Set ENT = Worksheets("ENT_BET")
Set RET = Worksheets("Retenue")
' Fonction qui change des que tu change la colonne
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iENT As Integer
Dim iRET As Integer
Dim ENT As Worksheet
Dim RET As Worksheet
Set ENT = Worksheets("ENT_BET")
Set RET = Worksheets("Retenue")
' NETOYER LA PLAGE RETENUE
Worksheets("Retenue").Range("A3:F400").Clear
' NETOYER LA PLAGE AMT
If Target.Column = 6 Then
iRET = 3
iENT = 3
While ENT.Cells(iENT, 6).Value <> ""
If ENT.Cells(iENT, 6).Value = "Oui" Then
'Copier dans retenue
ENT.Range(iENT & ":" & iENT).Copy RET.Cells(iRET, 1)
iRET = iRET + 1
'TODO Copier dans AMT
End If
'Copi
iENT = iENT + 1
Wend
Application.CutCopyMode = False
End If
End Sub |
