Discussion :

[jazzybluesy]

Bonjour,
Je me demandais si il etait mieux pour la rapidite de l execution du code d ecrire :

Code :

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

ActiveWorkbook.ActiveSheet.Cells(3,2).Value

Ou

Code :

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

Cells(3,2).Value

Ou

Code :

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

Cells(3,2)

?

[mercatog]

Cells(3,2) c'est implicitement la valeur de B3 de la feuille active (du classeur actif)
Pour la rapidité, je ne peux me prononcer mais pour la fiabilité, il est conseillé d'indiquer la feuille à laquelle se rapporte la cellule et éventuellement le classeur si on travaille avec plusieurs classeurs

[jazzybluesy]

Merci mercatog,

Mais ce qui m interesse ici c est vraiment la rapidite. Personne ne sait par hasard ?

[mercatog]

Bon voilà, je viens de faire une petit test avec 3 macros:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
Dim i As Long
Dim T As Single
 
T = Timer
For i = 1 To 200000
    Cells(i, 1) = i
Next i
Debug.Print "1. " & Timer - T
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro2()
Dim i As Long
Dim T As Single
 
T = Timer
For i = 1 To 200000
    Worksheets("Feuil2").Cells(i, 1) = i
Next i
Debug.Print "2. " & Timer - T
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro3()
Dim i As Long
Dim T As Single
 
T = Timer
With Worksheets("Feuil2")
    For i = 1 To 200000
        .Cells(i, 1) = i
    Next i
End With
Debug.Print "3. " & Timer - T
End Sub

Et effectivement il y a une différence avec le classement de rapidité suivant Macro1 - Macro3 - Macro2

[gFZT82]

Bonjour,

La position 1 est très disputée avec

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Macro4()
Dim i As Long
Dim T As Single
Dim Ws As Worksheet
T = Timer
    Set Ws = Worksheets("Feuil2")
    For i = 1 To 200000
        Ws.Cells(i, 1) = i
    Next i
Debug.Print "4. " & Timer - T
End Sub

Cordialement.