Lenteurs de macros VBA sous Excel 2007 vs Excel 2003

Youky

04/08/2007 à 22:39

Bonjour
Un début pour speeder
J'ai modifié que le début de la macro, je trouve le N° ligne ensuite direct
cela évite le VLookup .
La gestion d'écran et de calculation peuvent faire aussi gagner du temps
Je pense aussi qu'il serait bon d'éviter le Activecell.offset à moins que la
macro utilise la selection
pour le départ(et même on peut gérer).
Youky

Application.ScreenUpdating = False 'affichage non géré donc+rapide
Application.Calculation = xlManual 'plus de calcul auto.
For i = 1 To NombreLignes - 1
If ActiveCell.Offset(i, 0).Value = "Base" Then
Puissance = ActiveCell.Offset(i, 14).Value
' remplacer A:A par la bonne colonne
'c'est la colonne ou l'on recherche la Puissance
lig = [A:A].Find(Puissance, , xlValues).Row 'recherche de la ligne
Fixe = Cells(lig, 5)
PF_CU_bareme = Cells(lig, 6) ' on connait la ligne on y va direct
PF_MU_bareme = Cells(lig, 8) ' si PlageST est <>de la page active il
faut indiquer l'Onglet
PF_LU_bareme = Cells(lig, 10)
Conso_CU_bareme = Cells(lig, 7)
Conso_MU_bareme = Cells(lig, 9)
Conso_LU_bareme = Cells(lig, 11)

PF_CU = Fixe + (PF_CU_bareme * Puissance)
'le reste de la macro
'bla bla bla
Application.Calculation = xlAutomatic 'on remet calcul auto normal
Application.ScreenUpdating = True ' on remets l'affichage

Youky

05/08/2007 à 11:50

En supposant que tes plages

PlageST est sur Feuil2

PlageDT est sur Feuil3

A remplacer en macro selon le codename de la feuille

Il s'agit du nom de gauche en fenêtre projet et pas le nom d'onglet

La macro commence à la ligne de la cellule active

A vérifier si Puissance est bien en colonne N :N

Youky

Application.ScreenUpdating = False
Application.Calculation = xlManual
For i = ActiveCell.Row To NombreLignes - 1
If Cells(i, 1).Value = "Base" Then
Puissance = Cells(i, 14).Value
' remplacer N:N si pas la bonne colonne
'c'est la colonne ou l'on recherche la Puissance
lig = [N:N].Find(Puissance, , xlValues).Row 'recherche de la ligne
Fixe = Cells(lig, 5)
PF_CU_bareme = feuil2.Cells(lig, 6) ' on connait la ligne on y va direct
PF_MU_bareme = feuil2.Cells(lig, 8) ' si PlageST est <>de la page active
PF_LU_bareme = feuil2Cells(lig, 10)
Conso_CU_bareme = feuil2.Cells(lig, 7)
Conso_MU_bareme = feuil2Cells(lig, 9)
Conso_LU_bareme = feuil2Cells(lig, 11)

PF_CU = Fixe + (PF_CU_bareme * Puissance)

Conso_CU = (Conso_CU_bareme * Cells(i, 7).Value) / 100
TURPE2_CU = PF_CU + Conso_CU
MOYENNE_CU = TURPE2_CU / (Cells(i, 10).Value / 1000)
CTA_CU = 0.21 * PF_CU

PF_MU = Fixe + (PF_MU_bareme * Puissance)
Conso_MU = (Conso_MU_bareme * Cells(i, 7).Value) / 100
TURPE2_MU = PF_MU + Conso_MU
MOYENNE_MU = TURPE2_MU / (Cells(i, 10).Value / 1000)
CTA_MU = 0.21 * PF_MU

PF_LU = Fixe + (PF_LU_bareme * Puissance)
Conso_LU = (Conso_LU_bareme * Cells(i, 7).Value) / 100
TURPE2_LU = PF_LU + Conso_LU
MOYENNE_LU = TURPE2_LU / (Cells(i, 10).Value / 1000)
CTA_LU = 0.21 * PF_LU

TURPE2_OPTIMISE_BASE = Application.WorksheetFunction.Min(TURPE2_CU + _
CTA_CU, TURPE2_MU + CTA_MU, TURPE2_LU + CTA_LU)
If TURPE2_OPTIMISE_BASE = TURPE2_CU + CTA_CU Then OPTIMISE = "CU"
If TURPE2_OPTIMISE_BASE = TURPE2_MU + CTA_MU Then OPTIMISE = "MU"
If TURPE2_OPTIMISE_BASE = TURPE2_LU + CTA_LU Then OPTIMISE = "LU"
If OPTIMISE = "CU" Then
PF_OPT = PF_CU
Conso_OPT = Conso_CU
TURPE2_OPT = TURPE2_CU
MOYENNE_OPT = MOYENNE_CU
CTA_OPT = CTA_CU
End If
If OPTIMISE = "MU" Then
PF_OPT = PF_MU
Conso_OPT = Conso_MU
TURPE2_OPT = TURPE2_MU
MOYENNE_OPT = MOYENNE_MU
CTA_OPT = CTA_MU
End If
If OPTIMISE = "LU" Then
PF_OPT = PF_LU
Conso_OPT = Conso_LU
TURPE2_OPT = TURPE2_LU
MOYENNE_OPT = MOYENNE_LU
CTA_OPT = CTA_LU
End If
' CU
Cells(i, 16).Value = Round(PF_CU, 2)
Cells(i, 17).Value = Round(Conso_CU, 2)
Cells(i, 18).Value = Round(TURPE2_CU, 2)
Cells(i, 19).Value = Round(MOYENNE_CU, 2)
Cells(i, 20).Value = Round(CTA_CU, 2)
' MU
Cells(i, 22).Value = Round(PF_MU, 2)
Cells(i, 23).Value = Round(Conso_MU, 2)
Cells(i, 24).Value = Round(TURPE2_MU, 2)
Cells(i, 25).Value = Round(MOYENNE_MU, 2)
Cells(i, 26).Value = Round(CTA_MU, 2)
' LU
Cells(i, 28).Value = Round(PF_LU, 2)
Cells(i, 29).Value = Round(Conso_LU, 2)
Cells(i, 30).Value = Round(TURPE2_LU, 2)
Cells(i, 31).Value = Round(MOYENNE_LU, 2)
Cells(i, 32).Value = Round(CTA_LU, 2)
' minimum TURPE2 BASE optimisé
Cells(i, 40).Value = OPTIMISE
Cells(i, 41).Value = Round(PF_OPT, 2)
Cells(i, 42).Value = Round(Conso_OPT, 2)
Cells(i, 43).Value = Round(TURPE2_OPT, 2)
Cells(i, 44).Value = Round(MOYENNE_OPT, 2)
' CTA BASE optimisée
Cells(i, 46).Value = Round(CTA_OPT, 2)
Cells(i, 47).Value = Round(CTA_OPT / (Cells(i,10).Value / 1000), 2)
End If
If Cells(i, 1).Value = "Double" Then
Puissance = Cells(i, 14).Value

lig = [N:N].Find(Puissance, , xlValues).Row 'recherche de la ligne
Fixe = feuil3.Cells(lig, 5)
PF_MUDT_bareme = feuil3.Cells(lig, 6)
ConsoHP_MUDT_bareme = feuil3.Cells(lig, 7)
ConsoHC_MUDT_bareme = feuil3.Cells(lig, 8)

