Discussion :

[Guy_L]

Bonjour,
Je dois reccueuillir auprès de différentes entités, des totaux d'ojets commandés.
Chaque entité reçoit un fichier "banalisé" qui comprend une feuille dite "Accueil" (qui explique le mode opératoire) une feuille "Récap" et une feuille "type" (banalisée).
J'ai déjà créé les macros nécessaires pour créer autant de copies que nécessaires de cette feuille banalisée et renommer les copies au fur et à mesure de leur création avec les noms des utilisateurs.
Au final, j'obtiens donc un fichier avec:
- Feuille "Accueil"
- Feuille "Récap"
- Feuille "banalisée"
- x feuilles copies de la feuille banalisée ayant chacune un nom d'onglet différent (nom d'utilisateur).

Dans la feuille "Récap", je veux totaliser les contenus des cellules de toutes les autres feuilles (sauf "Accueil" et "banalisée" bien sûr).
Comme le nombre de copies est inconnu au départ, je n'ai d'autre reccours que de compter les feuilles et faire une addition par une routine. j'ai donc écrit cette macro:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub Total()
  Dim i As Integer 'incrément feuilles
  Dim w As Integer 'variable en fonction du nombre de feuille du classeur
  w = Worksheets.Count 'attribution du nombre de feuille à la variable w
    For i = 4 To w 'je commence avec la feuille 4 pour ne pas comptabiliser les trois feuilles de base
      Sheets("Recap").Cells(9, 4).Value = Sheets("Recap").Cells(9, 4).Value + Sheets(i).Cells(9, 4).Value
    Next
'... toutes les autres cellules à totaliser fonctionneront sur ce même principe
End sub

La question est: est ce que ça va marcher ? (vu le nombre l'aléas possibles, je préfère m'assurer que je suis sur la bonne piste dès le départ)
Merci

[Marc-L]

Bonjour,

oui cela devrait fonctionner mais pas vraiment nécessaire
car le calcul peut se faire directement dans une cellule via une référence 3D (voir l'aide d'Excel, pas celle du VBA) …

[Guy_L]

Oui, en effet, mais pour ça, il faut que les noms des feuilles qui bordent la "plage" soient connus
Si je fais =SOMME(feuil4:Worksheets.Count!B4) ça ne marchera pas.
Il faudrait déjà que je crée deux feuilles "bidon" pour délimiter la zone, mais elles s'ajouteraient au classeur.
Ou alors il faut que je crée ces deux feuilles supplémentaires au moment de la "personnalisation" du fichier.
Pour ça ma macro actuelle qui place les feuilles copiées-renommées en bout à droite devrait ajouter une feuille et intercaler les créations entre une feuille A (vide) et cette feuille B (vide aussi).
De cette façon, j'aurai dans l'ordre de gauche à droite:

- Feuille "Accueil"
- Feuille "Récap"
- Feuille "banalisée"
- Feuille A
- Feuille x1
- Feuille x2
- Feuille x3
- Feuille x4
- Feuille x5
- Feuille x6
- Feuille x7
- Feuille x8
- Feuille ...
- Feuille B
et la formule serait: =SOMME(Feuille A:Feuille B!B4)
C'est comme ça que tu voyais les choses ?

[Guy_L]

J'ai testé la solution ci-dessus.

dans la feuille Recap, chaque celle =SOMME(FeuilA:FeuilB!B5) (exemple)

Ca marche, mais pour ça il y a une condition:

- il faut que les feuilles A et B soient visibles (et ça ne m'arrange pas trop)