Éviter de toujours définir les mêmes variables "Public"

[Magic_Doctor]

Bonjour,

Dans mon application j'ai plusieurs variables "Public" toutes déclarées dans un même module standard.
Ces variables sont utilisées dans plusieurs macros.

Option Explicit
Public dut As Byte, ba As Double
Dim annuité As Double
--------------------------------------------------------
Sub Macro1()
	annuités = ba / dut
	
	blablabla
End Sub
--------------------------------------------------------
Sub Macro2()
	annuités = ba / dut
	
	blablabla
End Sub
--------------------------------------------------------
Sub Macro3()
	annuités = ba / dut
	
	blablabla
End Sub
--------------------------------------------------------
Sub Macro4()
	annuités = ba / dut
	
	blablabla
End Sub
--------------------------------------------------------

Plutôt que de toujours récrire à chaque fois dans chaque macro "annuités = ba / dut", il y aurait-il un moyen de ne l'écrire qu'une seule fois dans le module et qu'on n'en parle plus ?

Merci pour tout commentaire.

 

[Dranreb]

Re : Éviter de toujours définir les mêmes variables "Public"

Bonjour.
Vous pouvez écrire une Private Sub qui le fait et simplement mettre son nom à la place.
Ou même écrire Annuités comme une Function sans paramètre.
Si vous utilisez Option Explicit, mettez plutôt des majuscules au début de vos nom de variables dans les Dim. Mais tapez les en minuscule dans le code: vous serez tout de suit averti qu'elles ne sont pas déclarées si leur casse n'est pas corrigée.

 

[jpb388]

Re : Éviter de toujours définir les mêmes variables "Public"

bonsoir à tous
as tu essayé en const (annuités as double = ba/dut)


😡n'en tiens pas compte c'est faux

 

[Magic_Doctor]

Re : Éviter de toujours définir les mêmes variables "Public"

Buenos días Dranreb,

J'avoue ne pas trop comprendre. Les "Private Sub" je ne les ai vus que dans les modules de feuille. Je manie mal ces subtilités.
Pourriez-vous me mettre un exemple ?

 

[Magic_Doctor]

Re : Éviter de toujours définir les mêmes variables "Public"

Bonsoir (c'est vrai que chez vous c'est déjà le soir...) jpb388,

Là aussi, les constantes je manie mal. Un exemple à partir de ma requête pourrait m'aider à mieux comprendre.

 

[jpb388]

Re : Éviter de toujours définir les mêmes variables "Public"

re
pour la constante c'est pas bon j'ai répondu un peu trop vite
désolé

 

[Dranreb]

Re : Éviter de toujours définir les mêmes variables "Public"

Le mot clé Private signifie simplement que la fonction n'est utilisée que dans module où elle est écrite. Vous pouvez l'omettre, si ça n'apporte aucune valeur documentaire à votre code.

Function Annuités() As Double: Annuités = Ba / Dut: End Function

 

[Magic_Doctor]

Re : Éviter de toujours définir les mêmes variables "Public"

Re,

J'ai l'impression que c'est tout simplement impossible. Il faut déclarer à chaque fois dans chaque macro.

 

[Staple1600]

Re : Éviter de toujours définir les mêmes variables "Public"

Bonsoir à tous

Voir du côté de Enum peut-être
(Les détails dans l'aide VBE ou Ce lien n'existe plus)

 

[pierrejean]

Re : Éviter de toujours définir les mêmes variables "Public"

Bonjour à tous
En partant du #1

Option Explicit
Public dut As Byte, ba As Double
Public annuité As Double

Et immédiatement après avoir défini dut (sinon division par zéro) dans n'importe quelle macro: annuité = ba / dut
Ensuite on doit avoir accès a annuité partout

 

[Staple1600]

Re : Éviter de toujours définir les mêmes variables "Public"

Salut pierrejean 😉

Suis-je à côté de la plaque avec mon Enum , (voir message précédent) ?

 

[david84]

Re : Éviter de toujours définir les mêmes variables "Public"

Bonsoir,
d'après ce que je crois comprendre, d'accord avec JM sur l'utilisation de l'instruction Enum.
Voir notamment ce document sur les variables (paragraphe sur Enum).
A+

 

[pierrejean]

Re : Éviter de toujours définir les mêmes variables "Public"

Re

@ Staple1600

Je le crains !!
le calcul de annuité ne peut être fait que dans une macro puisque dut n'est pas initialisé (d’après le #1 dut est une variable et non d'une constante )
Par contre s'il s'agit de constantes on peut avoir:
Const dut = 2
Const ba = 10000
Const annuité = ba / dut
Les esprits chagrins diront qu'il est aussi simple alors d’écrire
Const annuité = 5000

 

[Staple1600]

Re : Éviter de toujours définir les mêmes variables "Public"

Re

Les aminches, vous m'embrouillez les méninges 😉
pierrejean dit non, david84 dit oui.
Comme dirait José*: je ne sais plus, moi, je ne sais plus.

*: Pour ceux qui ne connaissent pas José -> référence à Scènes de ménages sur M6.

PS: david84: toi aussi l'aide de VBE te rebute 😉 voir le lien dans mon précédent, précédent message 😉

 

[Staple1600]

Re : Éviter de toujours définir les mêmes variables "Public"

Re


Pour illustre mon propos, voici à quoi je pensais, un truc du genre

Enum Annuite
 du = 2
 bat = 10000
End Enum
Sub a()
MsgBox Annuite.bat / Annuite.du
End Sub

Le msgbox affiche 5000
EDITION: On peut aussi faire comme ceci

Enum Annuite
    dut = 2
    ba = 10000
    valeur = Annuite.ba / Annuite.dut
End Enum

Sub aa()
MsgBox Annuite.valeur
End Sub

Sub bb()
MsgBox Annuite.valeur / 10000
End Sub

Mais tout en mettant ma balise

, finalement je ne suis plus sur que dans le cas présent Enum fasse l'affaire :p