question basique functions

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:

---

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:

---

1 2 3 4 5 6 7

Function Vfunction(y as double) As Double   Vfunction = y^2+2*x1+x2   End Function

---

Merci!!

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 …

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

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

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

Citation:

---

Envoyé par 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

---

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:

---

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

---

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

Code:

---

public const X1 = 5.24 'en tête de module

---

Super! merci, j'ai pas pensé à ça.
une dernière questoin avant que je mette résolu. Peut-on faire quelque chose du type:

Citation:

---

Public Const x = Sheets("Feuil1").Range("A1").Value

---

Comme ça je pourrais modifier la constante sans passer par le code.

Merci encore!!!!

non car par définition une constante ne bouge pas et Sheets("Feuil1").Range("A1").Value est variable

Code:

---

1 2 3 4

pubilc X as double sub Init() x= Sheets("Feuil1").Range("A1").Value end sub

---

ah oui ok. donc je vais déclarer mes, sois-disant, constantes en public et puis faire un sub pour importer les valeurs. Puis faire un Call du Sub qui charge les valeurs à chaque fois.

C'est noté! merci