Comment incrementer des données d'une feuille sur une autre
bonjour
j'ai un fichier de 2 feuillets : le 1er es un modele, servi journalierement et remis à zero
le 2eme est une feuille qui reprend les totaux du 1er feuillet mensuellement pour calculer la moyenne
question : comment faire pour que la saisie journaliere du 1er feuillet incremente automatiquement le 2eme feuillet ?
je vous joins les fichiers
dans l'attente, merci d' avance pour votre reponse
Bonsoir,
Peut être un bête question mais pourquoi ne pas faire le contraire ? Je veux dire remplir le feuillet 2 puis créer un tableau récap.
Donne quelques explications supplémentaires
A te relire
Dan
ben en fait, le 1er feuillet, on le fait tous les jours en comptabilité, d'office
et on aurait voulu se servir de cette saisie pour automatiquement en fin de mois connaitre les moyennes, sans devoir taper les mêmes chiffres deux fois dans la journée
@+, ptkntz
re,
Ok. Juste deux questions :
- Le tableau est celui là et placé à cet endroit ?
- le total peut être placé ailleurs ?
- les données en colonne C sont toujours les mêmes ?
A te relire
Dan
en fait j 'ai repris et simplifié des fichiers du boulot
le tableau est toujours placé là (en tout cas sur la feuille 1)
les valeurs affichées sont uniques pour une journée donnée (elles varient tous les jours en fonction des encaisses des bureaux en fin de journée)
le total peut être placé ou l'on veut, pourvu que ce soit sur la même feuille
@+, ptkntz
re,
Bon pas sûr que ce code fonctionnera à ton bureau mais sur ce fichier oui.
Place le dans un module en VBA et associe lui un bouton pur effectuer le transfert des données.
Sub transfert()
'Macro Dan pour ptkntz le 17/03/09
Dim i As Byte
With Sheets("Feuil2")
i = .Range("B65536").End(xlUp).Row + 1
.Cells(i, 2) = Sheets("Feuil1").Cells(3, 4)
.Cells(i, 3) = Sheets("Feuil1").Cells(4, 4)
.Cells(i, 4) = Sheets("Feuil1").Cells(5, 4)
.Cells(i, 5) = Sheets("Feuil1").Cells(6, 4)
.Cells(i, 6) = Sheets("Feuil1").Cells(7, 4)
End With
End SubAmicalement
Dan
Edit : macro adaptée.
bonjour, je reprends aujuird'hui
désolé, mais je n'arrive pasà le faire fonctionner (en fait, je suis plutôt débutant sur excell, mais toutes ces possibilités m'excitent)
pourriez vous juste le faire sur les fichiers joints, et je pense qu'en étudiant le code exact, je pourrai le retranscrire et l'adapter au boulot , svp
dans l'attente merci
ptkntz
re,
vois le fichier joint https://www.excel-pratique.com/~files/doc/encaisse1.xls
Une fois tes données correctes en feuile1, clique sur le bouton OK pour transférer.
Amicalement
Dan
salut
un truc tout bête qui montre mon ignorance d excel :
il me met tout le temps que les macros sont desactivées, et je n'arrive pas à les activer
d'autre part le bouton OK, je ne le trouve pas...
un rappel pour bien comprendre mon problème : la feuille 1 est servie chaque journée par la comptabilité d'une journée, puis remise à zéro et on refait le lendemain la compta de la journée suivante (ce n'est qu'un "moule")
ensuite la feuille 2 sert à recolter au fur et à mesure des journées ces chiffres, en rangées successives, afin de pouvoir en fin de mois calculer des moyennes
pourrait tu créer la macro sur le fichier joint, et verifier que ça marche, STP ?
merci, Ptkntz
re,
Pour activer les macros -> OUTILS / MACROS / SECURITE DES MACROS. Là coche la case MOYEN (pour plus de sécurité).
A te relire
Dan
salut
super,ça marche enfin sur les fichiers joints
j'aurai quelques questions si je veux retranscrire cela au boulot
1) que signifient les chiffres ("B65536") en général, dans ce cas precis
2) d'une façon générale, quel est le principe à appliquer (si c'est pas trop long...)
par exemple, pourquoi les dernieres lignes se terminent toujours pr (..,4) ?
merci beaucoup, et @ +
ptkntz
re,
1) que signifient les chiffres ("B65536") en général, dans ce cas preci
Cela correspond à la dernière ligne de la colonne B de ta feuille.
pourquoi les dernieres lignes se terminent toujours pr (..,4)
Parce que la colonne D de ta feuille est la 4eme colonne qui comporte les données à reporter en feuille 2.
Amicalement
Dan
ok, eh bien merci pour tout, pour ta patience
et l efficacite des reponses
bonne continuation, et peut être à une autre fois
Re,
Si ton problème est résolu, merci de le marquer en tant que [Résolu] grâce à l'utilitaire se trouvant en bas de page, aperçu
Merci pour le forum
Dan