remmetre une cellule a zeor

brahim.trahim@gmx.fr · 4 Août 2010

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 · 4 Août 2010

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 · 4 Août 2010

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.

Code:

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.

remmetre une cellule a zeor

brahim.trahim@gmx.fr

Guest

Habitude

XLDnaute Accro

Papou-net

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

remmetre une cellule a zeor

brahim.trahim@gmx.fr

Guest

Habitude

XLDnaute Accro

Papou-net

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency