Bonjour j'ai une lenteur inimagnable (5 seconde) avec ce code, quelqu'un voit l'erreur par pur hasard ?
' Fonction qui change des que tu change la colonne
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
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 Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False 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:G150").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 Application.EnableEvents = True End Sub
Partager