Bonjour :

Je souhaite optimiser au maximum le temps du traitement (actuellement presque 20 secondes) de code :

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
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
 
  base = Sheets("Menu").Range("BA20").Value
        Workbooks.Open base
 
        Windows("suivi.xlsm").Activate
        Sheets("extraction").Select
 
 
Windows("Commentaires.xlsx").Activate
 
DoEvents
 
With Sheets("comments")
        dern = .Range("A65536").End(xlUp).row
        Set plage = .Range(Cells(2, 1), Cells(dern, 1))
 
For Each cell In plage
 
    commentaire = cell.Offset(0, 2).Value
    acteur = cell.Offset(0, 3).Value
    date_de_fin = cell.Offset(0, 4).Value
 
        Select Case commentaire
        Case Is <> ""
            ref = cell.Value
            With Workbooks("suivi.xlsm").Sheets("extraction")
            Set C = .Range("A:A").Find(ref, LookIn:=xlValues)
                If Not C Is Nothing Then
                C.Offset(0, 91).Value = commentaire
                C.Offset(0, 92).Value = acteur
                C.Offset(0, 93).Value = date_de_fin
                End If
            End With
        End Select
 
Next cell
End With
 
 Workbooks("Commentaires.xlsx").Activate
 ActiveWorkbook.Close
 
         Windows("suivi.xlsm").Activate
        Sheets("extraction").Select
 
 
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Merci pour votre aide