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