faire une somme de certaine feuille dans un workbook en vba

[nicroq]

Bonjour a tous,

tout d abord merci d'avance pour votre aide,
voici mon probleme :

j'ai dans mon workbook trois types de feuilles nommé "mois (janvier ou fevrier....)", "budget janvier (ou fevrier ou mars...)2012" et "recap: janvier ou fevirer....." , et je souhaiterais faire la somme des cellules "C5" uniquement des sheets nommées "budget mois 2012" dans une nouvelle sheet nommé "somme" ; le tout en VBA?

en vous remerciant,

en espèrant avoir été le plus clair possible.

Cdlt

 

[Papou-net]

Re : faire une somme de certaine feuille dans un workbook en vba

Bonjour nicroq,

Tu augmenterais tes chances d'obtenir une réponse adaptée si tu fournissais une copie de la structure de ton fichier, sans données confidentielles bien sûr.

Cordialement.

 

[nicroq]

Re : faire une somme de certaine feuille dans un workbook en vba

oui en effet ca sera plus simple.

 

[nicroq]

Re : faire une somme de certaine feuille dans un workbook en vba

voici en piece jointe un exemple

je souhaiterai faire une macro vba me permettant de faire la somme des valeur "C5" des sheet nommé "budget janvier 2012" + "budget fevrier 2012" + "budget mars 2012" soit dans cet exemple 100+120+180. le tout dans une nouvelle sheet nommé "somme".

merci

 

[BOISGONTIER]

Re : faire une somme de certaine feuille dans un workbook en vba

Bonjour,

Voir PJ

Nom de champ à créer
nf =STXT(LIRE.CLASSEUR(1);TROUVE("]";LIRE.CLASSEUR(1))+1;99)&INDIRECT("iv65000")


=SOMME(SI(GAUCHE(nf;6)="budget";N(INDIRECT("'"&nf&"'!C5"))))
Valider avec maj+ctrl+entrée

Formules Matricielles 3D

JB

 

[nicroq]

Re : faire une somme de certaine feuille dans un workbook en vba

merci pour votre reponse,
ceci marche très bien
cependant je souhaiterai faire ceci en VBA pour pouvoir l'ajouter à ma macro deja existante.... cela est il possible?

en vous remerciant

 

[Papou-net]

Re : faire une somme de certaine feuille dans un workbook en vba

Bonsoir nicroq, JB,

Avec du retard, voici une solution basique en VBA dans le fichier ci-joint.

Cordialement.

 

[nicroq]

Re : faire une somme de certaine feuille dans un workbook en vba

Merci beaucoup papou cela fonctionne très bien !!!!
est il possible d'appliquer cette solution VBA de facon un peu plus complexe en faisant la somme des cellules C5, dans la cellule C5 de l'onglet somme ( comme dans votre solution) pui sd enchainer par la somme des cellules C6 dans la cellule C6 dans l'onglet somme et comme cela jusqu'a C10?
je sais que je peux recopier le vba que vous avez fait pour la cellule C5 pour chaque cellule C6, C7 .... mais je voulais savoir si il existait un facon plus simple que de recopier le code pour chaque cellule?

en vous remerciant!!!

 

[Papou-net]

Re : faire une somme de certaine feuille dans un workbook en vba

Bonsoir nicroq,

.... mais je voulais savoir si il existait un facon plus simple que de recopier le code pour chaque cellule?

En ajoutant une boucle comme dans l'exemple ci-dessous :

Sub SommeBudgets()
Dim lg As Integer
With Sheets("Somme")
  .Range("C5:C10").ClearContents
  For Each sh In Sheets
    If sh.Name Like "budget*" Then
      For lg = 5 To 10
        .Cells(lg, 3).Value = .Cells(lg, 3).Value + sh.Cells(lg, 3).Value
      Next
    End If
  Next
End With
End Sub

A +

Cordialement.

 

[nicroq]

Re : faire une somme de certaine feuille dans un workbook en vba

merci papou!!!!

c est exactement ce que je cherchais!!

encore merci