Discussion :

[naiiiiiiiii]

bonjour,

j'ai un fichier excel avec un certains nombres de pages
dans presques toutes cettes feuilles je voudrais par exemple sommer ma colonne L pour chaque feuille
et coller le résultat dans une autre feuille de mon classeur dans ma colonne B à partir de la deuxième ligne!

merci beaucoup

[casefayere]

inspires-toi de cette discussionhttp://www.developpez.net/forums/d15...-toutes-sheet/

[naiiiiiiiii]

Non non justement,
vous n'avez pas compris ce que je souhaite
j'ai plusieurs feuilles, avec plusieurs nombre de ligne
sur chaque feuille je veux sommer toute ma colonne et envoyer le résultat dans une autre qui s'appelle sheet5 par exemple et pour la feuille 1 coller en B1 de sheet5 pour la feuille 2 coller en B2 etc..

[casefayere]

un exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub totaux()
Dim Ws As Worksheet, y As Long, dL As Range, Tb, x As Long
'exemple tu regroupes tes totaux sur une feuille nommée "totaux"
For Each Ws In Worksheets
  If Ws.Name <> "totaux" Then
    Set dL = Ws.Range("L" & Ws.Rows.Count).End(xlUp)(2)
    Ws.Range("L" & Ws.Rows.Count).End(xlUp)(2) = WorksheetFunction.Sum(Ws.Range("L2", dL(0)))
    Set dL = Sheets("totaux").Range("B" & Sheets("totaux").Rows.Count).End(xlUp)(2)
    dL = Ws.Range("L" & Ws.Rows.Count).End(xlUp)(1)
  End If
Next Ws
 
End Sub

[naiiiiiiiii]

merci beaucoup
je voudrais juste ne pas selectionner toutes les feuilles, il y en a 4 que j'veux pas supprimer (dont celle ou j'veux écrire mes trucs )

[casefayere]

Supprimer !!! tu ne parlais pas de supprimer mais de faire des sommes sinon tu agis sur cette ligne

Code :

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

If Ws.Name <> "totaux" Then

en ajoutant les feuilles à ne pas prendre en compte

[naiiiiiiiii]

Bonjour
en fait je voudrais que la somme de ma colonne L pour la feuille H1 soit placée sur la "sheet5" en G3 puis ensuite la feuille 2 en H3 (en fait je veux les placer sur la même ligne mais faire varier la colonne

merci!!