PF_MUDT = Fixe + (PF_MUDT_bareme * Puissance)
ConsoHP_MUDT = (ConsoHP_MUDT_bareme * Cells(i, 7).Value) / 100
ConsoHC_MUDT = (ConsoHC_MUDT_bareme * Cells(i, 8).Value) / 100
TURPE2_MUDT = PF_MUDT + ConsoHP_MUDT + ConsoHC_MUDT
MOYENNE_MUDT = TURPE2_MUDT / (Cells(i, 10).Value / 1000)
CTA_MUDT = 0.21 * PF_MUDT
' MU DT
Cells(i, 34).Value = Round(PF_MUDT, 2)
Cells(i, 35).Value = Round(ConsoHP_MUDT + ConsoHC_MUDT, 2)
Cells(i, 36).Value = Round(TURPE2_MUDT, 2)
Cells(i, 37).Value = Round(MOYENNE_MUDT, 2)
Cells(i, 38).Value = Round(CTA_MUDT, 2)
' TURPE2 DOUBLE (optimisé)
Cells(i, 40).Value = "MU DT"
Cells(i, 41).Value = Round(PF_MUDT, 2)
Cells(i, 42).Value = Round(ConsoHP_MUDT + ConsoHC_MUDT, 2)
Cells(i, 43).Value = Round(TURPE2_MUDT, 2)
Cells(i, 44).Value = Round(MOYENNE_MUDT, 2)
' CTA DOUBLE
Cells(i, 46).Value = Round(CTA_MUDT, 2)
Cells(i, 47).Value = Round(CTA_MUDT / (Cells(i, 10).Value /1000), 2)
End If
Next i

Application.Calculation = xlAutomatic 'on remet calcul auto normal
Application.ScreenUpdating = True ' on remets l'affichage

Vous avez filtré cet utilisateur ! Consultez son message

En supposant que tes plages

PlageST est sur Feuil2

PlageDT est sur Feuil3

A remplacer en macro selon le codename de la feuille

Il s'agit du nom de gauche en fenêtre projet et pas le nom d'onglet

La macro commence à la ligne de la cellule active

A vérifier si Puissance est bien en colonne N :N

Youky

Application.ScreenUpdating = False
Application.Calculation = xlManual
For i = ActiveCell.Row To NombreLignes - 1
If Cells(i, 1).Value = "Base" Then
Puissance = Cells(i, 14).Value
' remplacer N:N si pas la bonne colonne
'c'est la colonne ou l'on recherche la Puissance
lig = [N:N].Find(Puissance, , xlValues).Row 'recherche de la ligne
Fixe = Cells(lig, 5)
PF_CU_bareme = feuil2.Cells(lig, 6) ' on connait la ligne on y va direct
PF_MU_bareme = feuil2.Cells(lig, 8) ' si PlageST est <>de la page active
PF_LU_bareme = feuil2Cells(lig, 10)
Conso_CU_bareme = feuil2.Cells(lig, 7)
Conso_MU_bareme = feuil2Cells(lig, 9)
Conso_LU_bareme = feuil2Cells(lig, 11)

PF_CU = Fixe + (PF_CU_bareme * Puissance)

Conso_CU = (Conso_CU_bareme * Cells(i, 7).Value) / 100
TURPE2_CU = PF_CU + Conso_CU
MOYENNE_CU = TURPE2_CU / (Cells(i, 10).Value / 1000)
CTA_CU = 0.21 * PF_CU

PF_MU = Fixe + (PF_MU_bareme * Puissance)
Conso_MU = (Conso_MU_bareme * Cells(i, 7).Value) / 100
TURPE2_MU = PF_MU + Conso_MU
MOYENNE_MU = TURPE2_MU / (Cells(i, 10).Value / 1000)
CTA_MU = 0.21 * PF_MU

PF_LU = Fixe + (PF_LU_bareme * Puissance)
Conso_LU = (Conso_LU_bareme * Cells(i, 7).Value) / 100
TURPE2_LU = PF_LU + Conso_LU
MOYENNE_LU = TURPE2_LU / (Cells(i, 10).Value / 1000)
CTA_LU = 0.21 * PF_LU

TURPE2_OPTIMISE_BASE = Application.WorksheetFunction.Min(TURPE2_CU + _
CTA_CU, TURPE2_MU + CTA_MU, TURPE2_LU + CTA_LU)
If TURPE2_OPTIMISE_BASE = TURPE2_CU + CTA_CU Then OPTIMISE = "CU"
If TURPE2_OPTIMISE_BASE = TURPE2_MU + CTA_MU Then OPTIMISE = "MU"
If TURPE2_OPTIMISE_BASE = TURPE2_LU + CTA_LU Then OPTIMISE = "LU"
If OPTIMISE = "CU" Then
PF_OPT = PF_CU
Conso_OPT = Conso_CU
TURPE2_OPT = TURPE2_CU
MOYENNE_OPT = MOYENNE_CU
CTA_OPT = CTA_CU
End If
If OPTIMISE = "MU" Then
PF_OPT = PF_MU
Conso_OPT = Conso_MU
TURPE2_OPT = TURPE2_MU
MOYENNE_OPT = MOYENNE_MU
CTA_OPT = CTA_MU
End If
If OPTIMISE = "LU" Then
PF_OPT = PF_LU
Conso_OPT = Conso_LU
TURPE2_OPT = TURPE2_LU
MOYENNE_OPT = MOYENNE_LU
CTA_OPT = CTA_LU
End If
' CU
Cells(i, 16).Value = Round(PF_CU, 2)
Cells(i, 17).Value = Round(Conso_CU, 2)
Cells(i, 18).Value = Round(TURPE2_CU, 2)
Cells(i, 19).Value = Round(MOYENNE_CU, 2)
Cells(i, 20).Value = Round(CTA_CU, 2)
' MU
Cells(i, 22).Value = Round(PF_MU, 2)
Cells(i, 23).Value = Round(Conso_MU, 2)
Cells(i, 24).Value = Round(TURPE2_MU, 2)
Cells(i, 25).Value = Round(MOYENNE_MU, 2)
Cells(i, 26).Value = Round(CTA_MU, 2)
' LU
Cells(i, 28).Value = Round(PF_LU, 2)
Cells(i, 29).Value = Round(Conso_LU, 2)
Cells(i, 30).Value = Round(TURPE2_LU, 2)
Cells(i, 31).Value = Round(MOYENNE_LU, 2)
Cells(i, 32).Value = Round(CTA_LU, 2)
' minimum TURPE2 BASE optimisé
Cells(i, 40).Value = OPTIMISE
Cells(i, 41).Value = Round(PF_OPT, 2)
Cells(i, 42).Value = Round(Conso_OPT, 2)
Cells(i, 43).Value = Round(TURPE2_OPT, 2)
Cells(i, 44).Value = Round(MOYENNE_OPT, 2)
' CTA BASE optimisée
Cells(i, 46).Value = Round(CTA_OPT, 2)
Cells(i, 47).Value = Round(CTA_OPT / (Cells(i,10).Value / 1000), 2)
End If
If Cells(i, 1).Value = "Double" Then
Puissance = Cells(i, 14).Value

lig = [N:N].Find(Puissance, , xlValues).Row 'recherche de la ligne
Fixe = feuil3.Cells(lig, 5)
PF_MUDT_bareme = feuil3.Cells(lig, 6)
ConsoHP_MUDT_bareme = feuil3.Cells(lig, 7)
ConsoHC_MUDT_bareme = feuil3.Cells(lig, 8)

PF_MUDT = Fixe + (PF_MUDT_bareme * Puissance)
ConsoHP_MUDT = (ConsoHP_MUDT_bareme * Cells(i, 7).Value) / 100
ConsoHC_MUDT = (ConsoHC_MUDT_bareme * Cells(i, 8).Value) / 100
TURPE2_MUDT = PF_MUDT + ConsoHP_MUDT + ConsoHC_MUDT
MOYENNE_MUDT = TURPE2_MUDT / (Cells(i, 10).Value / 1000)
CTA_MUDT = 0.21 * PF_MUDT
' MU DT
Cells(i, 34).Value = Round(PF_MUDT, 2)
Cells(i, 35).Value = Round(ConsoHP_MUDT + ConsoHC_MUDT, 2)
Cells(i, 36).Value = Round(TURPE2_MUDT, 2)
Cells(i, 37).Value = Round(MOYENNE_MUDT, 2)
Cells(i, 38).Value = Round(CTA_MUDT, 2)
' TURPE2 DOUBLE (optimisé)
Cells(i, 40).Value = "MU DT"
Cells(i, 41).Value = Round(PF_MUDT, 2)
Cells(i, 42).Value = Round(ConsoHP_MUDT + ConsoHC_MUDT, 2)
Cells(i, 43).Value = Round(TURPE2_MUDT, 2)
Cells(i, 44).Value = Round(MOYENNE_MUDT, 2)
' CTA DOUBLE
Cells(i, 46).Value = Round(CTA_MUDT, 2)
Cells(i, 47).Value = Round(CTA_MUDT / (Cells(i, 10).Value /1000), 2)
End If
Next i

