Besoin d'aide sur le RAZ d un tableau

[cedric cc]

Bonjour à tous,
je sollicite à nouveau votre aide sur VBA
voila j ai un tableau excel avec en cellule F4 la fonction date
puis de la la cellule B9 a la cellule J167 une tableau de données qui se rempli via un userform
ce que je souhaiterais c est que le tableau fasse un RAZ des cellules du tableau lorsque la date change
on m a proposé ce code:

Private Sub Workbook_Open()
  With Sheets("CAISSE")
    If Date > .Range("F4") Then
      .Range("F4") = Date
      .Range("B9:J167").ClearContents
    End If
  End With
End Sub

malheureusement ce dernier ne peut fonctionner sur le principe que je souhaite car il prend en compte la valeur en f4
serait il a votre avis possible de programmer un RAZ des cellule a heure fixe chaque jour ou queque chose comme cela
d avance merci pour votre aide
cedric cc

 

[Softmama]

Re : Besoin d'aide sur le RAZ d un tableau

bonjour,

sinon comme cela?

Private Sub Workbook_Open()
  With Sheets("CAISSE")
    If int(Now)> .Range("F4") Then
      .Range("F4") = int(Now)
      .Range("B9:J167").ClearContents
    End If
  End With
End Sub

 

[cedric cc]

Re : Besoin d'aide sur le RAZ d un tableau

Bonjour Softmama
tout d'abord merci de ta réponse
cela ressemble vraiement au résultat que je souhaite obtenir
je test cela et reviens vers toi demain après test
encore merci
cedric cc

 

[cedric cc]

Re : Besoin d'aide sur le RAZ d un tableau

Bonjour ,
je me permet de faire remonté le sujet car la solution que l on m a proposé ne fonctionne malheureusement pas auriez vous s il vous plait une autre idée pour faire ce RAZ ?
d avance merci
cedric cc

 

[cedric cc]

Re : Besoin d'aide sur le RAZ d un tableau

re-bonjour,
une autre piste
serait il possible de programmé un RAZ des cellule a heure fixe chaque jour par exemple 22h
d avnace merci de votre aide
cedric

 

[cedric cc]

Re : Besoin d'aide sur le RAZ d un tableau

Re-re bonjour
en googlant un peu j ai penser à ce code

Private Sub Workbook_Open()
  With Sheets("CAISSE")
    If Time = TimeValue("12:55") Then
       .Range("B9:J167").ClearContents
    End If
  End With
End Sub

mais il ne semble pas fonctionner quelqu'un aurais une idée
d avance merci
cedric cc

 

[suistrop]

Re : Besoin d'aide sur le RAZ d un tableau

Salut,

Tu pourrais peut etre afficher une msgbox du type : Voulez vous remettre à 0 le tableau avec 2 option Oui ou Non.
Difficile de te proposer une solution quand on voit pas vraiment comment va etre utiliser ton fichier et pourquoi tu veux remettre ce tableau à zero...

Suistrop

 

[cedric cc]

Re : Besoin d'aide sur le RAZ d un tableau

Bonjour suistrop,
en fait mon classeur est un suivie de performance ou les utilisateurs renseignent leurs résultats vente par vente et jour par jour ( 1 feuille par mois avec 3000 lignes m ayant permis de recréer une année calendaire) et ce via un userform qui incrémente les modes de paiements utilisés dans la cellule active de la feuille active ainsi que la feuille caisse sur le bon mode de paiement que l'utilisateur peux imprime en fin de journée vers 20h00 pour contrôler sa caisse
enfin je souhaiterais que l utilisateur n ai rien a faire c est à dire que lorsqu il ouvre le fichier ce dernier soit prêt à l emploie c est pour cela que je cherche à automatisé un maximum d actions
en espérant avoir été claire sur mes explication( car cela est un peu embrouillé dans mon cerveau qui visualise plutôt le résultat fini et non le process)
cedric cc

 

[suistrop]

Re : Besoin d'aide sur le RAZ d un tableau

Salut,

Tu ne peux pas utiliser une cellule ou tu met le dernier jour ou il a été remis à 0.
A l ouverture tu compare la date d'aujourd hui avec cette cellule si c est différent tu lance la macro raz, et modifie la cellule qui t as permis de comparer, sinon tu ne touche à rien.

Suistrop

 

[cedric cc]

Re : Besoin d'aide sur le RAZ d un tableau

pourquoi pas mais la je suis perdu
as tu une idée de lancé cette action et du code a employé pour y arrivé?
d avance merci
cedric cc

 

[suistrop]

Re : Besoin d'aide sur le RAZ d un tableau

Je vois un truc de ce style :

Private Sub Workbook_Open()
date_today = Date
date_last_RAZ = Cells(1, 1)
If date_last_RAZ < date_today Then
    MsgBox "mise à jour"
End If
Cells(1, 1) = date_today
End Sub

Ici j'ai utilisé la cellule A1 pour mettre la date de MAJ mais dans ton classeur utilise une cellule moins voyante

Suistrop

 

[cedric cc]

Re : Besoin d'aide sur le RAZ d un tableau

super merci je test ca et j addapte et reviens vers toi
merci suistrop
cedric cc

 

[cedric cc]

Re : Besoin d'aide sur le RAZ d un tableau

euh petite question de newbie
tu place ça dans la feuille caisse pas dans le workbook?

 

[suistrop]

Re : Besoin d'aide sur le RAZ d un tableau

Je mettrai ca dans workbook pour que cela soit fait à l'ouverture.