autre compteur Résolu

Question

Bonjour le Forum, 
Je cherche à faire un compteur mais le problème est, que ce compteur une fois que les résultats sont arrêtés à la fin d'une semaine, restent figés.
Ensuite, je copie cette feuille et enlève toutes les données mais il faudrait que ce compteur comptabilise les nouvelles données additionnées avec les anciennes

Par avance, merci pour vos investissement

Éric2027

Le Pingou · Answer

Bonjour,
Une idée, inscrire la dernière valeur du compteur sur votre classeur de travail.

eric2027 · Answer

je ne comprends pas cette approche ?

Le Pingou · Answer

Bonjour,
Désolé je ne comprend pas votre réponse.

Raymond PENTIER · Answer

Salut, eric2027.

Le Pingou te suggère de noter sur un bout de papier le résultat du compteur en fin de semaine, puis de copier ton fichier, puis d'effacer les données, puis de saisir manuellement le résultat précédent en tant que valeur de départ du compteur, qui ne commencera donc pas à zéro.

eric2027 · Answer

Je crois que c'est plus compliqué que cela, j'ai fais des liens qui calculent automatiquement mais ça plante parce que il y a trop de données, et je pense que c'est parce que le fichier final qui calcule l'ensemble de mes semaines n'est pas dans le même classeur.

Donc un compteur qui calculerais tout sur la même feuille et dans le même classeur

cs_Le Pivert · Answer

Bonjour,

Pour faire un compteur en vba:

Private Sub CommandButton1_Click()
Dim compteur As Integer
compteur = Range("A1").Value
compteur = compteur + 1
Range("A1").Value = compteur
End Sub
 

a adapter la cellule de réception, c'est tout simple!

cs_Le Pivert · Answer

Ce qu'il faut savoir, c'est la manière dont tu vas incrémenter ton compteur? 

Ensuite il suffit de faire un compteur pour chaque cellule avec une cellule de destination différente pour mémoriser.

cs_Le Pivert · Answer

Le lancer !

cs_Le Pivert · Answer

Pour résoudre tes problèmes,

Tu insères un module avec ce code:

Option Explicit
Sub lancer_compteur()
Dim compteur As Integer
compteur = Sheets("Feuil2").Range("A1").Value
compteur = compteur + 1
Sheets("Feuil2").Range("A1").Value = compteur 'adapter feuille et cellule
End Sub


j'ai mis la réception du compteur dans une autre feuille

pour lancer la macro:

Private Sub CommandButton1_Click()
lancer_compteur
End Sub


Tu ne m'as toujours pas dit comment tu lançais la macro. Je l'ai mis dans un bouton, a toi de l'adapter.


Pour poster le classeur aller sur ce site et ensuite mettre le lien sur ce post

https://www.cjoint.com/


Bon WE

Mike-31 · Answer

Bonjour le fil,

A la place de travailler sur des suppositions et avec des explications fragmentées, l'idéal serait d'avoir un exemple de fichier anonymisé avec quelques explications que l'on comprenne tes attentes, pour joindre ton fichier sert toi de ce lien
https://www.cjoint.com/

cs_Le Pivert · Answer

Tu mets un fichier, mais pas d'explication sur les actions à faire. Nous ne sommes pas devin. Quelles sont les cellules auxquelles tu veux appliquer un compteur?

Mike-31 · Answer

Re,

je me souviens de ce fichier, mais tu as des références circulaires ce qui veut dire que tu as des formules qui prennent en compte leurs propres résultats, ensuite sur chaque onglet il s'agit de la semaine 34 ce qui rend ton fichier incompréhensible et onglet 2015 tu parles d'agent A et B qui ne figurent nulle par dans tes onglets et que faut il y afficher !
pour ma part sans explications plus détaillées je n'y comprends rien
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

RE,

déjà commence par coller ce code dans la Thiswokbook pour accélérer ta fonction personnalisée somcoul

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Calculate
End Sub 

ensuite onglet A tu as en A1 Semaine 32 et en B2 Semaine 34 alors quelle est la bonne semaine et idem sur tous tes onglets !

Mike-31 · Answer

Re,

donc onglet A c'est bien la semaine 34 et l'onglet B c'est quelle semaine la 35 et onglet C la 36 etc ... ! 
 c'est bien cela
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

RE,

