Discussion :

[Invité]

Bonjour,
Je viens vers vous parce que j'ai une lenteur énorme (environ 5 seconde) dés que j'active une feuille (nommée retenue), par contre des que j'active toutes les autres feuille impeccable
Le seul code suspect est celui-la:

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
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