Passage de paramètre pour appel de procédure

bonjour,

jusqu'à maintenant lorsque je procédais à un appel de procédure je passais les paramètre en même temps que l'appel de procédure
exemple :

Code:

---

Call TOTO (paramX,paramY,paramZ)

---

et ensuite la sub était de genre:

Code:

---

1 2 3 4 5 6

public sub TOTO (paramX as integer,paramY as integer,paramZ as integer) dim x as integer   x=paramX   end sub

---

maintenant j'aimerais faire un modul de déclaration uniquement des variables

Code:

---

public paramx as integer

---

même chose pour paramY et paramZ

et faire mon appel de prcédure ainsi:

Code:

---

1 2 3 4 5 6 7 8 9 10

call TOTO     public sub TOTO() dim h as integer   h= paramx   end sub etc...

---

j'ai essayé cela marche, mais ....

le feriez-vous ou bien cela peut me créer une incohérence de résultat, de par le fait d'avoir un variable disponible pour tout les modules, si je l'utilise autrement, par exemple pour un autre appel de procédure qui effectue autre chose?

me conseillez vous de remettre ma variable public à zéro?

merci pour vos impression

Bonjour,

Tout dépend de ce que tu veux faire de tes variables paramX, paramY et paramZ.

Pour la visibilité: Si elles doivent être "communes" à tous les modules il faut les déclarer en Public, si elles ne sont "communes" qu'au module en Private.
Ensuite si la valeur de ces variables est censée être fixe tu ajoutes Const pour déclarer des constantes.

Code:

---

Public Const PARAMX as Integer = 0

---

Pour la déclaration de ta fonction j'utiliserais les arguments optionnels

Code:

---

1 2 3 4 5

Public Const PARAMX as Integer = 0 Public Const PARAMY as Integer = 0 Public Const PARAMZ as Integer = 0   Public Sub TOTO(Optional ByVal pX as Integer = PARAMX ,(Optional ByVal pX as Integer = PARAMX,Optional ByVal pY as Integer = PARAMY, (Optional ByVal pZ as Integer = PARAMZ)

---

Cela te permet les 2 types d'appel:

Code:

---

1 2	TOTO 'ou Call TOTO TOTO(1,1,1) 'ou Call TOTO(1,1,1), etc.

---

Mais avant tout, il faut vraiment que tu poses la question de ce que tu veux faire avec tes 3 variables avant d'opter pour une solution.

Cordialement

merci pour ta réponse,

en fait je voulais faire cela pour faire un module vba général de calcul

et mon but était d'éviter d'écrire ce qu'il y entre ()

Code:

---

Public Sub TOTO(Optional ByVal pX as Integer = PARAMX ,(Optional ByVal pX as Integer = PARAMX,Optional ByVal pY as Integer = PARAMY, (Optional ByVal pZ as Integer = PARAMZ)

---

car des fois je passe que quelque paramètre et si je les écrits dans la parenthèse je dois réecrire tout les paramètre de l'autre côté

exemple:
l'appel ainsi

Code:

---

Call Heure2(Forms!FrmChauffeur!SfrmFiche![Date], Forms!FrmChauffeur!SfrmFiche![H_Depart], Forms!FrmChauffeur!SfrmFiche![H_Arrivee], Forms!FrmChauffeur!SfrmFiche![No_Chauffeur], Forms!FrmChauffeur!SfrmFiche![No_Tournee], Forms!FrmChauffeur!SfrmFiche![Lavage], [lavageT], [T], [TJ], [TN], [T10Suppl], [tdeparr])

---

et de l'autre côté:

la sub....

Code:

---

Public Sub Heure2(Date1 As Date, ByVal H_Depart As Date, ByVal H_Arrivee As Date, No_Chauffeur As Integer, No_Tournee As Integer, Lavage As Variant, lavageT As Double, T As Double, TJ As Double, TN As Double, T10Suppl As Double, tdeparr As Double)

---

donc avec ce que je me demandais c'était pour simplifier l'écriture, car dans ma sub je ne vais pas utiliser forcément tout les variab le passée, alors lorsque je fais

Call Heure2, cela m'éviterais de devoir tout retapper, si je ne les utilise pas

en fait l'exemple que tu me donnes:

Code:

---

Optional ByVal

---

je comprends bien que byval c'est uniquement pour passé la valeur dans la procédure sans que sa valeur de base soit modifiée de fait dans la mienne, j'ai une partie des paramètre qui servent à calculer et ensuite
par exemple

Code:

---

T As Double

---

me sert pour ressoritr de cette sub avec une valeur calculée qui em sert à alimenter une table avec d'autre donnée qui ne sont pas calculé...

merci encore pour tes réponses