et bien voilà on commence à y voir un peu plus clair, donc onglet 2015 tu veux avoir le total de tous tes onglets cellule A soit onglet A cellule B40 + onglet B cellule R16 + etc ... 

ensuite tu effaces le contenu de tes onglets et tu veux que sur l'onglet 2015 les valeurs reste, c'est cela

tes tableaux sont de dimensions variables, n'est il pas possible que tous tes onglets soit identiques

Mike-31 · Answer

Re,

commence par harmoniser tous tes onglets de façon que toutes tes cellules A et B qui sont actuellement onglet A en cellule R40 et S40 soient dans tous tes onglets dans la même cellule et reposte ton nouveau fichier, je le regarderai dans la soirée
et essaye de regarder ou tu as tes références circulaires
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,

récupère ton fichier et teste le

utilise tes feuilles A, B, C etc  en colorisant tes cellules et tes saisies g, c 
en simulant la fin de ta semaine 32 clic sur le bouton Réinitialiser sur ta feuille 2015
pour éviter les erreurs d'utilisation j'ai mis une inputbox dans laquelle tu dois saisir un mot de passe pour autoriser le transfert 
le mot de passe actuel est open
1/ la procédure transfère les données de tes feuilles sur la feuille 2015
2/ puis efface les couleurs saisies manuellement de toutes tes feuilles 
3/ efface les données saisies manuellement
4/ changement automatiquement du numéro semaine (pour un changement manuel feuille A uniquement saisir le numéro choisi)
5/ l'enregistrement après la procédure sera automatique dans un premier temps ferme sans enregistrer pour re-tester le fichier
6/ vu la complexité du code mais surtout le traitement de nombreuses cellules et feuilles la procédure dure 4 à 5 secondes environ

  https://www.cjoint.com/c/EJshRD1LrBj
si c'est ce que tu cherches je pense qu'il faudra protéger tes feuilles   
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,

comme cela !

 https://www.cjoint.com/c/EJsiEgKKnej

par contre lorsque ton fichier sera bon il faudra simplifier le code avec des constantes pour ne plus toucher au code 
dans tes onglets tu saisis manuellement des données en A5:Q99 ou la colonne A est elle identique pour tous les onglets

Mike-31 · Answer

Re,

que veux tu dire par "est ce qu'il soit possible de ne pas effacer les données sur les onglets en faisant le transfert" 

tu veux conserver les g, c, et la couleur rouge dans tes onglets !

Mike-31 · Answer

Re,
oui mais la je ne comprends plus, soit tu gardes les onglets avec les colorisations et le données g,c etc... 
donc tu ne peux pas les utiliser pour la semaine suivante ou comment fais tu!
il va falloir à un moment donné les effacer pour saisir de nouvelles données pour la semaine suivante ou en cours



A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,
et non pour additionner les données il va falloir l'écrire à Excel, ou plus compliqué tu gardes une fichier modèle vierge que tu enregistres sous ce qui te donnera 52 voire 53 fichiers (1 par semaine) et tu crées un fichier récap qui centralise le données de chaque semaine mais là c'est un véritable programme à écrire

Mike-31 · Answer

Re,

ce qui m'interpelle est l'importance de ton fichier
as tu besoin de 94 lignes par onglet et a quoi correspond tes onglets de A à L soit 12 onglets, en as tu besoin !

Mike-31 · Answer

Re,

tu n'as pas tout à fait répondu à mes questions pour m'aider à comprendre 
"a quoi correspond tes onglets de A à L soit 12 onglets, en as tu besoin ! "

Le Pingou · Answer

Bonjour,
Excusez l'intrusion, je pense qu'il suffit d'enregistrer les feuilles (A, B,   ...et L)  comme classeur archive, ce qui est facilement réalisable juste avant de recharger la nouvelle semaine... !
Bon dimanche.

Le Pingou · Answer