Application.Calculation = xlAutomatic 'on remet calcul auto normal
Application.ScreenUpdating = True ' on remets l'affichage

Nicolas

06/08/2007 à 08:32

Merci pour tes réponses Youky.
Mais je ne comprends pas pourquoi sur Excel 2003 les temps de réponses sont
environ 10 fois meilleurs pour l'exécution de cette macro que sur Excel 2007
(à PC égal).

En supposant que tes plages

PlageST est sur Feuil2

PlageDT est sur Feuil3

A remplacer en macro selon le codename de la feuille

Il s'agit du nom de gauche en fenêtre projet et pas le nom d'onglet

La macro commence à la ligne de la cellule active

A vérifier si Puissance est bien en colonne N :N

Youky

Application.ScreenUpdating = False
Application.Calculation = xlManual
For i = ActiveCell.Row To NombreLignes - 1
If Cells(i, 1).Value = "Base" Then
Puissance = Cells(i, 14).Value
' remplacer N:N si pas la bonne colonne
'c'est la colonne ou l'on recherche la Puissance
lig = [N:N].Find(Puissance, , xlValues).Row 'recherche de la ligne
Fixe = Cells(lig, 5)
PF_CU_bareme = feuil2.Cells(lig, 6) ' on connait la ligne on y va direct
PF_MU_bareme = feuil2.Cells(lig, 8) ' si PlageST est <>de la page active
PF_LU_bareme = feuil2Cells(lig, 10)
Conso_CU_bareme = feuil2.Cells(lig, 7)
Conso_MU_bareme = feuil2Cells(lig, 9)
Conso_LU_bareme = feuil2Cells(lig, 11)

PF_CU = Fixe + (PF_CU_bareme * Puissance)

Conso_CU = (Conso_CU_bareme * Cells(i, 7).Value) / 100
TURPE2_CU = PF_CU + Conso_CU
MOYENNE_CU = TURPE2_CU / (Cells(i, 10).Value / 1000)
CTA_CU = 0.21 * PF_CU

PF_MU = Fixe + (PF_MU_bareme * Puissance)
Conso_MU = (Conso_MU_bareme * Cells(i, 7).Value) / 100
TURPE2_MU = PF_MU + Conso_MU
MOYENNE_MU = TURPE2_MU / (Cells(i, 10).Value / 1000)
CTA_MU = 0.21 * PF_MU

PF_LU = Fixe + (PF_LU_bareme * Puissance)
Conso_LU = (Conso_LU_bareme * Cells(i, 7).Value) / 100
TURPE2_LU = PF_LU + Conso_LU
MOYENNE_LU = TURPE2_LU / (Cells(i, 10).Value / 1000)
CTA_LU = 0.21 * PF_LU

TURPE2_OPTIMISE_BASE = Application.WorksheetFunction.Min(TURPE2_CU + _
CTA_CU, TURPE2_MU + CTA_MU, TURPE2_LU + CTA_LU)
If TURPE2_OPTIMISE_BASE = TURPE2_CU + CTA_CU Then OPTIMISE = "CU"
If TURPE2_OPTIMISE_BASE = TURPE2_MU + CTA_MU Then OPTIMISE = "MU"
If TURPE2_OPTIMISE_BASE = TURPE2_LU + CTA_LU Then OPTIMISE = "LU"
If OPTIMISE = "CU" Then
PF_OPT = PF_CU
Conso_OPT = Conso_CU
TURPE2_OPT = TURPE2_CU
MOYENNE_OPT = MOYENNE_CU
CTA_OPT = CTA_CU
End If
If OPTIMISE = "MU" Then
PF_OPT = PF_MU
Conso_OPT = Conso_MU
TURPE2_OPT = TURPE2_MU
MOYENNE_OPT = MOYENNE_MU
CTA_OPT = CTA_MU
End If
If OPTIMISE = "LU" Then
PF_OPT = PF_LU
Conso_OPT = Conso_LU
TURPE2_OPT = TURPE2_LU
MOYENNE_OPT = MOYENNE_LU
CTA_OPT = CTA_LU
End If
' CU
Cells(i, 16).Value = Round(PF_CU, 2)
Cells(i, 17).Value = Round(Conso_CU, 2)
Cells(i, 18).Value = Round(TURPE2_CU, 2)
Cells(i, 19).Value = Round(MOYENNE_CU, 2)
Cells(i, 20).Value = Round(CTA_CU, 2)
' MU
Cells(i, 22).Value = Round(PF_MU, 2)
Cells(i, 23).Value = Round(Conso_MU, 2)
Cells(i, 24).Value = Round(TURPE2_MU, 2)
Cells(i, 25).Value = Round(MOYENNE_MU, 2)
Cells(i, 26).Value = Round(CTA_MU, 2)
' LU
Cells(i, 28).Value = Round(PF_LU, 2)
Cells(i, 29).Value = Round(Conso_LU, 2)
Cells(i, 30).Value = Round(TURPE2_LU, 2)
Cells(i, 31).Value = Round(MOYENNE_LU, 2)
Cells(i, 32).Value = Round(CTA_LU, 2)
' minimum TURPE2 BASE optimisé
Cells(i, 40).Value = OPTIMISE
Cells(i, 41).Value = Round(PF_OPT, 2)
Cells(i, 42).Value = Round(Conso_OPT, 2)
Cells(i, 43).Value = Round(TURPE2_OPT, 2)
Cells(i, 44).Value = Round(MOYENNE_OPT, 2)
' CTA BASE optimisée
Cells(i, 46).Value = Round(CTA_OPT, 2)
Cells(i, 47).Value = Round(CTA_OPT / (Cells(i,10).Value / 1000), 2)
End If
If Cells(i, 1).Value = "Double" Then
Puissance = Cells(i, 14).Value

lig = [N:N].Find(Puissance, , xlValues).Row 'recherche de la ligne
Fixe = feuil3.Cells(lig, 5)
PF_MUDT_bareme = feuil3.Cells(lig, 6)
ConsoHP_MUDT_bareme = feuil3.Cells(lig, 7)
ConsoHC_MUDT_bareme = feuil3.Cells(lig, 8)

PF_MUDT = Fixe + (PF_MUDT_bareme * Puissance)
ConsoHP_MUDT = (ConsoHP_MUDT_bareme * Cells(i, 7).Value) / 100
ConsoHC_MUDT = (ConsoHC_MUDT_bareme * Cells(i, 8).Value) / 100
TURPE2_MUDT = PF_MUDT + ConsoHP_MUDT + ConsoHC_MUDT
MOYENNE_MUDT = TURPE2_MUDT / (Cells(i, 10).Value / 1000)
CTA_MUDT = 0.21 * PF_MUDT
' MU DT
Cells(i, 34).Value = Round(PF_MUDT, 2)
Cells(i, 35).Value = Round(ConsoHP_MUDT + ConsoHC_MUDT, 2)
Cells(i, 36).Value = Round(TURPE2_MUDT, 2)
Cells(i, 37).Value = Round(MOYENNE_MUDT, 2)
Cells(i, 38).Value = Round(CTA_MUDT, 2)
' TURPE2 DOUBLE (optimisé)
Cells(i, 40).Value = "MU DT"
Cells(i, 41).Value = Round(PF_MUDT, 2)
Cells(i, 42).Value = Round(ConsoHP_MUDT + ConsoHC_MUDT, 2)
Cells(i, 43).Value = Round(TURPE2_MUDT, 2)
Cells(i, 44).Value = Round(MOYENNE_MUDT, 2)
' CTA DOUBLE
Cells(i, 46).Value = Round(CTA_MUDT, 2)
Cells(i, 47).Value = Round(CTA_MUDT / (Cells(i, 10).Value /1000), 2)
End If
Next i

