faire un total de plusieurs feuilles excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : faire un total de plusieurs feuilles excel

fatjimo

SMD

Bonjour,

Voilà mon soucis,
j'ai un fichier excel avec une centaine de feuilles qui representent chacunes une vente, comme faire par exemple si dans ces 100 feuilles la cellule G3 représente le prix de vente et que je voudrai faire l'adittion des 100 cellules G3 pour les regrouper dans une cellule d'une feuille nomméeTOTAUX?
et comment faire pour que si j'ajoute une autre feuille de vente la formule suive ?
Merci,allez y doucement je suis au niveau débutant.

Message édité par fatjimo le 02-06-2008 à 18:28:27

---------------
http://forum.hardware.fr/hfr/Achat [...] 3987_1.htm

Publicité

kiki29

Salut, sous forme de fonction personnalisée,restera à voir la réactivité avec 100 feuilles ou +

Création Fonction Personnalisée
-------------------------------
Le code est à placer dans un Module standard
[Alt+F11] Menu Insertion / Module

Ensuite sous Excel
Sélectionner la cellule de destination
Menu Insertion / Fonction / Catégorie : Personnalisées
Sélectionner la Fonction
l'assistant apparait etc.

Sinon par exemple sur la feuille TOTAUX : A1=Cumul()

Option Explicit

Public Function Cumul() As Double
Dim Ws As Worksheet
Dim Total As Double
Application.Volatile
Total = 0
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "TOTAUX" Then
If IsNumeric(Ws.Cells(3, 7)) Then
Total = Total + CDbl(Ws.Cells(3, 7))
End If
End If
Next Ws
Cumul = Total
End Function

Message édité par kiki29 le 02-06-2008 à 20:46:25

fatjimo

SMD

merci Kiki,
ca me donne le tourni ...
pas plus simple surtout si c'est toujours la même cellule ?

---------------
http://forum.hardware.fr/hfr/Achat [...] 3987_1.htm

kiki29

Salut, tu as un nombre indéterminé de feuilles succeptible de croitre/décroitre,donc il faut les balayer toutes (sauf celle se nommant "TOTAUX" ),donc pas le choix...

Sinon supprimer Application.Volatile et affecter un Bouton qui ne lance ce calcul que sur clic de l'utilisateur.

Sub Bouton1_QuandClic()
Sheets("TOTAUX" ).Range("A1" ) = Cumul
End Sub

Une autre solution, si tu n'as pas plus de 256 cellules contenant des données ( sinon Excel 2007 : 16384 colonnes ) c'est de repenser ton modèle en mettant toutes tes infos sur une ligne / feuille 1 info par colonne, le tout dans une seule feuille de récap appelée ici TOTAUX, en n'utilisant surtout pas les liaisons externes qui causent d'autres pbs.
Un dossier Archives qui lui contient toutes les feuilles individuelles et une macro permettant de lire
les données et de mettre à jour la feuille TOTAUX.ceci permettant de loger les infos de + de 65000 feuilles ce qui ne sera pas le cas actuel (la limite du nb de feuilles est liée à la mémoire disponible )
Sans compter les pbs annexes de ton modèle actuel : temps de sauvegarde, taille du classeur ,crash toujours possible et pertes de données

Message édité par kiki29 le 03-06-2008 à 00:21:17

fatjimo

SMD

salut,
j'ai fait plus simple...,façon de dire !

='1'!G3+'2'!G3+'3'!G3+'4'!G3+'5'!G3+'6'!G3+'7'!G3+'8'!G3+'9'!G3+'10'!G3+'11'!G3+'12'!G3+'13'!G3+'14'!G3+'15'!G3+'16'!G3+'17'!G3+'18'!G3+'19'!G3+'20'!G3+'21'!G3+'22'!G3+'23'!G3+'24'!G3+'25'!G3+'26'!G3+'27'!G3+'28'!G3+'29'!G3+'30'!G3 etc....

---------------
http://forum.hardware.fr/hfr/Achat [...] 3987_1.htm

galopin01

bonsoir,
si la première feuille s'appelle "FeuilDeb" et la dernière "FeuilFin", Dans la "FeuilTotal" (qui devra se trouver avant la "FeuilDeb" ou après la "FeuilFin" ) mettre :
=SOMME(FeuilDeb:FeuilFin!G3)
A+

fatjimo

SMD

merci,j'ai fait mon bordel mais c bon a savoir

---------------
http://forum.hardware.fr/hfr/Achat [...] 3987_1.htm

FORUM HardWare.fr

Programmation

VB/VBA/VBS

faire un total de plusieurs feuilles excel

Sujets relatifs
[VBA Excel] Separation Variables de Graphiques	Modifications de code PHP (mise en page)
Copier une plage sélectionnée sou excel dans un txt	VB lent après chargement d'Excel 11 object library
Ouvrir un fichier excel en VBA	vba verification de données saisie dans excel
Interface graphique sous excel ou borland ?	fonction Excel
[C#.NET][pas si resolu] Colorer un ou plusieurs mots dans une textbox
Plus de sujets relatifs à : faire un total de plusieurs feuilles excel

Page générée en 0.030 secondes