Discussion :

[ritchy76]

Bonjour à tous,

Je travail sous excel 2016 et j'ai créé une fonction pour tester différente valeur dans un calcul.

Voici la fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Function truc(TMS As Range, VP As Range)
Application.Volatile
    Dim CS(0 To 10) As String
    CS(1) = 0.53
    CS(2) = 0.55
    CS(3) = 0.78
    CS(4) = 0.92
    CS(5) = 1.019
    CS(6) = 1.2
    CS(7) = 1.35
    CS(8) = 1.59
    CS(9) = 1.8
 
    LimitRendBasse = 0.1
    LimitRendHaute = 0.45
 
    For i = 1 To 9
        If (TMS.Value / CS(i)) / VP > LimitRendBasse And (TMS.Value / CS(i)) / VP < LimitRendHaute Then
            truc = TMS.Value / CS(i)
        Exit Function
        End If
    Next i
End Function

Mon souci est le suivant : dès que je travail sur un autre onglet ou un autre fichier excel, toutes les cases où j'utilise la fonction "truc" passe vide ou en erreur, comme si excel ne lançait pas le calcul en automatique pour cette fonction dès que je suis ailleurs. Il faut que j'y retourne manuellement faire un clic sur la case ou appuyer sur F9...

Je ne sais pas si je suis très clair mais si quelqu'un pouvait m'aider,

Merci à vous,

Ritchy76

[Theze]

Bonjour,

Chez moi pas de soucis, les valeurs calculées restent bien mais type bien tes variables, le tableau en Single et non en String puis les bornes sont 1 et 9 : Dim CS(1 To 9) As Single car tu boucle sur ces bornes :

Code :

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

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
 
Function truc(TMS As Range, VP As Range)
 
    Dim CS(1 To 9) As Single
    Dim LimitRendBasse As Single
    Dim LimitRendHaute As Single
    Dim I As Integer
 
    Application.Volatile
 
    CS(1) = 0.53
    CS(2) = 0.55
    CS(3) = 0.78
    CS(4) = 0.92
    CS(5) = 1.019
    CS(6) = 1.2
    CS(7) = 1.35
    CS(8) = 1.59
    CS(9) = 1.8
 
    LimitRendBasse = 0.1
    LimitRendHaute = 0.45
 
    For I = 1 To 9
        If TMS.Value / CS(I) / VP > LimitRendBasse And TMS.Value / CS(I) / VP < LimitRendHaute Then
            truc = TMS.Value / CS(I)
        Exit Function
        End If
    Next I
 
End Function

[ritchy76]

Bonjour,

Merci, effectivement il y avait quelques erreurs dans la définition des variables.

Par contre mon problème est toujours la, du coup, j’essaie de mettre mon fichier en PJ demain.

Si quelqu'un d'autre a une idée, c'est peut être dans les paramètres Excel ? Calcul avec Itéaration ?

Demain, je mets le fichier.

Merci encore de votre aide.

Bonne fin de journée,

Ritchy76