Discussion :

[johannj]

Bonjour le forum,

Je souhaite avoir des infos quant à la rapidité d'une macro SVP.

Celle ci ouvre un fichier CVS dans le classeur 1 puis traite les données sur le classeur 2.
Par exemple, la colonne A du classeur 2 est égal à la colonne C du classeur 1 * 1000. Je fais cette opération pour les 100 premières cellules et j'utilise une boucle for pour changer de ligne.
N'est pas plus rapide d'effectuer l'opération que pour la première ligne et de remplir les autres lignes avec la fonction "Autofill"?
voici un exemple du code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub reference()    
Dim OpenReference As String, Dim reference As Workbook, Dim i As Integer
 
OpenReference = Application.GetOpenFilename(fileFilter:=",*.CSV") 
 
Set reference = Application.Workbooks.Open(OpenReference) 
 
    With reference.Worksheets(2)
        For i = 2 To CInt(dl)
            .Range("A" & i).Value = Worksheets(1).Range("B" & i) * 1000 / 2
        Next i
    end with

Dans ce cas, n'est pas plus rapide d'effectuer l'operation pour la case A2, puis de faire AutoFill??

Merci d'avance,
Johann

[aalex_38]

t'a k mesuré toi même

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub testtempscode00()
Dim Debut As Long, fin As Long
 
Debut = GetTickCount()
' Debut du code
''Procedure_principale
'Fin du code
fin = GetTickCount()
 
MsgBox "Temps mis en millisecondes : " & fin - Debut
 
 
End Sub

Ps: des codes de mesure du temps beaucoup plus complets existent dans la section contribuez;

[johannj]

Bonjour aalex38,

Merci pour l'info, encore une fonction que je découvre

Je test ça et me réponds a moi même!!

[aalex_38]

Si ensuite tu peux donner l'info, c'est cool
A+

[johannj]

re aalex,

J'essaie d'utiliser ta macro,
mais j'ai une erreur: sub ou fonction non définie

Apparemment,
il semble que ca soit le GetTickCount.
Normal que ca fonctionne chez ttoi et pas chez moi??

[Domi2]

Bonjour,

J'essaie d'utiliser ta macro,
mais j'ai une erreur: sub ou fonction non définie

A coller dans la section déclaration d'un module :

Code :

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

1
2
'Déclaration de la fonction  GetTickCount (renvoie le nombre de millisecondes écoulées)
Private Declare Function GetTickCount Lib "kernel32" () As Long

Domi2