trop de Variables globales donc enums ou autre

Bonjour,

je suis en train de créer un fichier qui gère des commandes.
chaque commande est sur un onglet et on peut générer un onglet bilan pour récapituler toutes ces commandes (et plein d'autres trucs ... je rentre pas dans les détails)

mon classeur fonctionne mais je voudrais rendre mon code plus propre afin de pouvoir, par exemple, modifier la position d'un champ en ne modifiant qu'une variable et non partout dans le code ... genre, faire des variables globales ...

seulement, j'ai beaucoup de champ à mémoriser ...

par exemple, j'ai

Code:

---

1 2 3

champ_bilan_total_commandes = Worksheets("BILAN").Range("B4") champ_bilan_date = Worksheets("BILAN").Range("B3") ...

---

J'ai pensé une énumération, mais ça ne prend pas les Range (erreur compilation)

et je trouve bizarre de faire des getChamp... ou des setChamp... pour tout ...

vous auriez une idée ou une piste que je pourrai suivre ???

Merci par avance...

...Milie...

Bonjour à tous
Bonjour mimi

Je ne sais pas si j'ai bien compris, mais une idée :

Faire référence à une cellule nommée dans une feuille, dans laquelle il serait saisie "BILAN" par exemple, mais si j'ai bien compris....

Eric

merci edelweisseric

mon classeur contient avant toute modification un onglet avec la commande du client principal, et à partir de celui-ci je peut créer un bilan ou d'autres commandes annexes. la mise en page de ces annexes se base sur des champs de la commande principale (champ nom client principal, champs en-tête de commande, ...) et le bilan va chercher des infos dans chaque commande (principale ou annexe).

si je référence tout, mon problème sera le même, il faudrait savoir quelle cellule contient la référence qui m'intéresse ...

bonjour,

si tu veux enumerer les cellules dans une plage tu dois faire comme ceci

a peu de chose pres!

Code:

---

1 2 3 4 5 6 7 8

dim C as range dim Plage as range   set plage=range("B3:C10") for each c in plage debug.print c.address next c

---

en fait je voudrais pouvoir faire toutes mes fonctions de cette façon :

Code:

---

1 2 3 4 5 6 7 8 9

'pour toutes les feuilles de nbFeuilles I_NB_FEUIL_FIXES, on ajoute le total au total de toutes les commandes Do Until i = NB_FEUIL_FIXES If Worksheets(i).Name <> "Cadeaux" Then CHAMP_TOTAL_ATELIER.Value = CHAMP_TOTAL_ATELIER.Value _ + Worksheets(i).Range(CHAMP_TOTAL_CMDE).Value End If i = i - 1 Loop

---

mais comment definir CHAMP_TOTAL_ATELIER ??? c'est de type range mais je vois pas trop comment faire...

bonjour,

de cette façon

Code:

---

1 2 3 4

DIM CHAMP_TOTAL_ATELIER as range ... SET CHAMP_TOTAL_ATELIER = RANGE("A1") ...

---

je dois faire une fonction initialisation ou je peux le faire dans la partie (Déclaration) ??? parce que j'aurai besoin que ce soit visible par tous mes modules ...

alors tu as deux manières

1. soit tu défini la variable comme étant publique.

Code:

---

Public maVariable as range

---

dans la partie déclaration

2. soit tu passe la variable en parametres

Code:

---

1 2 3

sub code1(mavariable as range) ... end sub

---

et tu passe la variable comme ceci

Code:

---

1 2 3 4 5 6

sub code2 ... code1 range("A1) ... end sub

---

ou encore comme ça evidemment

Code:

---

1 2 3 4 5 6 7 8

sub code3 ... set mavariable=range("a1")   ... code1 mavariable ... end sub

---

donc si je fais :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Public maVariable1 as range Public maVariable2 as range ...   sub init ... set maVariable1=range("a1") set maVariable2=range("b4") ...   ... end sub   sub autreFonction ... uneCellule.Value = maVariable1.value maVariable2.Value = "test" ...   ... end sub

---

ça fonctionnera ? même si autre fonction est dans un module différent ?

oui, tout a fait

Merci beaucoup
j'ai essayé, cette solution fonctionne mais pas d'un module à l'autre ...
les variables publiques d'un modules ne sont pas lisibles dans un autre ...

un solution est de tout mettre dans un et un seul module, mais bon, si quelqu'un voit un autre façon ...

Citation:

---

j'ai essayé, cette solution fonctionne mais pas d'un module à l'autre ...
les variables publiques d'un modules ne sont pas lisibles dans un autre ...

---

tu m'en vois surpris

Citation:

---

Envoyé par mimi31110

les variables publiques d'un modules ne sont pas lisibles dans un autre ...

---

Désolé mais ton affirmation est fausse, une variable Public est lisible dans l'entièreté du classeur, d'un module à l'autre, d'un module vers un userform, d'un module vers une feuille, etc...

bonsoir

Citation:

---

et je trouve bizarre de faire des getChamp... ou des setChamp... pour tout ...

---

tu travailles dans des modules de classe ou dans des modules standards ?


bonne soirée
michel