Copie de feuille avec comptage cumule de valeur

bonsoir tous le monde,

nouvelle sur le site, alors COUCOU à tous le monde

j'aimerais savoir si vous pouvez m'aider à résoudre un petit problème :

Dans une feuille de calcul j'ai un petit tableau que je complète. j'aimerais à l'aide d'un bouton placé dans cette feuille, qu'il me fasse l'action suivante :

  • point 1 : création d'une copie de la feuille complété
  • point 2 : remise à zéro des données saisie du tableau
et point 3 : avoir une feuille que je nommerez synthèse et dans laquelle il y le même tableau ( identique au point 1) mais dans les cellules de ce tableau je souhaiterais qu'il puisse compter (additionner / cumule les valeurs que j'ai saisie dans le point 1.

et jusqu'ici ma difficulté c'est que lorsque je saisie les données du point 1, la macro se fait bien pour effectuer une copie et effacer les données saisi du tableau (point 1) mais je n'arrive pas à faire le point 3

pouvez vous m'aidez svp

SANDRA

11sandra.xlsm (17.03 Ko)

Bonsoir,

À l'issue de la manipulation, tu auras chaque fois une feuille de plus dans ton classeur, si je comprends bien? Tu as déjà imaginé une limite?

Il s'agira toujours des deux mêmes tâches?

Faut-il vérifier si une des cellules où des données sont attendues serait vide? Quid si c'est du texte?

Dans ton fichier réel, le tableau serait de quelles dimensions?

bonsoir et merci de votre rapide réponse

il y aura a chaque fois une nouvelle feuille

pour ce qui est du nombre de feuille max : je dirais 120 max

Et oui il peux y avoir des cellules vides dans le tableau

quant à la dimension du tableau, je n'ai mis qu'un exemple car dans mon cas il y aura dans la feuille plusieurs tableaux répartis sur la feuille.

je pensais adapter une solution, une méthode à mon cas,

SANDRA

sandra7510 a écrit :

je pensais adapter une solution, une méthode à mon cas

Je te laisse adapter à ta guise, alors

Colle ces quelques lignes dans un module standard ... et teste

Sub cumul()
Application.ScreenUpdating = False
With Feuil1
    For Each c In .[B2:B3]
        Feuil2.Cells(c.Row - 1, 2) = Feuil2.Cells(c.Row - 1, 2) + c.Value
    Next c
.Copy after:=Sheets(Sheets.Count)
.[B2:B3].ClearContents
End With
Application.ScreenUpdating = True
End Sub

Attention tout de même au fait que soumettre un exemple exagérément simplifié est un peu risqué: le traitement fait ici d'un petit tableau de 2 cellules risque de faire "ramer" si, dans ton vrai fichier, le nombre et les dimensions de tes différents tableaux sont bien plus élevés!

Rechercher des sujets similaires à "copie feuille comptage cumule valeur"