Application.Calculation = xlAutomatic 'on remet calcul auto normal
Application.ScreenUpdating = True ' on remets l'affichage

Merci pour tes réponses Youky.
Mais je ne comprends pas pourquoi sur Excel 2003 les temps de réponses sont
environ 10 fois meilleurs pour l'exécution de cette macro que sur Excel 2007
(à PC égal).

En supposant que tes plages

PlageST est sur Feuil2

PlageDT est sur Feuil3

A remplacer en macro selon le codename de la feuille

Il s'agit du nom de gauche en fenêtre projet et pas le nom d'onglet

La macro commence à la ligne de la cellule active

A vérifier si Puissance est bien en colonne N :N

Youky

Application.ScreenUpdating = False
Application.Calculation = xlManual
For i = ActiveCell.Row To NombreLignes - 1
If Cells(i, 1).Value = "Base" Then
Puissance = Cells(i, 14).Value
' remplacer N:N si pas la bonne colonne
'c'est la colonne ou l'on recherche la Puissance
lig = [N:N].Find(Puissance, , xlValues).Row 'recherche de la ligne
Fixe = Cells(lig, 5)
PF_CU_bareme = feuil2.Cells(lig, 6) ' on connait la ligne on y va direct
PF_MU_bareme = feuil2.Cells(lig, 8) ' si PlageST est <>de la page active
PF_LU_bareme = feuil2Cells(lig, 10)
Conso_CU_bareme = feuil2.Cells(lig, 7)
Conso_MU_bareme = feuil2Cells(lig, 9)
Conso_LU_bareme = feuil2Cells(lig, 11)

PF_CU = Fixe + (PF_CU_bareme * Puissance)

Conso_CU = (Conso_CU_bareme * Cells(i, 7).Value) / 100
TURPE2_CU = PF_CU + Conso_CU
MOYENNE_CU = TURPE2_CU / (Cells(i, 10).Value / 1000)
CTA_CU = 0.21 * PF_CU

PF_MU = Fixe + (PF_MU_bareme * Puissance)
Conso_MU = (Conso_MU_bareme * Cells(i, 7).Value) / 100
TURPE2_MU = PF_MU + Conso_MU
MOYENNE_MU = TURPE2_MU / (Cells(i, 10).Value / 1000)
CTA_MU = 0.21 * PF_MU

PF_LU = Fixe + (PF_LU_bareme * Puissance)
Conso_LU = (Conso_LU_bareme * Cells(i, 7).Value) / 100
TURPE2_LU = PF_LU + Conso_LU
MOYENNE_LU = TURPE2_LU / (Cells(i, 10).Value / 1000)
CTA_LU = 0.21 * PF_LU

TURPE2_OPTIMISE_BASE = Application.WorksheetFunction.Min(TURPE2_CU + _
CTA_CU, TURPE2_MU + CTA_MU, TURPE2_LU + CTA_LU)
If TURPE2_OPTIMISE_BASE = TURPE2_CU + CTA_CU Then OPTIMISE = "CU"
If TURPE2_OPTIMISE_BASE = TURPE2_MU + CTA_MU Then OPTIMISE = "MU"
If TURPE2_OPTIMISE_BASE = TURPE2_LU + CTA_LU Then OPTIMISE = "LU"
If OPTIMISE = "CU" Then
PF_OPT = PF_CU
Conso_OPT = Conso_CU
TURPE2_OPT = TURPE2_CU
MOYENNE_OPT = MOYENNE_CU
CTA_OPT = CTA_CU
End If
If OPTIMISE = "MU" Then
PF_OPT = PF_MU
Conso_OPT = Conso_MU
TURPE2_OPT = TURPE2_MU
MOYENNE_OPT = MOYENNE_MU
CTA_OPT = CTA_MU
End If
If OPTIMISE = "LU" Then
PF_OPT = PF_LU
Conso_OPT = Conso_LU
TURPE2_OPT = TURPE2_LU
MOYENNE_OPT = MOYENNE_LU
CTA_OPT = CTA_LU
End If
' CU
Cells(i, 16).Value = Round(PF_CU, 2)
Cells(i, 17).Value = Round(Conso_CU, 2)
Cells(i, 18).Value = Round(TURPE2_CU, 2)
Cells(i, 19).Value = Round(MOYENNE_CU, 2)
Cells(i, 20).Value = Round(CTA_CU, 2)
' MU
Cells(i, 22).Value = Round(PF_MU, 2)
Cells(i, 23).Value = Round(Conso_MU, 2)
Cells(i, 24).Value = Round(TURPE2_MU, 2)
Cells(i, 25).Value = Round(MOYENNE_MU, 2)
Cells(i, 26).Value = Round(CTA_MU, 2)
' LU
Cells(i, 28).Value = Round(PF_LU, 2)
Cells(i, 29).Value = Round(Conso_LU, 2)
Cells(i, 30).Value = Round(TURPE2_LU, 2)
Cells(i, 31).Value = Round(MOYENNE_LU, 2)
Cells(i, 32).Value = Round(CTA_LU, 2)
' minimum TURPE2 BASE optimisé
Cells(i, 40).Value = OPTIMISE
Cells(i, 41).Value = Round(PF_OPT, 2)
Cells(i, 42).Value = Round(Conso_OPT, 2)
Cells(i, 43).Value = Round(TURPE2_OPT, 2)
Cells(i, 44).Value = Round(MOYENNE_OPT, 2)
' CTA BASE optimisée
Cells(i, 46).Value = Round(CTA_OPT, 2)
Cells(i, 47).Value = Round(CTA_OPT / (Cells(i,10).Value / 1000), 2)
End If
If Cells(i, 1).Value = "Double" Then
Puissance = Cells(i, 14).Value

lig = [N:N].Find(Puissance, , xlValues).Row 'recherche de la ligne
Fixe = feuil3.Cells(lig, 5)
PF_MUDT_bareme = feuil3.Cells(lig, 6)
ConsoHP_MUDT_bareme = feuil3.Cells(lig, 7)
ConsoHC_MUDT_bareme = feuil3.Cells(lig, 8)

PF_MUDT = Fixe + (PF_MUDT_bareme * Puissance)
ConsoHP_MUDT = (ConsoHP_MUDT_bareme * Cells(i, 7).Value) / 100
ConsoHC_MUDT = (ConsoHC_MUDT_bareme * Cells(i, 8).Value) / 100
TURPE2_MUDT = PF_MUDT + ConsoHP_MUDT + ConsoHC_MUDT
MOYENNE_MUDT = TURPE2_MUDT / (Cells(i, 10).Value / 1000)
CTA_MUDT = 0.21 * PF_MUDT
' MU DT
Cells(i, 34).Value = Round(PF_MUDT, 2)
Cells(i, 35).Value = Round(ConsoHP_MUDT + ConsoHC_MUDT, 2)
Cells(i, 36).Value = Round(TURPE2_MUDT, 2)
Cells(i, 37).Value = Round(MOYENNE_MUDT, 2)
Cells(i, 38).Value = Round(CTA_MUDT, 2)
' TURPE2 DOUBLE (optimisé)
Cells(i, 40).Value = "MU DT"
Cells(i, 41).Value = Round(PF_MUDT, 2)
Cells(i, 42).Value = Round(ConsoHP_MUDT + ConsoHC_MUDT, 2)
Cells(i, 43).Value = Round(TURPE2_MUDT, 2)
Cells(i, 44).Value = Round(MOYENNE_MUDT, 2)
' CTA DOUBLE
Cells(i, 46).Value = Round(CTA_MUDT, 2)
Cells(i, 47).Value = Round(CTA_MUDT / (Cells(i, 10).Value /1000), 2)
End If
Next i

Application.Calculation = xlAutomatic 'on remet calcul auto normal
Application.ScreenUpdating = True ' on remets l'affichage

