Fonction Macro VBA

Version imprimable

Fonction Macro VBA

Bonjour,

La fonction suivante me renvoie #Valeur! et je voudrais si possible connaitre la cause.

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Function calcul_TAT(f As Integer)
Dim r As Long, C As Long, J As Long
 
 
r = Cells(f, 3).Value
 
C = 0
J = 0
i = f
 
 
 
If Not IsEmpty(Cells(i - 1, 4)) Then
 
     If IsNumeric((Cells(i - 1, 4))) Then
 
 
           Do Until C + Cells(i, 4).Value >= r
           C = C + Cells(i, 4): Cells(f, 14) = C
           i = i - 1
           J = J + 1
 
           If Not IsNumeric(Cells(i, 4)) Then
 
           Exit Do
           End If
 
           If IsEmpty(Cells(i, 4)) Then
 
           Exit Do
           End If
 
 
           Loop
 
 
           'Cells(f, 18) = J
           X = f - J
           'Cells(f, 19) = X
 
               If Not IsEmpty(Cells(X, 4)) Then
                    If IsNumeric(Cells(X, 4)) Then
                       Cells(f, 15).Value = Cells(f, 14).Value + Cells(X, 4).Value
                    Else
                       MsgBox "Données historiques insuffisantes", vbExclamation, "Attention"
                       Cells(f, 15) = Cells(f, 14) * (J + 1) / J
                       Cells(f, 12).Interior.Color = RGB(255, 165, 0)
                    End If
               Else
 
                  MsgBox "Données historiques insuffisantes", vbExclamation, "Attention"
                  Cells(f, 15) = Cells(f, 14) * (J + 1) / J
                  Cells(f, 12).Interior.Color = RGB(255, 165, 0)
               End If
 
           Cells(f, 14).EntireColumn.Hidden = True
           Cells(f, 15).EntireColumn.Hidden = True
           Cells(f, 16) = Cells(f, 3) / (Cells(f, 15) / (J + 1))
           Cells(f, 16).EntireColumn.Hidden = True
 
 
           Cells(f, 12) = Cells(f, 16)
 
      Else
 
           MsgBox "Données historiques insuffisantes", vbExclamation, "Attention"
 
           Cells(f, 12).Interior.Color = RGB(255, 165, 0)
           Cells(f, 12) = Cells(f, 3) / Cells(f, 4)
      End If
 
Else
 
    MsgBox "Données historiques insuffisantes", vbExclamation, "Attention"
    Cells(f, 12).Interior.Color = RGB(255, 165, 0)
    Cells(f, 12) = Cells(f, 3) / Cells(f, 4)
 
End If
 
 
calcul_TAT = Cells(f, 12)
 
End Function

19/04/2016, 14h47
joe.levrai

Bonjour,

à la simple lecture de ton code, tu utilises une fonction pour manipuler des cellules (valeurs et formats).

Or, une fonction sert à retourner "quelque chose" (valeur, objet etc...).

Si tu testes ta fonction en pas à pas, je te parie qu'elle s'arrête dès la ligne 43 ou 75 (suivant dans quelle partie des tes If la fonction va atterrir) pour afficher #Valeur dans la cellule appelante.

il te faut plutôt créer une procédure
19/04/2016, 14h56
Kiouane

Merci pour ta réponse.

En effet à la base j'avais fait une procédure qui me convenait très bien.

Mais mon besoin maintenant est d'avoir plutôt une fonction qui a le même but.
19/04/2016, 23h17
clementmarcotte

Bonjour,

Une fonction, ne peut pas modifier un mise en forme. Tu dois "sortir" ta ligne 75 de la fonction.

Bonjour,

Ta fonction n'est ni plus ni moins une Sub que tu as renommé en Function. Il te faut passer les arguments à ta fonction comme par exemple des "Range" ou leurs valeurs. Les contrôles type "IsEmpty()", "IsNumeric()" doivent se faire avant l'appel de la fonction afin d'être sûr de passer des arguments qui ne risques pas de créer des erreurs.
Ici, tu commence la boucle par une opération et ensuite tu contrôle si la cellule contient une valeur numérique ou si elle contient quelque chose :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Do Until C + Cells(i, 4).Value >= r '<-- opération ' C = C + Cells(i, 4): Cells(f, 14) = C ' i = i - 1 ' J = J + 1 If Not IsNumeric(Cells(i, 4)) Then '?? <-- c'est un peu tard ! ' Exit Do ' ' End If If IsEmpty(Cells(i, 4)) Then '?? <-- et ici, aussi ! ' Exit Do ' ' End If Loop
Comme Clément et Joe te l'ont justement dit, une fonction est là pour retourner une valeur ou un tableau de valeurs. A la limite, la seule partie qui pourrait se trouver dans une fonction c'est la boucle qui pourrait te retourner la valeur à la fin

20/04/2016, 09h13
Kiouane

J'ai mis le exit do pour sortir de la boucle si la cellule qui précède est vide ou n'est pas numérique. D'où le i = i - 1 juste avant.
Si tu peux m'expliquer davantage ton interpellation pour que je puisse comprendre.

Sinon je voudrais savoir si d'après vous en vu du code proposé, pourrait-t-il être adapté en fonction ou devrais-je toujours passer par une procédure?