Autre compteur

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

je ne comprends pas cette approche ?

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

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.

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

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!

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.

Le lancer !

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

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/

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?

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.

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 !

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.

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

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.

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.

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

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 !

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.