Problème recalcul fichier Excel avec fonctions VBA

Version imprimable

18/07/2014, 14h24
julio44

Problème recalcul fichier Excel avec fonctions VBA

Bonjour à tous,

J'ai un problème avec un de mes fichiers Excel, je m'explique.
Celui-ci contient une fonction GetValue (qui en gros, effectue un index + equiv), fonction ensuite utilisée maintes et maintes fois dans le fichier.

Pour recalculer le fichier (appelons le fichier A), j'effectue souvent un F9 car c'est en calcul manuel.
Cependant, quand j'effectue un F9 sur un autre fichier Excel quelconque ouvert en parallèle (sur un fichier B), le fichier A me sort des #VALEUR sur TOUTES les cellules contenant ma formule GetValue.
Je suis alors contraint d'effectuer un CTRL + ALT+ F9 afin d'obtenir mes résultats sur le fichier A.

Auriez-vous une idée de pourquoi ? et encore mieux, comment pourrais-je résoudre ce problème assez contraignant ?? temps de calcul assez long .. :aie:

Je vous remercie,

Julien
18/07/2014, 14h43
SfJ5Rpw8

Bonjour,

Quel est le code de ta fonction GetValue car "en gros" cela ne me dit pas grand chose je ne vois pas par exemple si tu utilise des objets range, sheet, cells... sans préciser leur parent..

Pas de soucis, voici le code complet de la fonction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Public Function GetValue(ByVal NomTable As String, ByVal NomEntite As Variant, ByVal NomChamp As Variant, Optional ByVal NumCoChampEntite As Integer = 1) As Variant
Dim Table As Variant: Table = Range(NomTable).Value
Dim NbLi As Integer: NbLi = UBound(Table, 1)
Dim NbCo As Integer: NbCo = UBound(Table, 2)
Dim i As Integer, j As Integer
Dim NumLi As Integer: NumLi = 0
Dim NumCo As Integer: NumCo = 0
If NomEntite = "" Or NomChamp = "" Then
    GoTo 0
Else
    For i = 2 To NbLi
        If NomEntite = Table(i, NumCoChampEntite) Then
            NumLi = i
            Exit For
        End If
    Next i
    For j = 1 To NbCo
        If NomChamp = Table(1, j) Then
            NumCo = j
            Exit For
        End If
    Next j
    If (NumLi = 0) Or (NumCo = 0) Then
        GetValue = "La valeur recherchée ne figure pas dans la table"
    Else
        GetValue = Table(NumLi, NumCo)
    End If
End If
Exit Function
0:
    GetValue = 0
End Function

18/07/2014, 14h53
SfJ5Rpw8

re,

ben dés la première ligne de code tu utilise Range sans préciser à qu'elle feuille il appartient.. et donc Excel utilise la feuille active d'ou tes problèmes lorsque tu effectue un recalcul après avoir changé de feuille active..

lorsque tu utilise range il faut toujours le précéder de ses parents (classeurs et feuille...)

De plus je pense que tu gagnerais à transformer en range ton paramètre NomTable
18/07/2014, 15h07
julio44

Yes ça marche merci beaucoup. j'avais fait comme ça car NomTable est une zone nommée dynamique construite via formule, mais l'onglet de celle-ci ne change pas en effet \o/ :)