remmetre une cellule a zeor

[brahim.trahim@gmx.fr]

bonjour a tous,
j'ai un probleme : ce ke je veux c'est un macro qui remmet une cellule "un compteur "a zero chaque de but de mois, en faite le probleme il faut qu'il le fasse une seul fois par mois
et des fois je peut ouvrire le docier que le 3 ieme ou 4 ieme jour du moi
explication jai un compteur qui criment pour chaque facteur par exemple et je veux qu'ile cette cellule qui criment se remmet a zero chaque nouveau mois

porrai vous me donner un exemple ?

merci mille et une fois

 

[Habitude]

Re : remmetre une cellule a zeor

Tu peux conserver dans une autre cellule le numéro du mois de remise à Zéro.

A chaque ouverture.Si le mois de remise à zéro est différent du mois courant.

Tu fais une remise à zéro et le mois de remise à Zéro deviens le mois courant.

 

[Papou-net]

Re : remmetre une cellule a zeor

Bonjour Brahim, Habitude,

RE Brahim :

Voici un petit fichier exemple sur la proposition d' Habitude.
Le n° du mois est stocké en cellule A1 de la feuille 1. A chaque ouverture de classeur, la macro va lire cette valeur: si elle est inférieure au n° de mois de la date courante, alors elle remet la cellule A1 à jour.

Private Sub Workbook_Open()
[COLOR="Red"][B]MsgBox "Vérification du mois stocké en A1"[/B][/COLOR]
If Month(Date) > Sheets("Feuil1").Range("A1") Then
  Sheets("Feuil1").Range("A1") = Sheets("Feuil1").Range("A1") + 1
End If
End Sub

La ligne en rouge sert à la démonstration, elle doit être supprimé dans le fichier définitif.

Espérant avoir été utile.

Cordialement.