Discussion :

[l.chipot]

Bonjour a tous,

Je débute sur vba comme beaucoup, j’essaie apprendre, mais par moment chaud.
Donc voila ma question, je voulais savoir si c’était possible de faire une somme de la même cellule de plusieurs feuille qui sont identique (entre 5 a 20 feuilles), et exclure la dernière feuille car c'est la ou toutes mes informations doivent aller.

Pour résumer ça serai fait la somme de toutes les cellules (A1) de toutes les feuilles présente dans le classeur, sauf la dernière ou va aller le résultat
je précise que le nombre de feuille peut être variable, si ça n'aurait pas été le cas, j'aurai tout simplement fait cela en formule (=SOMME(Feuil1:Feuil5!A1)).

Si c'est pas clair je ferai un petit fichier exemple.
Merci

[Marc-L]

Bonjour,

c'est possible sans passer forcément par du code VBA directement depuis la feuille de calculs …

Consulter son aide pour référence 3D …

[defluc]

Code :

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

1
2
3
4
5
6
7
8
Sub Macro1()
Dim i As Integer
Dim Somme As Long
  For i = 1 To ThisWorkbook.Sheets.Count - 1
    Somme = Somme + ThisWorkbook.Sheets(i).Cells(1, 1)
  Next i
  ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Cells(1, 1) = Somme
End Sub

[Marc-L]

Et si vraiment il faut passer par du VBA, une seule ligne de code est nécessaire ! …

[defluc]

Alors là, c'est encore mieux.

[Marc-L]

En appliquant la somme avec une référence 3D …

[l.chipot]

Merci ça marche niquel, pile ce que je voulait, maintenant, j'ai plus qu'a trouver pour l'adapter avec des formules conditionnel (selon la quantité et de la taille)

la référence 3D enfaite c'est ce que je disais sur mon message "(=SOMME(Feuil1:Feuil5!A1)), mais ma crainte c'est que les personnes qui vont utiliser le ficher rajoute après la feuille5, car normalement en référence 3D, il comprend que feuille 1 est le début et feuille 5 la fin, on peu rajouter autant de feuille entre les 2 la qui seront intégrer dans la formule.
Mais si effectivement il rajoute une feuille après la 5, elle ne sera pas prise en compte, enfin si je me trompe pas.

Je vais tester un peu, si j'arrive vraiment pas j'appellerai au secoure. mais je préféré essayer avant ;-).
En tout cas merci c'est gentil