Discussion :

[Sylv3D]

Bonjour,

Je suis en train de réaliser une feuille VBA, pour laquelle j'ai une multitude de fonctions. Celles-ci font appellent à des constantes présentes dans des cellules du tableur.
Puis-je définir ces constantes une bonne fois pour toutes, ou suis-je obligé de rappeler pour chaque fonction à quelle cellule correspondent ces constantes ?

J'ai essayé de les définir avant les codes des fonctions, mais cela ne fonctionne pas...

Dois-je mettre toutes ces fonctions dans un Sub() (qui ferait alors appel à un bouton) ?

Merci pour votre réponse, j'espère avoir assez détaillé ma question.

[Jean-Pierre49]

Bonjour

Peut tu nous mettre un bout de ton code

je pense qu'avec des variables correctement positionnées cela devrait fonctionner

bon courage

[jfontaine]

Bonjour,


Nous sommes d'accord qu'une constante ne peux changer de valeur en cours d'application
Elles se déclarent dans un module (standard ou de classe)

Code :

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

Global Const MaConstante As Integer = 12

A noter qu'une constante VBA ne peut être appelée dans une formule (=MaConstante)

[Invité]

Bonjour

Si tes constantes doivent être dans des cellules d'une feuille, il faut passer par des variables et remplir celle-ci avec les valeurs des cellules dans une routine sur l'évènement Open du classeur.

Philippe

[Sylv3D]

Par exemple, j'ai ça :

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
Function flowrate(Tf)
Cd = Cells(9, 2)
A = Cells(7, 2)
g = Cells(5, 3)
lc1 = Cells(8, 9)
flowrate = Cd * A * (2 * g * lc1 * (Tf - Tout()) / Tf) ^ (1 / 2)
 
End Function
 
Function Fc1Tg(Tg)
lc1 = Cells(8, 9)
Fc1Tg = FLT(lc1 * Tg)
 
End Function
 
Function Fc1Tw(Tw)
lc1 = Cells(8, 9)
Fc1Tw = FLT(lc1 * Tw)
End Function

Là j'ai la constante lc1 de la cellule(8,9) que j'utilise 3 fois, mais je prévois d'avoir encore pleins de fonctions comme ça avec pleins de constantes. C'est pour ça que je voudrai m'épargner de l'écrire à chaque fois (et ce serait plus clair).

Si tes constantes doivent être dans des cellules d'une feuille, il faut passer par des variables et remplir celle-ci avec les valeurs des cellules dans une routine sur l'évènement Open du classeur.

Je crée donc des variables dans une des feuilles de mon classeur, et je peux les utiliser dans mon code tels quels ?

[Invité]

Re

Non, tu déclares tes variables comme Public dans un module, et ensuite sur l'évènement Open de ton classeur tu affectes les données des cellules à tes variables une fois.

Ensuite tu peux utiliser les variables n'importe où.

Cependant si ces constantes sont vraiment des constantes (c'est à dire que la valeur ne bougera jamais), alors il faut déclarer directement des constantes dans le code :

Utiliser les variables en VBA Excel

Philippe

[Theze]

Bonjour tout le monde,

Normalement avec une fonction, le mieux est de passer les valeurs en argument car si tu défini tes "constantes" à un moment donné (ouverture du classeur, par exemple) et puis qu'une ou plusieurs valeurs doivent changées (dans tes cellules), les résultats retournés par tes fonctions seront faux car pas mise à jour.
Donc avec les valeurs en argument, voici à quoi pourrait ressembler ta fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function flowrate(Tf As Double, _
                  Cd As Double, _
                  A As Double, _
                  g As Double, _
                  lc1 As Double) As Double
 
    Application.Volatile
 
    'que retourne la fonction "tout" ?
    flowrate = Cd * A * (2 * g * lc1 * (Tf - Tout()) / Tf) ^ (1 / 2)
 
End Function

Que tu appelle alors de la façon suivante dans ton classeur :

Code :

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

1
2
 
=flowrate(D6;B9;B7;C3;I8)

ou encore, dans un appel en proc VBA avec les valeurs des cellules passées en argument (valeurs les plus à jour au moment de l'appel) :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub Test()
 
    MsgBox flowrate(Tf, _
                    Cells(9, 2), _
                    Cells(7, 2), _
                    Cells(5, 3), _
                    Cells(8, 9))
 
End Sub

Normalement, si ce sont des constantes, elles n'ont rien à faire dans des cellules puisqu'elles ne sont pas censées changer de valeur donc dans ce cas, tu les déclare en tête de module dans le module standard où se trouvent tes fonctions :

Code :

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

1
2
3
4
5
 
Public Const Cd As Integer = 10
Public Const A As Integer = 11
Public Const g As Integer = 12
Public Const lc1 As Integer = 13

Hervé.

[Sylv3D]

Merci pour vos réponses, j'y vois plus clair maintenant !