Additionner des données d'onglets futurs

Question

Bonjour, 

j'ai un problème avec excel. J'ai un tableau sur excel qui récupère les totaux de chaque feuille de calcul. Seulement ces feuilles de calcul sont ajoutées les unes après les autres (copier/coller). Je souhaiterai connaître une formule qui récupère les totaux (qui seront tjs ds la même cellule) d'onglets à venir. 
En clair, je souhaiterais qu'à chaque fois que l'on ajoute une feuille de calcul automatiquement les totaux s'inscrivent sur une feuille récapitullant les données.
Est-ce possible??
merci pour votre aide!

Raymond PENTIER · Answer

Bonjour.

Je ne crois pas que ce soit faisable, même avec une macro : Tu ne sais pas encore combien de feuilles il y aura, ni leurs noms ?

Par contre, si tu es en mesure de créer tout de suite l'ensemble des feuilles (les 12 mois de l'année, les 8 filiales de la société, les 240 salariés de l'entreprise ...), tu n'auras aucune difficulté à préparer ta feuille de synthèse (de consolidation). 

* J'en profite pour te recommander vivement, pour dupliquer ta feuille, de ne pas utiliser de copier/coller, ce n'est pas la bonne technique, mais de faire un clic-droit sur ta première feuille (une fois mise en forme et pourvue des formules, listes déroulantes de cellules, mises en forme conditionnelles, etc.) et de sélectionner Déplacer ou copier ... puis Créer une copie.

Cordialement.

ccm81 · Answer

bonjour,
peut être une solution, moyennant macro si les totaux des nouvelles feuilles sont bien dans la même cellule comme tu dis
et en tenant compte de la remarque de raymond pentier une macro pour ajouter en fin de classeur une feuille "type" plus judicieux qu'un copier/coller si les feuiiles sont de même structure

' report des totaux dans la feuille Recap
Private Sub CommandButton1_Click()
Const tot = "$B$15"
Dim nbfe As Long
Dim nufe As Long
  nbfe = Worksheets.Count
  For nufe = 3 To nbfe
    Cells(nufe - 2, 1).Value = "total F" & (nufe - 2)
    Cells(nufe - 2, 2).Value = Worksheets(nufe).Range(tot).Value
  Next nufe
End Sub

'ajout d'une feuille type
Private Sub CommandButton2_Click()
Const nomfeuille = "F"
Const feuilletype = "F_Type"
Dim nbfe As Long
  nbfe = Worksheets.Count
  Sheets(feuilletype).Copy After:=Sheets(nbfe)
  Worksheets(nbfe + 1).Name = nomfeuille & (nbfe - 1)
  Worksheets(1).Select
End Sub
 

a adapter bien sur


bonne suite

Additionner des données d'onglets futurs

2 réponses

Discussions similaires

Newsletters