Vous avez filtré cet utilisateur ! Consultez son message

Merci pour tes réponses Youky.
Mais je ne comprends pas pourquoi sur Excel 2003 les temps de réponses sont
environ 10 fois meilleurs pour l'exécution de cette macro que sur Excel 2007
(à PC égal).

En supposant que tes plages

PlageST est sur Feuil2

PlageDT est sur Feuil3

A remplacer en macro selon le codename de la feuille

Il s'agit du nom de gauche en fenêtre projet et pas le nom d'onglet

La macro commence à la ligne de la cellule active

A vérifier si Puissance est bien en colonne N :N

Youky

Application.ScreenUpdating = False
Application.Calculation = xlManual
For i = ActiveCell.Row To NombreLignes - 1
If Cells(i, 1).Value = "Base" Then
Puissance = Cells(i, 14).Value
' remplacer N:N si pas la bonne colonne
'c'est la colonne ou l'on recherche la Puissance
lig = [N:N].Find(Puissance, , xlValues).Row 'recherche de la ligne
Fixe = Cells(lig, 5)
PF_CU_bareme = feuil2.Cells(lig, 6) ' on connait la ligne on y va direct
PF_MU_bareme = feuil2.Cells(lig, 8) ' si PlageST est <>de la page active
PF_LU_bareme = feuil2Cells(lig, 10)
Conso_CU_bareme = feuil2.Cells(lig, 7)
Conso_MU_bareme = feuil2Cells(lig, 9)
Conso_LU_bareme = feuil2Cells(lig, 11)

PF_CU = Fixe + (PF_CU_bareme * Puissance)

Conso_CU = (Conso_CU_bareme * Cells(i, 7).Value) / 100
TURPE2_CU = PF_CU + Conso_CU
MOYENNE_CU = TURPE2_CU / (Cells(i, 10).Value / 1000)
CTA_CU = 0.21 * PF_CU

PF_MU = Fixe + (PF_MU_bareme * Puissance)
Conso_MU = (Conso_MU_bareme * Cells(i, 7).Value) / 100
TURPE2_MU = PF_MU + Conso_MU
MOYENNE_MU = TURPE2_MU / (Cells(i, 10).Value / 1000)
CTA_MU = 0.21 * PF_MU

PF_LU = Fixe + (PF_LU_bareme * Puissance)
Conso_LU = (Conso_LU_bareme * Cells(i, 7).Value) / 100
TURPE2_LU = PF_LU + Conso_LU
MOYENNE_LU = TURPE2_LU / (Cells(i, 10).Value / 1000)
CTA_LU = 0.21 * PF_LU

TURPE2_OPTIMISE_BASE = Application.WorksheetFunction.Min(TURPE2_CU + _
CTA_CU, TURPE2_MU + CTA_MU, TURPE2_LU + CTA_LU)
If TURPE2_OPTIMISE_BASE = TURPE2_CU + CTA_CU Then OPTIMISE = "CU"
If TURPE2_OPTIMISE_BASE = TURPE2_MU + CTA_MU Then OPTIMISE = "MU"
If TURPE2_OPTIMISE_BASE = TURPE2_LU + CTA_LU Then OPTIMISE = "LU"
If OPTIMISE = "CU" Then
PF_OPT = PF_CU
Conso_OPT = Conso_CU
TURPE2_OPT = TURPE2_CU
MOYENNE_OPT = MOYENNE_CU
CTA_OPT = CTA_CU
End If
If OPTIMISE = "MU" Then
PF_OPT = PF_MU
Conso_OPT = Conso_MU
TURPE2_OPT = TURPE2_MU
MOYENNE_OPT = MOYENNE_MU
CTA_OPT = CTA_MU
End If
If OPTIMISE = "LU" Then
PF_OPT = PF_LU
Conso_OPT = Conso_LU
TURPE2_OPT = TURPE2_LU
MOYENNE_OPT = MOYENNE_LU
CTA_OPT = CTA_LU
End If
' CU
Cells(i, 16).Value = Round(PF_CU, 2)
Cells(i, 17).Value = Round(Conso_CU, 2)
Cells(i, 18).Value = Round(TURPE2_CU, 2)
Cells(i, 19).Value = Round(MOYENNE_CU, 2)
Cells(i, 20).Value = Round(CTA_CU, 2)
' MU
Cells(i, 22).Value = Round(PF_MU, 2)
Cells(i, 23).Value = Round(Conso_MU, 2)
Cells(i, 24).Value = Round(TURPE2_MU, 2)
Cells(i, 25).Value = Round(MOYENNE_MU, 2)
Cells(i, 26).Value = Round(CTA_MU, 2)
' LU
Cells(i, 28).Value = Round(PF_LU, 2)
Cells(i, 29).Value = Round(Conso_LU, 2)
Cells(i, 30).Value = Round(TURPE2_LU, 2)
Cells(i, 31).Value = Round(MOYENNE_LU, 2)
Cells(i, 32).Value = Round(CTA_LU, 2)
' minimum TURPE2 BASE optimisé
Cells(i, 40).Value = OPTIMISE
Cells(i, 41).Value = Round(PF_OPT, 2)
Cells(i, 42).Value = Round(Conso_OPT, 2)
Cells(i, 43).Value = Round(TURPE2_OPT, 2)
Cells(i, 44).Value = Round(MOYENNE_OPT, 2)
' CTA BASE optimisée
Cells(i, 46).Value = Round(CTA_OPT, 2)
Cells(i, 47).Value = Round(CTA_OPT / (Cells(i,10).Value / 1000), 2)
End If
If Cells(i, 1).Value = "Double" Then
Puissance = Cells(i, 14).Value

lig = [N:N].Find(Puissance, , xlValues).Row 'recherche de la ligne
Fixe = feuil3.Cells(lig, 5)
PF_MUDT_bareme = feuil3.Cells(lig, 6)
ConsoHP_MUDT_bareme = feuil3.Cells(lig, 7)
ConsoHC_MUDT_bareme = feuil3.Cells(lig, 8)

PF_MUDT = Fixe + (PF_MUDT_bareme * Puissance)
ConsoHP_MUDT = (ConsoHP_MUDT_bareme * Cells(i, 7).Value) / 100
ConsoHC_MUDT = (ConsoHC_MUDT_bareme * Cells(i, 8).Value) / 100
TURPE2_MUDT = PF_MUDT + ConsoHP_MUDT + ConsoHC_MUDT
MOYENNE_MUDT = TURPE2_MUDT / (Cells(i, 10).Value / 1000)
CTA_MUDT = 0.21 * PF_MUDT
' MU DT
Cells(i, 34).Value = Round(PF_MUDT, 2)
Cells(i, 35).Value = Round(ConsoHP_MUDT + ConsoHC_MUDT, 2)
Cells(i, 36).Value = Round(TURPE2_MUDT, 2)
Cells(i, 37).Value = Round(MOYENNE_MUDT, 2)
Cells(i, 38).Value = Round(CTA_MUDT, 2)
' TURPE2 DOUBLE (optimisé)
Cells(i, 40).Value = "MU DT"
Cells(i, 41).Value = Round(PF_MUDT, 2)
Cells(i, 42).Value = Round(ConsoHP_MUDT + ConsoHC_MUDT, 2)
Cells(i, 43).Value = Round(TURPE2_MUDT, 2)
Cells(i, 44).Value = Round(MOYENNE_MUDT, 2)
' CTA DOUBLE
Cells(i, 46).Value = Round(CTA_MUDT, 2)
Cells(i, 47).Value = Round(CTA_MUDT / (Cells(i, 10).Value /1000), 2)
End If
Next i

Application.Calculation = xlAutomatic 'on remet calcul auto normal
Application.ScreenUpdating = True ' on remets l'affichage

Youky

06/08/2007 à 09:43

Je ne possède pas Excel 2007.
Le 2003 consomme surement moins de ressources que le nouveau
qui possède des tableaux bien plus large.
PS si la macro reste longue tu peux mettre un DoEvents en dessous de For
....
cela redonne la main à windows (il aime bien)
Youky