Bonjour,
Simplement prévoir de copier les feuilles A ...L dans un classeur vierge que vous nommez et enregistrez dans le répertoire de votre choix (le même que celui de votre classeur de travail/récupération de l'année. 
C'est d'ailleurs ce que proposait Mike-31 au poste 46 (salutations).

Mike-31 · Answer

Re,

revenons un peu à ton programme, je pense partir sur 53 fichiers avec les onglets Couleurs et de A à L, mais il va falloir alléger un peu l'ensemble  
 as tu besoin des onglets Presence E.P.P, semaine 34 et Vue globale pour chaque semaine, si oui répare les formules en erreur sur ces onglets et retourne nous ton fichier

pour finir je vois un fichier Récap équivalent à l'onglet 2015 qui centraliserait toutes les données par semaine

Mike-31 · Answer

Re,

une esquisse de ce qui pourrait être faite, un fichier par semaine avec un fichier Récap qui centralise les données annuelles comme cela tu conserveras tes archives. l'ensemble fonctionne uniquement par formule, le seul code VBA est ta fonction personnalisée et une ligne que j'ai créé pour éviter un message d'alerte que le fichier contient des liaisons.

comme l'ensemble pèse plus de 20 MO j'ai été obligé de poster ton projet sur un site différent de CJOINT.COM

à partir de ce lien télécharge le fichier ZIP, ouvre le et sort le dossier  test qui contient ton programme complet
tu peux ouvrir plusieurs fichiers semaine et saisir des données, ensuite ouvre le fichier Récap voir ce que tu en penses

 http://dl.free.fr/getfile.pl?file=/aeYpIRLW 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,

tu as téléchargé le fichier ZIP, comme je te l'ai dit dans mon dernier post il faut l'ouvrir (double clic ou clic droit et ouvrir) tu verras un dossier nommé test que tu renommeras plus tard, dans un premier temps il faut sortir ce fichier test soit en faisant un Couper et Coller à l'extérieur du zip ou en faisant un cliquer/glisser et normalement tes fichier doivent fonctionner, pour ma part je les ai tester deux fois
il est possible qu'a la première utilisation Excel te demande d'activer les liaisons

Mike-31 · Answer

Re,

non et même il est préférable de protéger tes feuilles, mais je viens de m'apercevoir que tu as déverrouillé la totalité de tes cellules, il est impératif de les reverrouiller et déverrouiller uniquement les cellules que tu souhaites laisser accessible à l'exception bien sur des cellules contenant des formules
ensuite protège tes feuilles avec un mot de passe mais attention de na pas l'oublier

les feuilles Récap comme le fichier Récap doit entièrement être protégé

Mike-31 · Answer

Re,

si tes attentes sont satisfaites pas le statut de la discussion en résolu ou confirme le moi que je le fasse

Mike-31 · Answer

Re,

j'ai peur de ne pas avoir compris,
sur le fichier semaine1, dans quel onglet et quelle cellule veux tu changer quoi par quoi !

Mike-31 · Answer

Re,

chez moi j'ai bien 2015 Récap semaine1

l'année ou 2015 est piloté par la cellule C1 onglet Couleurs, qui a t il dans cette cellule  

je viens de m'apercevoir que je n'ai pas reconduit le code de ton bouton de la feuille Couleurs, colle ce bout de code dans le module2
Sub afficheform()
  UserForm1.Show
End Sub

 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,

comme tu dois ouvrir chaque fichier semaine pour verrouiller tes cellules à l'exception de celles que tu dois laisser accessible pour tes saisies, n'oublie pas de coller ce code dans chaque module2
Sub afficheform()
UserForm1.Show
End Sub 
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,
 
Il faut que chaque onglet soit identique, si tu rajoutes 10 lignes onglet A il faut impérativement ajouter autant de ligne dans tous les onglets de A à L de sorte que les cellule R, S et T ou se trouve cette formule =SOMME(R5:R94) aient la même adresse et contrôler la formule afin de t'assurer que tes lignes soient prise en compte =SOMME(R5:R104)

ensuite sur l'onglet Récap en C5 tu as cette formule
=SOMME('A:L'!R95) il faut actualiser la formule, exemple si tu rajoutes 10 lignes dans tes onglets la formule devient =SOMME('A:L'!R105) et idem pour les cellule D5 et E5

Mike-31 · Answer

Re,

que je me remémore ta demande,
dans le dossier "semaines présences 2015", tu as créé un fichier par semaine "semaine1.xlsm à semaine53.xlsm" et dans chaque fichier semaine tu as un onglet "Vue globale'!" qui centralise en cellule "J4" les données de l'ensemble de tes onglets, c'est bien cela

et maintenant tu veux ajouter un fichier qui récupère les données de l'onglet 
"Vue globale'!" cellule "J4" de l'ensemble de tes fichiers semaine, c'est bien cela !
 ou tu veux simplement récupérer chaque valeur sur une ligne différente
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

RE,

et bien dans le ZIP que je t'ai envoyé il y avait ce fichier
 https://www.cjoint.com/c/EKkuuqH8f3j
il suffit d'adapter les formules après avoir enlevé la protection

Mike-31 · Answer

Re,

oui c'est ça, et pour rapatrié les somme dans tes tableaux, exemple 3éme trimestre en J7 tu peux faire la somme par rapport aux mois juillet, août et septembre
=SOMMEPROD((($B$4:$B$56="juillet")+($B$4:$B$56="août")+($B$4:$B$56="septembre"))*($D$4:$D$56))

ou par rapport aux numéros semaine
=SOMMEPROD((C4:C56>=28)*(C4:C56<=40)*(D4:D56))

Mike-31 · Answer

Re, 
évidemment plus il y a de formules et plus le fichier augmente de taille, fait un clic droit sur l'icône du fichier et propriétés tu verras sa taille.
le fichier Récap lorsque je t'ai envoyé faisait 94 KO
compare le avec celui que tu as modifié

Mike-31 · Answer

Re, 

ça commence à faire, si tu ne l'ouvres pas souvent tu peux prendre quelques secondes pour qu'il s'ouvre, le plus gros problème sera pour le véhiculer par mail

Mike-31 · Answer

Re,

perdre des données, non, mais tu verras s'il est long à s'ouvrir ou à mettre à jour les formules et si cela est gênant dans ce cas on verra comment l'accélérer avec un code vba

eric2027 · Answer

Bonjour Mike et bonne année, je suis revenu pour te demander de l'aide, je n'arrive pas à mettre en fonction ton fichier sur l'année 2016, j'ai beau chercher, je n'y arrive pas.
Peux-tu regarder et m'orienter s'il te plait.
Par avance, merci.
Cordialement.

Mike-31 · Answer

Re,

je n'ai pas conservé ton fichier, peut tu le remettre en ligne et dire ou ça coince que je me le remettre en mémoire s'il te plait

Le Pingou · Answer

Bonjour eric2027,
Aie, le bonjour c’est perdu en 2015….dommage… !
Juste au passage, salutations Mike-31, si j’ai bien compris, vous avez les classeurs [semaine1 …à 53.xlsm] qui sont dans le nouveau répertoire ['P:\SDTP\US\GFPP\Moniteurs\semaines présences 2016\..] et de ce fait vous devez changer/adapter la source des données dans votre nouveau classeur [Récap.xlsm] pour 2016.
Pour ce faire :
Ouvrir le nouveau classeur [Récap] puis dans l’onglet [Données] clic sur [Modifier les liens]  et dans la fenêtre sélectionner toutes les lignes [semaine1…53] puis sur la droite clic sur [Modifier la source] et dans la fenêtre vous rechercher et sélectionner le nouveau classeur source…. Puis OK
Les formules dans le classeur [Récap] seront mise à jour.

Le Pingou · Answer

Bonjour,
Merci, mais où est donc le problème ….. Est-ce qu’il s’agit simplement de la valeur de la cellule [B4] de la feuille [Récap] qui indique : [décembre] ……. ?

Le Pingou · Answer

Bonjour,
Suite:
Vous remplacez la formule en [B4] par celle qui suit et la tirer vers le bas :
=MOIS(7*(DROITE($C4;2))+DATE($C$3;1;3)-JOURSEM(DATE($C$3;1;3))-5)

Le Pingou · Answer

Bonjour,
Ma formule est correct, il faut simplement changer l’affichage dans Format de cellule choisir [Personnalisée] et sous type mettre (mmmm) c’est tout.

Petit suggestion pour répondre utiliser Répondre au sujet .... se sera mieux pour le suivi. 
 
Salutations.
Le Pingou

eric2027 · Answer

J'ai fais mais pour le 2 de février, il m'affiche à janvier

eric2027 · Answer

C'est ok, j'ai refais la formule et cela fonctionne.

Merci pour tout le temps que vous avez passé à m'aider.

Une fois de plus, vous et le Forum étiez là pour me sortir de cette impasse.

Bien cordiaelement

Le Pingou · Answer

Bonjour,
Eh bien oui, j’ai commis une erreur je vous ai mis la mauvaise formule ( tout comme le bonjour…hélas).
Formule valable :
=7*(DROITE($C4;2))+DATE($C$3;1;3)-JOURSEM(DATE($C$3;1;3))-5

Autre compteur

49 réponses

Votre réponse

Discussions similaires

Newsletters