Comment on peut calculer le temps d'execution de ces deux procedure
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 With Worksheets(1).Range("a1:a100")
 Set s = .Find(10)
 Cells(1, 3) = s.Address
End With
et
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
With Worksheets(1)
For Each s In .Range("a1:a100")
    If s = 10 Then
   Cells(1, 3) = s.Address
   Exit Sub
   End If
  Next s
End With