"Nicolas" a écrit dans le message de
news:

Merci pour tes réponses Youky.
Mais je ne comprends pas pourquoi sur Excel 2003 les temps de réponses
sont
environ 10 fois meilleurs pour l'exécution de cette macro que sur Excel
2007
(à PC égal).

En supposant que tes plages

PlageST est sur Feuil2

PlageDT est sur Feuil3

A remplacer en macro selon le codename de la feuille

Il s'agit du nom de gauche en fenêtre projet et pas le nom d'onglet

La macro commence à la ligne de la cellule active

A vérifier si Puissance est bien en colonne N :N

Youky

Application.ScreenUpdating = False
Application.Calculation = xlManual
For i = ActiveCell.Row To NombreLignes - 1
If Cells(i, 1).Value = "Base" Then
Puissance = Cells(i, 14).Value
' remplacer N:N si pas la bonne colonne
'c'est la colonne ou l'on recherche la Puissance
lig = [N:N].Find(Puissance, , xlValues).Row 'recherche de la ligne
Fixe = Cells(lig, 5)
PF_CU_bareme = feuil2.Cells(lig, 6) ' on connait la ligne on y va
direct
PF_MU_bareme = feuil2.Cells(lig, 8) ' si PlageST est <>de la page
active
PF_LU_bareme = feuil2Cells(lig, 10)
Conso_CU_bareme = feuil2.Cells(lig, 7)
Conso_MU_bareme = feuil2Cells(lig, 9)
Conso_LU_bareme = feuil2Cells(lig, 11)

PF_CU = Fixe + (PF_CU_bareme * Puissance)

Conso_CU = (Conso_CU_bareme * Cells(i, 7).Value) / 100
TURPE2_CU = PF_CU + Conso_CU
MOYENNE_CU = TURPE2_CU / (Cells(i, 10).Value / 1000)
CTA_CU = 0.21 * PF_CU

PF_MU = Fixe + (PF_MU_bareme * Puissance)
Conso_MU = (Conso_MU_bareme * Cells(i, 7).Value) / 100
TURPE2_MU = PF_MU + Conso_MU
MOYENNE_MU = TURPE2_MU / (Cells(i, 10).Value / 1000)
CTA_MU = 0.21 * PF_MU

PF_LU = Fixe + (PF_LU_bareme * Puissance)
Conso_LU = (Conso_LU_bareme * Cells(i, 7).Value) / 100
TURPE2_LU = PF_LU + Conso_LU
MOYENNE_LU = TURPE2_LU / (Cells(i, 10).Value / 1000)
CTA_LU = 0.21 * PF_LU

TURPE2_OPTIMISE_BASE = Application.WorksheetFunction.Min(TURPE2_CU +
_
CTA_CU, TURPE2_MU + CTA_MU, TURPE2_LU + CTA_LU)
If TURPE2_OPTIMISE_BASE = TURPE2_CU + CTA_CU Then OPTIMISE = "CU"
If TURPE2_OPTIMISE_BASE = TURPE2_MU + CTA_MU Then OPTIMISE = "MU"
If TURPE2_OPTIMISE_BASE = TURPE2_LU + CTA_LU Then OPTIMISE = "LU"
If OPTIMISE = "CU" Then
PF_OPT = PF_CU
Conso_OPT = Conso_CU
TURPE2_OPT = TURPE2_CU
MOYENNE_OPT = MOYENNE_CU
CTA_OPT = CTA_CU
End If
If OPTIMISE = "MU" Then
PF_OPT = PF_MU
Conso_OPT = Conso_MU
TURPE2_OPT = TURPE2_MU
MOYENNE_OPT = MOYENNE_MU
CTA_OPT = CTA_MU
End If
If OPTIMISE = "LU" Then
PF_OPT = PF_LU
Conso_OPT = Conso_LU
TURPE2_OPT = TURPE2_LU
MOYENNE_OPT = MOYENNE_LU
CTA_OPT = CTA_LU
End If
' CU
Cells(i, 16).Value = Round(PF_CU, 2)
Cells(i, 17).Value = Round(Conso_CU, 2)
Cells(i, 18).Value = Round(TURPE2_CU, 2)
Cells(i, 19).Value = Round(MOYENNE_CU, 2)
Cells(i, 20).Value = Round(CTA_CU, 2)
' MU
Cells(i, 22).Value = Round(PF_MU, 2)
Cells(i, 23).Value = Round(Conso_MU, 2)
Cells(i, 24).Value = Round(TURPE2_MU, 2)
Cells(i, 25).Value = Round(MOYENNE_MU, 2)
Cells(i, 26).Value = Round(CTA_MU, 2)
' LU
Cells(i, 28).Value = Round(PF_LU, 2)
Cells(i, 29).Value = Round(Conso_LU, 2)
Cells(i, 30).Value = Round(TURPE2_LU, 2)
Cells(i, 31).Value = Round(MOYENNE_LU, 2)
Cells(i, 32).Value = Round(CTA_LU, 2)
' minimum TURPE2 BASE optimisé
Cells(i, 40).Value = OPTIMISE
Cells(i, 41).Value = Round(PF_OPT, 2)
Cells(i, 42).Value = Round(Conso_OPT, 2)
Cells(i, 43).Value = Round(TURPE2_OPT, 2)
Cells(i, 44).Value = Round(MOYENNE_OPT, 2)
' CTA BASE optimisée
Cells(i, 46).Value = Round(CTA_OPT, 2)
Cells(i, 47).Value = Round(CTA_OPT / (Cells(i,10).Value / 1000), 2)
End If
If Cells(i, 1).Value = "Double" Then
Puissance = Cells(i, 14).Value

lig = [N:N].Find(Puissance, , xlValues).Row 'recherche de la ligne
Fixe = feuil3.Cells(lig, 5)
PF_MUDT_bareme = feuil3.Cells(lig, 6)
ConsoHP_MUDT_bareme = feuil3.Cells(lig, 7)
ConsoHC_MUDT_bareme = feuil3.Cells(lig, 8)

PF_MUDT = Fixe + (PF_MUDT_bareme * Puissance)
ConsoHP_MUDT = (ConsoHP_MUDT_bareme * Cells(i, 7).Value) / 100
ConsoHC_MUDT = (ConsoHC_MUDT_bareme * Cells(i, 8).Value) / 100
TURPE2_MUDT = PF_MUDT + ConsoHP_MUDT + ConsoHC_MUDT
MOYENNE_MUDT = TURPE2_MUDT / (Cells(i, 10).Value / 1000)
CTA_MUDT = 0.21 * PF_MUDT
' MU DT
Cells(i, 34).Value = Round(PF_MUDT, 2)
Cells(i, 35).Value = Round(ConsoHP_MUDT + ConsoHC_MUDT, 2)
Cells(i, 36).Value = Round(TURPE2_MUDT, 2)
Cells(i, 37).Value = Round(MOYENNE_MUDT, 2)
Cells(i, 38).Value = Round(CTA_MUDT, 2)
' TURPE2 DOUBLE (optimisé)
Cells(i, 40).Value = "MU DT"
Cells(i, 41).Value = Round(PF_MUDT, 2)
Cells(i, 42).Value = Round(ConsoHP_MUDT + ConsoHC_MUDT, 2)
Cells(i, 43).Value = Round(TURPE2_MUDT, 2)
Cells(i, 44).Value = Round(MOYENNE_MUDT, 2)
' CTA DOUBLE
Cells(i, 46).Value = Round(CTA_MUDT, 2)
Cells(i, 47).Value = Round(CTA_MUDT / (Cells(i, 10).Value /1000), 2)
End If
Next i

Application.Calculation = xlAutomatic 'on remet calcul auto normal
Application.ScreenUpdating = True ' on remets l'affichage

Je ne possède pas Excel 2007.
Le 2003 consomme surement moins de ressources que le nouveau
qui possède des tableaux bien plus large.
PS si la macro reste longue tu peux mettre un DoEvents en dessous de For
....
cela redonne la main à windows (il aime bien)
Youky

