Discussion :

[mimi31110]

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 :

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

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...

[edelweisseric]

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

[mimi31110]

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 ...

[mayekeul]

bonjour,

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

a peu de chose pres!

Code :

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

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

[mimi31110]

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

Code :

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

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...

[mayekeul]

bonjour,

de cette façon

Code :

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

1
2
3
4
DIM CHAMP_TOTAL_ATELIER as range
...
SET CHAMP_TOTAL_ATELIER = RANGE("A1")
...

[mimi31110]

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 ...

[mayekeul]

alors tu as deux manières

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

Code :

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

Public maVariable as range

dans la partie déclaration

2. soit tu passe la variable en parametres

Code :

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

1
2
3
sub code1(mavariable as range)
...
end sub

et tu passe la variable comme ceci

Code :

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

1
2
3
4
5
6
 
sub code2
...
code1 range("A1)
...
end sub

ou encore comme ça evidemment

Code :

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

1
2
3
4
5
6
7
8
sub code3
...
set mavariable=range("a1")
 
...
code1 mavariable
...
end sub

[mimi31110]

donc si je fais :

Code :

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

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 ?

[mayekeul]

oui, tout a fait

[mimi31110]

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 ...

[mayekeul]

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

[fring]

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...

[SilkyRoad]

bonsoir

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