Discussion :

[andy.spit]

Bonjour à tous,

Voila je suis en train de finaliser une petite macro.
Je souhaiterai qu'à l'ouverture du classeur, un test se fasse sur une cellule et si la date du jour est égale à la date de la cellule, alors je réinitialise un compteur.

Le problème est que si je n'ouvre pas le classeur (samedi ou dimanche par exemple), mon compteur ne va pas se réinitialiser.
Et dans le sens inverse, si je réinitialise le compteur lorsque la date est dépassée, je risque de rater des incrémentations.


Est ce que vous auriez une solution pour faire ce que je veux faire ?

Merci à tous,


exemple :
compteur x
date du jour : 29/08/2013
date dans cellule : 30/08/2013

quand j'ouvrirai mon classeur demain, x sera réinitialisé à 0.
mais si je ne l'ouvre que après demain, il ne le sera pas.

[EngueEngue]

Comment marche ton compteur, quels sont les facteurs d'incrémentation ?

Tu peux mettre une autre variable que tu contrôles manuellement tu mets dans une case de ton classeur, une variable DejaReset que tu modifieras manuellement lors du reset de ton compteur puis dans ta macro d'ouverture tu mets une double condition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If date>datedereset and dejareset = "False" then
compteur=0
end if

[Philippe Tulliez]

Bonjour,
Cette contribution VBA / Fonction - Incrémentation de n° t'aidera peut-être.
Il s'agit d'une fonction prête à l'emploi qui permet un "reset" de compteur en fonction de plusieurs paramètres.
Il y a un classeur de démonstration à télécharger.

[andy.spit]

merci pour vos réponses rapides, je vais analyser tout ca.
Pour plus d'infos, c'est un classeur ou il y a des périodes (du 12/08/2013 au 11/08/2014).
durant chaque période, il y a un certain nombre d'evenemments qui permettent de générer un compteur.
à chaque fin de période, il faut remettre à zero ce compteur, et repartir pour une nouvelle période. il ne faut donc pas rater les premiers jours de la période considérée.

Tu peux mettre une autre variable que tu contrôles manuellement tu mets dans une case de ton classeur, une variable DejaReset que tu modifieras manuellement lors du reset de ton compteur puis dans ta macro d'ouverture tu mets une double condition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If date>datedereset and dejareset = "False" then
compteur=0
end if

Merci pour cette double condition. cela règle le problème si jamais je demande un reset après la date clé. Mais si jamais je fais le premier reset 5 jours après, j'aurai perdu 5 jours d'incrémentation dans la nouvelle période.

[Theze]

Bonjour,

Si l'incrémentation est journalière, il te suffit d'initialiser le compteur d'après la différence de jours entre la date de référence et la date actuelle :

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
 
Sub Test()
 
    Dim DateFin As Date
    Dim Compteur As Long
 
    DateFin = Range("A1")
 
    'si la date est identique, "Compteur" sera égal à 0
    'sinon, il aura la valeur de la différence en jours
    If Now >= DateFin Then Compteur = Now - DateFin
 
    MsgBox Compteur
 
End Sub

Hervé.

[andy.spit]

l'incrémentation est journalière mais pas régulière.
Il se peut que je n'ai aucun incrémentation sur plusieurs jours mais à l'inverse plusieurs incrémentation sur une journée.

[EngueEngue]

Oh! Tu sais mon ami, nous ne sommes pas dans ta tête, on ne connaît pas ton problème alors comment veux tu que l'on imagine une solution ?

Comme déjà dit :
Quels sont les facteurs d'incrémentation de ton compteur?

Si tu reset ton compteur 5 jours après tu peux soit l'ajuster manuellement soit avoir une formule qui te le calcule en dépendant des facteurs d'incrémentation.

Pas 37000 solutions. Deux. A toi d'en choisir une.

[Philippe Tulliez]

Bonjour,

l'incrémentation est journalière mais pas régulière.
Il se peut que je n'ai aucun incrémentation sur plusieurs jours mais à l'inverse plusieurs incrémentation sur une journée.

As-tu essayé la procédure présente sur le lien que je t'ai proposé ?