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

[mat955]

Bonjour,

Je pense que le problème vient du fait que tu as une macro événementielle qui s'appelle de nombreuses fois.
Effectivement, quand tu modifies la valeur d'une cellule, la macro se lance et elle "nettoie" la plage "A3:F400", ce qui change les valeurs de ces cellules et donc qui déclenche à nouveau la macro.

Essaye de désactiver les procédures événementielles au début de la macro avec

Code :

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

Application.EnableEvents = False

En n'oubliant bien sûr pas de les réactiver à la fin de la macro.

[Invité]

Ca marche merci infiniment !

Par contre juste un petit truc, quelque fois j'ai ca (les petites bordures qui débordent)
lié également au code