"Nicolas" <Nicolas@discussions.microsoft.com> a écrit dans le message de
news: 722FC06D-E5E9-4B11-8FE2-94E797643C6C@microsoft.com...

Merci pour tes réponses Youky.
Mais je ne comprends pas pourquoi sur Excel 2003 les temps de réponses
sont
environ 10 fois meilleurs pour l'exécution de cette macro que sur Excel
2007
(à PC égal).

En supposant que tes plages

PlageST est sur Feuil2

PlageDT est sur Feuil3

A remplacer en macro selon le codename de la feuille

Il s'agit du nom de gauche en fenêtre projet et pas le nom d'onglet

La macro commence à la ligne de la cellule active

A vérifier si Puissance est bien en colonne N :N

Youky

Application.ScreenUpdating = False
Application.Calculation = xlManual
For i = ActiveCell.Row To NombreLignes - 1
If Cells(i, 1).Value = "Base" Then
Puissance = Cells(i, 14).Value
' remplacer N:N si pas la bonne colonne
'c'est la colonne ou l'on recherche la Puissance
lig = [N:N].Find(Puissance, , xlValues).Row 'recherche de la ligne
Fixe = Cells(lig, 5)
PF_CU_bareme = feuil2.Cells(lig, 6) ' on connait la ligne on y va
direct
PF_MU_bareme = feuil2.Cells(lig, 8) ' si PlageST est <>de la page
active
PF_LU_bareme = feuil2Cells(lig, 10)
Conso_CU_bareme = feuil2.Cells(lig, 7)
Conso_MU_bareme = feuil2Cells(lig, 9)
Conso_LU_bareme = feuil2Cells(lig, 11)

PF_CU = Fixe + (PF_CU_bareme * Puissance)

Conso_CU = (Conso_CU_bareme * Cells(i, 7).Value) / 100
TURPE2_CU = PF_CU + Conso_CU
MOYENNE_CU = TURPE2_CU / (Cells(i, 10).Value / 1000)
CTA_CU = 0.21 * PF_CU

PF_MU = Fixe + (PF_MU_bareme * Puissance)
Conso_MU = (Conso_MU_bareme * Cells(i, 7).Value) / 100
TURPE2_MU = PF_MU + Conso_MU
MOYENNE_MU = TURPE2_MU / (Cells(i, 10).Value / 1000)
CTA_MU = 0.21 * PF_MU

PF_LU = Fixe + (PF_LU_bareme * Puissance)
Conso_LU = (Conso_LU_bareme * Cells(i, 7).Value) / 100
TURPE2_LU = PF_LU + Conso_LU
MOYENNE_LU = TURPE2_LU / (Cells(i, 10).Value / 1000)
CTA_LU = 0.21 * PF_LU

TURPE2_OPTIMISE_BASE = Application.WorksheetFunction.Min(TURPE2_CU +
_
CTA_CU, TURPE2_MU + CTA_MU, TURPE2_LU + CTA_LU)
If TURPE2_OPTIMISE_BASE = TURPE2_CU + CTA_CU Then OPTIMISE = "CU"
If TURPE2_OPTIMISE_BASE = TURPE2_MU + CTA_MU Then OPTIMISE = "MU"
If TURPE2_OPTIMISE_BASE = TURPE2_LU + CTA_LU Then OPTIMISE = "LU"
If OPTIMISE = "CU" Then
PF_OPT = PF_CU
Conso_OPT = Conso_CU
TURPE2_OPT = TURPE2_CU
MOYENNE_OPT = MOYENNE_CU
CTA_OPT = CTA_CU
End If
If OPTIMISE = "MU" Then
PF_OPT = PF_MU
Conso_OPT = Conso_MU
TURPE2_OPT = TURPE2_MU
MOYENNE_OPT = MOYENNE_MU
CTA_OPT = CTA_MU
End If
If OPTIMISE = "LU" Then
PF_OPT = PF_LU
Conso_OPT = Conso_LU
TURPE2_OPT = TURPE2_LU
MOYENNE_OPT = MOYENNE_LU
CTA_OPT = CTA_LU
End If
' CU
Cells(i, 16).Value = Round(PF_CU, 2)
Cells(i, 17).Value = Round(Conso_CU, 2)
Cells(i, 18).Value = Round(TURPE2_CU, 2)
Cells(i, 19).Value = Round(MOYENNE_CU, 2)
Cells(i, 20).Value = Round(CTA_CU, 2)
' MU
Cells(i, 22).Value = Round(PF_MU, 2)
Cells(i, 23).Value = Round(Conso_MU, 2)
Cells(i, 24).Value = Round(TURPE2_MU, 2)
Cells(i, 25).Value = Round(MOYENNE_MU, 2)
Cells(i, 26).Value = Round(CTA_MU, 2)
' LU
Cells(i, 28).Value = Round(PF_LU, 2)
Cells(i, 29).Value = Round(Conso_LU, 2)
Cells(i, 30).Value = Round(TURPE2_LU, 2)
Cells(i, 31).Value = Round(MOYENNE_LU, 2)
Cells(i, 32).Value = Round(CTA_LU, 2)
' minimum TURPE2 BASE optimisé
Cells(i, 40).Value = OPTIMISE
Cells(i, 41).Value = Round(PF_OPT, 2)
Cells(i, 42).Value = Round(Conso_OPT, 2)
Cells(i, 43).Value = Round(TURPE2_OPT, 2)
Cells(i, 44).Value = Round(MOYENNE_OPT, 2)
' CTA BASE optimisée
Cells(i, 46).Value = Round(CTA_OPT, 2)
Cells(i, 47).Value = Round(CTA_OPT / (Cells(i,10).Value / 1000), 2)
End If
If Cells(i, 1).Value = "Double" Then
Puissance = Cells(i, 14).Value

lig = [N:N].Find(Puissance, , xlValues).Row 'recherche de la ligne
Fixe = feuil3.Cells(lig, 5)
PF_MUDT_bareme = feuil3.Cells(lig, 6)
ConsoHP_MUDT_bareme = feuil3.Cells(lig, 7)
ConsoHC_MUDT_bareme = feuil3.Cells(lig, 8)

PF_MUDT = Fixe + (PF_MUDT_bareme * Puissance)
ConsoHP_MUDT = (ConsoHP_MUDT_bareme * Cells(i, 7).Value) / 100
ConsoHC_MUDT = (ConsoHC_MUDT_bareme * Cells(i, 8).Value) / 100
TURPE2_MUDT = PF_MUDT + ConsoHP_MUDT + ConsoHC_MUDT
MOYENNE_MUDT = TURPE2_MUDT / (Cells(i, 10).Value / 1000)
CTA_MUDT = 0.21 * PF_MUDT
' MU DT
Cells(i, 34).Value = Round(PF_MUDT, 2)
Cells(i, 35).Value = Round(ConsoHP_MUDT + ConsoHC_MUDT, 2)
Cells(i, 36).Value = Round(TURPE2_MUDT, 2)
Cells(i, 37).Value = Round(MOYENNE_MUDT, 2)
Cells(i, 38).Value = Round(CTA_MUDT, 2)
' TURPE2 DOUBLE (optimisé)
Cells(i, 40).Value = "MU DT"
Cells(i, 41).Value = Round(PF_MUDT, 2)
Cells(i, 42).Value = Round(ConsoHP_MUDT + ConsoHC_MUDT, 2)
Cells(i, 43).Value = Round(TURPE2_MUDT, 2)
Cells(i, 44).Value = Round(MOYENNE_MUDT, 2)
' CTA DOUBLE
Cells(i, 46).Value = Round(CTA_MUDT, 2)
Cells(i, 47).Value = Round(CTA_MUDT / (Cells(i, 10).Value /1000), 2)
End If
Next i

Application.Calculation = xlAutomatic 'on remet calcul auto normal
Application.ScreenUpdating = True ' on remets l'affichage

Vous avez filtré cet utilisateur ! Consultez son message

