Boucle!!!

[gex1403]

Bonsoir, un nouveau fil

Comment remettre a 0 la valeur d'une cellule a une date precise(et si le fichier n'est pas ouvert le jour programmé)puis reprogrammer la date pour l'année suivante????
C pas clair????

en L2 =3 date de remise a zero en W2 (01/07/2006)
le 1/07/2006 , mettre L2 à 0 et en W2 mettre 01/07/2007
Si le fichier n'est pas ouvert le 1/07 mais plus tard, tester W2, constater que la date n'a pas ete incrementée , donc excuter la manip, mettre 1/07/2007 en W2 et 0 en L2
@micalement

 

[myDearFriend!]

Bonsoir gex1403,

Tu peux essayer la procédure ci-dessous dans le module de code de l'objet ThisWorkbook :

Private Sub Workbook_Open()
      With Sheets('Feuil1').Range('W2')
            If Date >= .Value Then
                  Sheets('Feuil1').Range('L2').Value = 0
                  .Value = DateAdd('yyyy', 1, .Value)
            End If
      End With
End Sub

Cordialement,

 

[gex1403]

bonsoir, MyDearFreind
Merci pour le code, je vais essayer
@+

 

[alpha]

comment concaténer en BVA