Discussion :

[al1_24]

Bonjour,

Je suis en train de développer une feuille de calcul dans laquelle je répète de nombreuses fois la même formule complexe, utilisant plusieurs fois la même référence, voire la même expression.
Je me proposais donc de créer une fonction personnelle pour remplacer cette formule.
Toutefois, je m'interroge : qu'est-ce qui est le plus efficace en terme de vitesse de calcul, une formule complexe ou l'appel à une fonction personnelle ?

[Philippe Tulliez]

Bonjour,
En principe une fonction personnalisée est plus lente qu'une fonction native d'excel mais il est dès fois plus intéressant et plus lisible de faire une fonction personnalisée à 5, 6 arguments plutôt qu'une multitudes de formules imbriquées.
Il est également possible mais cela dépends des cas de créer une formule dans le gestionnaire des noms.

[Invité]

Bonjour,

Excel utilise efficacement le Multitreading sur les fonctions native d'Excel jusqu'à hauteur de 1024 thread, donc ça dépendra fortement du nombre de coeurs que ton CPU possède.

Egalement, la fonction perso doit calculer avec des tableaux si des plages de cellules sont spécifiées, sinon, la perte de performance entre Excel et le VBA peut dans certains cas être très très grande (genre 50X ou 100X).

[al1_24]

Egalement, la fonction perso doit calculer avec des tableaux si des plages de cellules sont spécifiées, sinon, la perte de performance entre Excel et le VBA peut dans certains cas être très très grande (genre 50X ou 100X).

Par exemple, j'ai une fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function Retourne(Valeur As Variant, LstReference As Range, Optional LstRetour As Range) As Variant
    On Error GoTo Fin
    If IsEmpty(Valeur) Or Valeur = "" Then
        Retourne = ""
    ElseIf IsMissing(LstRetour) Then
        Retourne = Application.WorksheetFunction.Index(LstReference.Columns(LstReference.Columns.Count), Application.WorksheetFunction.Match(Valeur, LstReference.Columns(1), 0))
    Else
        Retourne = Application.WorksheetFunction.Index(LstRetour.Columns(1), Application.WorksheetFunction.Match(Valeur, LstReference.Columns(1), 0))
    End If
Fin:
    Retourne = ""
End Function

Selon toi, la formule suivante :

Code :

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

=SI(OU(ESTVIDE(A2);A2="");"";INDEX(B2:B16;EQUIV(A2;Reference!C5:C19;0)))

sera beaucoup plus rapide que celle-ci :

Code :

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

=CHERCHEREF(A2;Reference!C5:C19;B2:B16)

[eriiic]

Bonjour,

vu que ta fonction personnalisée utilise la fonction feuille d'excel, aucune chance qu'elle soit plus rapide.
Par contre je ne vois pas bien la différence entre ESTVIDE(A2) et A2=""
A moins que tu n'y ais une formule que tu supprimes parfois, A2="" devrait être suffisant.

eric

[Philippe Tulliez]

Bonjour,

Bonjour,
vu que ta fonction personnalisée utilise la fonction feuille d'excel, aucune chance qu'elle soit plus rapide.
Par contre je ne vois pas bien la différence entre ESTVIDE(A2) et A2=""
A moins que tu n'y ais une formule que tu supprimes parfois, A2="" devrait être suffisant.
eric

Il y a une grande différence
Ecrit en A1

Code :

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

=""

ou

Code :

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

=SI(A3="Test";"Oui";"")

en B1

Code :

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

=ESTVIDE(A1)

et en C1

Code :

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

 = A1=""