Je ne possède pas Excel 2007.
Le 2003 consomme surement moins de ressources que le nouveau
qui possède des tableaux bien plus large.
PS si la macro reste longue tu peux mettre un DoEvents en dessous de For
....
cela redonne la main à windows (il aime bien)
Youky

"Nicolas" a écrit dans le message de
news:

Merci pour tes réponses Youky.
Mais je ne comprends pas pourquoi sur Excel 2003 les temps de réponses
sont
environ 10 fois meilleurs pour l'exécution de cette macro que sur Excel
2007
(à PC égal).

En supposant que tes plages

PlageST est sur Feuil2

PlageDT est sur Feuil3

A remplacer en macro selon le codename de la feuille

Il s'agit du nom de gauche en fenêtre projet et pas le nom d'onglet

La macro commence à la ligne de la cellule active

A vérifier si Puissance est bien en colonne N :N

Youky

Application.ScreenUpdating = False
Application.Calculation = xlManual
For i = ActiveCell.Row To NombreLignes - 1
If Cells(i, 1).Value = "Base" Then
Puissance = Cells(i, 14).Value
' remplacer N:N si pas la bonne colonne
'c'est la colonne ou l'on recherche la Puissance
lig = [N:N].Find(Puissance, , xlValues).Row 'recherche de la ligne
Fixe = Cells(lig, 5)
PF_CU_bareme = feuil2.Cells(lig, 6) ' on connait la ligne on y va
direct
PF_MU_bareme = feuil2.Cells(lig, 8) ' si PlageST est <>de la page
active
PF_LU_bareme = feuil2Cells(lig, 10)
Conso_CU_bareme = feuil2.Cells(lig, 7)
Conso_MU_bareme = feuil2Cells(lig, 9)
Conso_LU_bareme = feuil2Cells(lig, 11)

PF_CU = Fixe + (PF_CU_bareme * Puissance)

Conso_CU = (Conso_CU_bareme * Cells(i, 7).Value) / 100
TURPE2_CU = PF_CU + Conso_CU
MOYENNE_CU = TURPE2_CU / (Cells(i, 10).Value / 1000)
CTA_CU = 0.21 * PF_CU

PF_MU = Fixe + (PF_MU_bareme * Puissance)
Conso_MU = (Conso_MU_bareme * Cells(i, 7).Value) / 100
TURPE2_MU = PF_MU + Conso_MU
MOYENNE_MU = TURPE2_MU / (Cells(i, 10).Value / 1000)
CTA_MU = 0.21 * PF_MU

PF_LU = Fixe + (PF_LU_bareme * Puissance)
Conso_LU = (Conso_LU_bareme * Cells(i, 7).Value) / 100
TURPE2_LU = PF_LU + Conso_LU
MOYENNE_LU = TURPE2_LU / (Cells(i, 10).Value / 1000)
CTA_LU = 0.21 * PF_LU

TURPE2_OPTIMISE_BASE = Application.WorksheetFunction.Min(TURPE2_CU +
_
CTA_CU, TURPE2_MU + CTA_MU, TURPE2_LU + CTA_LU)
If TURPE2_OPTIMISE_BASE = TURPE2_CU + CTA_CU Then OPTIMISE = "CU"
If TURPE2_OPTIMISE_BASE = TURPE2_MU + CTA_MU Then OPTIMISE = "MU"
If TURPE2_OPTIMISE_BASE = TURPE2_LU + CTA_LU Then OPTIMISE = "LU"
If OPTIMISE = "CU" Then
PF_OPT = PF_CU
Conso_OPT = Conso_CU
TURPE2_OPT = TURPE2_CU
MOYENNE_OPT = MOYENNE_CU
CTA_OPT = CTA_CU
End If
If OPTIMISE = "MU" Then
PF_OPT = PF_MU
Conso_OPT = Conso_MU
TURPE2_OPT = TURPE2_MU
MOYENNE_OPT = MOYENNE_MU
CTA_OPT = CTA_MU
End If
If OPTIMISE = "LU" Then
PF_OPT = PF_LU
Conso_OPT = Conso_LU
TURPE2_OPT = TURPE2_LU
MOYENNE_OPT = MOYENNE_LU
CTA_OPT = CTA_LU
End If
' CU
Cells(i, 16).Value = Round(PF_CU, 2)
Cells(i, 17).Value = Round(Conso_CU, 2)
Cells(i, 18).Value = Round(TURPE2_CU, 2)
Cells(i, 19).Value = Round(MOYENNE_CU, 2)
Cells(i, 20).Value = Round(CTA_CU, 2)
' MU
Cells(i, 22).Value = Round(PF_MU, 2)
Cells(i, 23).Value = Round(Conso_MU, 2)
Cells(i, 24).Value = Round(TURPE2_MU, 2)
Cells(i, 25).Value = Round(MOYENNE_MU, 2)
Cells(i, 26).Value = Round(CTA_MU, 2)
' LU
Cells(i, 28).Value = Round(PF_LU, 2)
Cells(i, 29).Value = Round(Conso_LU, 2)
Cells(i, 30).Value = Round(TURPE2_LU, 2)
Cells(i, 31).Value = Round(MOYENNE_LU, 2)
Cells(i, 32).Value = Round(CTA_LU, 2)
' minimum TURPE2 BASE optimisé
Cells(i, 40).Value = OPTIMISE
Cells(i, 41).Value = Round(PF_OPT, 2)
Cells(i, 42).Value = Round(Conso_OPT, 2)
Cells(i, 43).Value = Round(TURPE2_OPT, 2)
Cells(i, 44).Value = Round(MOYENNE_OPT, 2)
' CTA BASE optimisée
Cells(i, 46).Value = Round(CTA_OPT, 2)
Cells(i, 47).Value = Round(CTA_OPT / (Cells(i,10).Value / 1000), 2)
End If
If Cells(i, 1).Value = "Double" Then
Puissance = Cells(i, 14).Value

lig = [N:N].Find(Puissance, , xlValues).Row 'recherche de la ligne
Fixe = feuil3.Cells(lig, 5)
PF_MUDT_bareme = feuil3.Cells(lig, 6)
ConsoHP_MUDT_bareme = feuil3.Cells(lig, 7)
ConsoHC_MUDT_bareme = feuil3.Cells(lig, 8)

PF_MUDT = Fixe + (PF_MUDT_bareme * Puissance)
ConsoHP_MUDT = (ConsoHP_MUDT_bareme * Cells(i, 7).Value) / 100
ConsoHC_MUDT = (ConsoHC_MUDT_bareme * Cells(i, 8).Value) / 100
TURPE2_MUDT = PF_MUDT + ConsoHP_MUDT + ConsoHC_MUDT
MOYENNE_MUDT = TURPE2_MUDT / (Cells(i, 10).Value / 1000)
CTA_MUDT = 0.21 * PF_MUDT
' MU DT
Cells(i, 34).Value = Round(PF_MUDT, 2)
Cells(i, 35).Value = Round(ConsoHP_MUDT + ConsoHC_MUDT, 2)
Cells(i, 36).Value = Round(TURPE2_MUDT, 2)
Cells(i, 37).Value = Round(MOYENNE_MUDT, 2)
Cells(i, 38).Value = Round(CTA_MUDT, 2)
' TURPE2 DOUBLE (optimisé)
Cells(i, 40).Value = "MU DT"
Cells(i, 41).Value = Round(PF_MUDT, 2)
Cells(i, 42).Value = Round(ConsoHP_MUDT + ConsoHC_MUDT, 2)
Cells(i, 43).Value = Round(TURPE2_MUDT, 2)
Cells(i, 44).Value = Round(MOYENNE_MUDT, 2)
' CTA DOUBLE
Cells(i, 46).Value = Round(CTA_MUDT, 2)
Cells(i, 47).Value = Round(CTA_MUDT / (Cells(i, 10).Value /1000), 2)
End If
Next i

Application.Calculation = xlAutomatic 'on remet calcul auto normal
Application.ScreenUpdating = True ' on remets l'affichage

Lenteurs de macros VBA sous Excel 2007 vs Excel 2003

4 réponses

Veuillez sélectionner un problème