Bonjour @ tous,
Je me permets de revenir vous voir après des mois d'absence pour cause d'activité importante alors j'espère que vous ne m'en voudrez pas de revenir uniquement pour un besoin personnel !
Je vais essayer de faire court même si cela ne va pas être simple ;-)
J'utilise un fichier excel pour suivre mes comptes au quotidien ou presque.
Ce fichier ce décompose en 5 feuilles :
-> Database : ici sont saisies toutes les lignes de crédit ou débit associées à des personnes et comptes bancaires
-> Stats : ici l'on retrouve le solde quotidien de chaque compte
-> Graphes : ici quelques graphes concernant le solde quotidien des comptes
-> TCD : un tableau croisé dynamique qui cumule les dépenses par catégories
-> Sources : les zones définissant les sources des autres feuilles ;-)
Mon problème porte sur la feuille Stats.
En effet, chaque mois, je modifie la date de la cellule en A2, qui me modifie les valeurs de B2:N2 avec les nouveaux solde à la date donnée et ensuite je copie/colle B2:N2 dans une nouvelle ligne du tableau en dessous .
Vous trouverez dans le fichier joint l'exemple à faire : mettre 01/01/2010 en A2 puis copier B2:N2 pour le coller en B13:N13.
Etc...
Je pense que vous imaginez bien la lourdeur de ça et surtout quand vous voulez vous remettre à jour après quelques modifs, et qu'il faut se remplir 200 lignes, c'est pas forcément "marrant".
Mais je suis sur que des experts ici vont me concocter un petit truc (macro ou autres) afin que ce tableau soit remplie automatiquement par un simple clic ;-)
J'ai commencé à réfléchir au sujet et je voyais quelque chose comme la date de début en A1, la date de fin en A2 et ensuite une macro qui reproduirait ce schéma :
où la date de début serait en A1 et la date de fin en A2 par exemple.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30 Sub TEST() Range("A2").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "1/1/2010" Range("B2:O2").Select Selection.Copy Range("B13").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("A2").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "1/2/2010" Range("B2:O2").Select Selection.Copy Range("B14").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("A2").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "1/3/2010" Range("B2:O2").Select Selection.Copy Range("B15").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False ... End Sub
Je reste à votre disposition pour toutes questions ;-)
Si vous voyez des choses qui vous choquent dans ce fichier, n'hésitez pas à me le dire ;-)
Merci d'avance beaucoup beaucoup beaucoup !!!
P.S. N'hésitez surtout pas à récupérer ce fichier pour vos besoins personnels ;-)
P.S. Le fichier se trouve ici, j'ai protégé le fichier : pas de nom d'utilisateur et mot de passe : Jeremie
Partager