XL 2019 Effacer données cellule avec vba

Staple1600

XLDnaute Barbatruc

• 22 Juin 2024

• #2

Bonjour le fil

@Quicksland
Si j'ai bien compris

VB:

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 ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Juin 2024

• #3

Re

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

Code:

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)

 

Vote positif 0 Vote négatif

Q

Quicksland

XLDnaute Occasionnel

• 22 Juin 2024

• #4

Staple1600 à dit:

Re

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

Code:

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)

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Juin 2024

• #5

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

 

Dernière édition: 23 Juin 2024

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Juin 2024

• #6

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 :

VB:

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Juin 2024

• #7

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+

 

Vote positif 0 Vote négatif