Je lance parfois des macros ou fonctions qui mettent pas mal de temps à
s'exécuter. J'aimerais réduire ce temps d'exécution sachant que j'ai
déjà une machine plutôt puissante :
- processeur Intel i7 920 (4 coeurs / 8 threads)
- 6 Go de RAM
- Windows 7 64 bits
- Excel 2007
Sur quel facteur jouer pour réduire le temps d'exécution ? Le processeur
? Deux processeurs Xeon et une carte mère bi-processeur seraient-ils
plus efficaces que ma configuration actuelle ? Davantage de RAM ?
Attendre Excel 2010 64 bits ?
Si quelqu'un peut m'éclairer sur ce point, ce serait chouette. Vous
l'aurez compris je cherche la meilleure solution technique possible,
sans prendre en compte l'aspect financier de l'opération. Si je peux
augmenter les performances de manière significative, je suis OK pour
mettre la main à la poche ;-)
Function cc(CHAINE1, CHAINE2 As Range) As Integer Dim XXX As Range, XRESULT As Long, XCPT As Long, XTAILLE As Integer For Each XXX In CHAINE2.Cells XRESULT = 0 If CHAINE1.Address XTRAITE = XTRAITE + 1 XTAILLE = Application.Min(Len(CHAINE1), Len(XXX)) For XCPT = 1 To XTAILLE If Mid(CHAINE1, XCPT, 1) = Mid(XXX, XCPT, 1) Then If (Mid(CHAINE1, XCPT, 1) Like "[0-9]" Or _ Mid(CHAINE1, XCPT, 1) Like "[A-Z]" Or _ Mid(CHAINE1, XCPT, 1) Like "[a-z]") Then _ XRESULT = XRESULT + 1 End If Next XCPT If XRESULT > cc Then cc = XRESULT End If If XTRAITE >= Application.CountA(CHAINE2) Then Exit Function Next XXX End Function
mais lorsque je copie/colle le code dans le module VBA, la ligne If CHAINE1.Address XTRAITE = XTRAITE + 1 apparaît en rouge. Et lorsque je lance la fonction, excel me signale une erreur de compilation :-(
Quelque chose que j'ai mal fait et/ou pas compris ?
Pas possible de dire sans savoir ce que je t'ai dit, savoir la quantité de données, la complexité des macros. Tu devrais poster un de tes codes. Daniel
OK. Je suis peut-être "surdimensionné" s'agissant de la RAM mais est-ce qu'un processeur plus puissant, une configuration double processeur, ou autre chose, améliorerait significativement les performances ?
Daniel.C a écrit :
Bonjour. Euh, à mon avis, tu es plutôt surdimensionné... Excel2007 ne gère que 2Go. Soit tu traites un volume considérable de données, soit tes macros ont besoin d'un turbo. Tu devrais poster un exemple d'un de tes codes (de mon côté, je vais poster mon RIB ;-))) ) Cordialement. Daniel
Bonjour,
Je lance parfois des macros ou fonctions qui mettent pas mal de temps à s'exécuter. J'aimerais réduire ce temps d'exécution sachant que j'ai déjà une machine plutôt puissante :
- processeur Intel i7 920 (4 coeurs / 8 threads) - 6 Go de RAM - Windows 7 64 bits - Excel 2007
Sur quel facteur jouer pour réduire le temps d'exécution ? Le processeur ? Deux processeurs Xeon et une carte mère bi-processeur seraient-ils plus efficaces que ma configuration actuelle ? Davantage de RAM ? Attendre Excel 2010 64 bits ?
Si quelqu'un peut m'éclairer sur ce point, ce serait chouette. Vous l'aurez compris je cherche la meilleure solution technique possible, sans prendre en compte l'aspect financier de l'opération. Si je peux augmenter les performances de manière significative, je suis OK pour mettre la main à la poche ;-)
Bonjour Daniel,
J'ai essayé ton code modifié, à savoir :
Function cc(CHAINE1, CHAINE2 As Range) As Integer
Dim XXX As Range, XRESULT As Long, XCPT As Long, XTAILLE As Integer
For Each XXX In CHAINE2.Cells
XRESULT = 0
If CHAINE1.Address XTRAITE = XTRAITE + 1
XTAILLE = Application.Min(Len(CHAINE1), Len(XXX))
For XCPT = 1 To XTAILLE
If Mid(CHAINE1, XCPT, 1) = Mid(XXX, XCPT, 1) Then
If (Mid(CHAINE1, XCPT, 1) Like "[0-9]" Or _
Mid(CHAINE1, XCPT, 1) Like "[A-Z]" Or _
Mid(CHAINE1, XCPT, 1) Like "[a-z]") Then _
XRESULT = XRESULT + 1
End If
Next XCPT
If XRESULT > cc Then cc = XRESULT
End If
If XTRAITE >= Application.CountA(CHAINE2) Then Exit Function
Next XXX
End Function
mais lorsque je copie/colle le code dans le module VBA, la ligne
If CHAINE1.Address XTRAITE = XTRAITE + 1
apparaît en rouge. Et lorsque je lance la fonction, excel me signale une
erreur de compilation :-(
Quelque chose que j'ai mal fait et/ou pas compris ?
Pas possible de dire sans savoir ce que je t'ai dit, savoir la quantité
de données, la complexité des macros. Tu devrais poster un de tes codes.
Daniel
OK. Je suis peut-être "surdimensionné" s'agissant de la RAM mais
est-ce qu'un processeur plus puissant, une configuration double
processeur, ou autre chose, améliorerait significativement les
performances ?
Daniel.C a écrit :
Bonjour.
Euh, à mon avis, tu es plutôt surdimensionné... Excel2007 ne gère que
2Go. Soit tu traites un volume considérable de données, soit tes
macros ont besoin d'un turbo. Tu devrais poster un exemple d'un de
tes codes (de mon côté, je vais poster mon RIB ;-))) )
Cordialement.
Daniel
Bonjour,
Je lance parfois des macros ou fonctions qui mettent pas mal de
temps à s'exécuter. J'aimerais réduire ce temps d'exécution sachant
que j'ai déjà une machine plutôt puissante :
- processeur Intel i7 920 (4 coeurs / 8 threads)
- 6 Go de RAM
- Windows 7 64 bits
- Excel 2007
Sur quel facteur jouer pour réduire le temps d'exécution ? Le
processeur ? Deux processeurs Xeon et une carte mère bi-processeur
seraient-ils plus efficaces que ma configuration actuelle ?
Davantage de RAM ? Attendre Excel 2010 64 bits ?
Si quelqu'un peut m'éclairer sur ce point, ce serait chouette. Vous
l'aurez compris je cherche la meilleure solution technique possible,
sans prendre en compte l'aspect financier de l'opération. Si je peux
augmenter les performances de manière significative, je suis OK pour
mettre la main à la poche ;-)
Function cc(CHAINE1, CHAINE2 As Range) As Integer Dim XXX As Range, XRESULT As Long, XCPT As Long, XTAILLE As Integer For Each XXX In CHAINE2.Cells XRESULT = 0 If CHAINE1.Address XTRAITE = XTRAITE + 1 XTAILLE = Application.Min(Len(CHAINE1), Len(XXX)) For XCPT = 1 To XTAILLE If Mid(CHAINE1, XCPT, 1) = Mid(XXX, XCPT, 1) Then If (Mid(CHAINE1, XCPT, 1) Like "[0-9]" Or _ Mid(CHAINE1, XCPT, 1) Like "[A-Z]" Or _ Mid(CHAINE1, XCPT, 1) Like "[a-z]") Then _ XRESULT = XRESULT + 1 End If Next XCPT If XRESULT > cc Then cc = XRESULT End If If XTRAITE >= Application.CountA(CHAINE2) Then Exit Function Next XXX End Function
mais lorsque je copie/colle le code dans le module VBA, la ligne If CHAINE1.Address XTRAITE = XTRAITE + 1 apparaît en rouge. Et lorsque je lance la fonction, excel me signale une erreur de compilation :-(
Quelque chose que j'ai mal fait et/ou pas compris ?
Pas possible de dire sans savoir ce que je t'ai dit, savoir la quantité de données, la complexité des macros. Tu devrais poster un de tes codes. Daniel
OK. Je suis peut-être "surdimensionné" s'agissant de la RAM mais est-ce qu'un processeur plus puissant, une configuration double processeur, ou autre chose, améliorerait significativement les performances ?
Daniel.C a écrit :
Bonjour. Euh, à mon avis, tu es plutôt surdimensionné... Excel2007 ne gère que 2Go. Soit tu traites un volume considérable de données, soit tes macros ont besoin d'un turbo. Tu devrais poster un exemple d'un de tes codes (de mon côté, je vais poster mon RIB ;-))) ) Cordialement. Daniel
Bonjour,
Je lance parfois des macros ou fonctions qui mettent pas mal de temps à s'exécuter. J'aimerais réduire ce temps d'exécution sachant que j'ai déjà une machine plutôt puissante :
- processeur Intel i7 920 (4 coeurs / 8 threads) - 6 Go de RAM - Windows 7 64 bits - Excel 2007
Sur quel facteur jouer pour réduire le temps d'exécution ? Le processeur ? Deux processeurs Xeon et une carte mère bi-processeur seraient-ils plus efficaces que ma configuration actuelle ? Davantage de RAM ? Attendre Excel 2010 64 bits ?
Si quelqu'un peut m'éclairer sur ce point, ce serait chouette. Vous l'aurez compris je cherche la meilleure solution technique possible, sans prendre en compte l'aspect financier de l'opération. Si je peux augmenter les performances de manière significative, je suis OK pour mettre la main à la poche ;-)
