XL 2019 Effacer données cellule avec vba

[Quicksland]

Bonsoir le forum

Dans mon fichier un bouton "remise a zéro tableau" efface les données des cellules.

Mais je souhaiterai également que les données en question s'efface automatiquement 3 jours âpres la date de la cellule "B13"

Merci a tous

 

[Staple1600]

Bonjour le fil

@Quicksland
Si j'ai bien compris

Private Sub CommandButton1_Click()
If [B13] + 3 = Date Then
Range("B13:B14,C16:O19").ClearContents
End If
End Sub

Est-ce le résultat voulu ?

 

[Staple1600]

Re

@Quicksland
A la relecture, puisque tu parles d'automatisme, ceci devrait être plus conforme

Private Sub CommandButton1_Click()
Range("B13:B14,C16:O19").ClearContents
End Sub
Private Sub Worksheet_Activate()
If [B13] + 3 = Date Then
Range("B13:B14,C16:O19").ClearContents
End If
End Sub

Testé avec plusieurs feuilles visibles dans le classeur (cf Activate)

 

[Quicksland]

Re

@Quicksland
A la relecture, puisque tu parles d'automatisme, ceci devrait être plus conforme

Private Sub CommandButton1_Click()
Range("B13:B14,C16:O19").ClearContents
End Sub
Private Sub Worksheet_Activate()
If [B13] + 3 = Date Then
Range("B13:B14,C16:O19").ClearContents
End If
End Sub

Testé avec plusieurs feuilles visibles dans le classeur (cf Activate)

Bonsoir @Staple1600

J'ai inscrit la date du 20/06/24 en "B13"

J'ai changer la date de mon ordinateur au 24/06/24 et a l'ouverture du fichier les données sont toujours visible
je souhaiterai que les données n'apparaisse plus 3 jours après la date en "B13"

mais je souhaiterai que le bouton fonctionne pour effacer manuellement avant les 3 jours

Merci pour ton aide

 

[Staple1600]

Re

@Quicksland
Pour tester, j'ai mis la date du 19/06/24 et comme précisé il faut qu'il y ait d'autres feuilles visibles que la feuille MERCREDI
J'ai donc ajouté une feuille vierge
C'est cette feuille la feuille active, si je sélectionne la feuille MERCREDI, les données sont bien effacées automatiquement

EDITION:
Bonjour @job75

 

[job75]

Bonjour Quicksland, JM,

Il faut que l'effacement se fasse même s'il n'y a qu'une feuille ou qu'on ne change pas de feuille.

On peut mettre ce code dans ThisWorkbook :

Private Sub Workbook_Open()
Application.OnTime Sheets("MERCREDI").[B13] + 3, Me.CodeName & ".Efface"
End Sub

Sub Efface()
Sheets("MERCREDI").[B13,C16:O19] = ""
End Sub

A+

 

[job75]

Bonjour Quicksland, JM,

Une explication sur Application.OnTime est peut-être utile.

La veille du jour de l'effacement attendez minuit pour voir l'effacement se produire.

A+