Discussion :

[jasonbecker]

Bonjourà tous,

j'ai une question de débutant. J'ai crée trois fonctions et celles-ci utilise de memes valeurs prise sur la feuille excel. Je suis en OptionExplicit et du coup je suis obligé de déclarer toutes les variables dans chaque fonction et récupérer leurs valeurs sur la feuille.

Y'a-t-il un moyen de les déclarer une fois pour toute et fixer leurs valeurs?

A titre illustratif, mes fonctions ressemblent à ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function Vfunction(y as double) As Double
 
Dim x1 As Double
Dim x2 As Double
 
x1 = Sheets("paramètres").Range("C2").Value
x2 = Sheets("paramètres").Range("C4").Value
 
Vfunction = y^2+2*x1+x2
 
End Function

Je veux faire ça en déclarant x1, x2 une fois pour toute ailleurs.

Code :

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

1
2
3
4
5
6
7
 
 
Function Vfunction(y as double) As Double
 
Vfunction = y^2+2*x1+x2
 
End Function

Merci!!

[Marc-L]

Bonjour,

les déclarer en entête de module avant la première fonction ou procédure
afin qu'elles soient communes comme du reste expliqué dans l'aide de l'instruction Dim …

[jasonbecker]

Merci pour votre réponse. Vous voulez dire en Public? et quant aux valeurs des variable?

[Invité]

Bonjour,
pourquoi ne pas déclarer X1 et X2 dans ton passage de fonction comme tu l'as fait pour Y!

[jasonbecker]

y est un input alors que x1 et x2 ne le sont pas, c'est juste des paramètres fixes. Si je mets toutes les variables en input je serai obligé d'insérer une dizaine (dans mes vrai fonctions) de variable en input sans que ça change quoi que se soit.

merci

[Invité]

y est un input alors que x1 et x2 ne le sont pas, c'est juste des paramètres fixes. Si je mets toutes les variables en input je serai obligé d'insérer une dizaine (dans mes vrai fonctions) de variable en input sans que ça change quoi que se soit.

merci

je ne comprends rien de ce que tu dis!

y est une variable et peut importe comment tu fais l’acquisition de la valeur:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
sub test
 
Dim x1 As Double
Dim x2 As Double
 
x1 = Sheets("paramètres").Range("C2").Value
x2 = Sheets("paramètres").Range("C4").Value
 debug.print  Vfunction(10.5,X1,X2)
end sub
 
Function Vfunction(y as double,x1 As Double, x2 As Double) As Double
 Vfunction = y^2+2*x1+x2
End Function

[jasonbecker]

Je reformule ma question. Comment définir des constantes une fois pour toute et les utiliser dans toutes les sub et les fonctions.