Suppression automatique d'une date perimé avec macro
Résolu/Fermé
peter
-
peter -
peter -
Bonjour,
je cherche un algorithme (macro ) qui me permetterai de vider les cellules d'une colonne X une fois la date est perimée. ces cellules peuvent etre vides ou remplies par des dates
merci pour votre aide
je cherche un algorithme (macro ) qui me permetterai de vider les cellules d'une colonne X une fois la date est perimée. ces cellules peuvent etre vides ou remplies par des dates
merci pour votre aide
7 réponses
Bonjour,
Je pense que tu peux faire cela avec des formules. Par macro voici le code à mettre dans un UserForm :
C'est juste la marche à suivre, a adapter avec un bouton
Je pense que tu peux faire cela avec des formules. Par macro voici le code à mettre dans un UserForm :
Private Sub UserForm_Initialize() Label1.Caption = Date TextBox1.Text = Date - 1 ' a adapter If TextBox1.Text < Label1.Caption Then MsgBox "Perime" 'mettre le code pour supprimer les cellules End If End Sub
C'est juste la marche à suivre, a adapter avec un bouton
merci pour le temps que vous me consacrez.
le pb c'est que je veux pas utiliser de bouton , juste definir une plage sur laquelle la macro va etre executée et une fois la date d'une cellule sera inferieure a la date d'aujourd'hui la cellulle se vide automatiquement
j'espere que je vous apporte plus de details mnt.
merci
le pb c'est que je veux pas utiliser de bouton , juste definir une plage sur laquelle la macro va etre executée et une fois la date d'une cellule sera inferieure a la date d'aujourd'hui la cellulle se vide automatiquement
j'espere que je vous apporte plus de details mnt.
merci
Bonjour
Voila une macro a toi de la mettre en forme car sans model et sans reference de colonne dur
A+
Maurice
Voila une macro a toi de la mettre en forme car sans model et sans reference de colonne dur
Sub TestDate()
MaDate = DateValue(Now)
Col = 1
For L = 1 To Range("A" & Rows.Count).End(xlUp).Row
Tdate = Cells(L, Col).Value
If Tdate < MaDate And Tdate > 0 Then
Cells(L, Col).Value = ""
End If
Next
End Sub
A+
Maurice
merci pour votre aide
le pb persiste tjrs, je veux preciser que les date en question peuvent etre n'importe ou sur une plage de (A5;G50)
j'attend vos solutions et merci
le pb persiste tjrs, je veux preciser que les date en question peuvent etre n'importe ou sur une plage de (A5;G50)
j'attend vos solutions et merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour
j'attend vos solutions et merci
D'accord, mais puis je caresser l'espoir d'avoir une réponse à ma demande de précisions du 24 décembre, sans vouloir abuser, bien sûr....
j'attend vos solutions et merci
D'accord, mais puis je caresser l'espoir d'avoir une réponse à ma demande de précisions du 24 décembre, sans vouloir abuser, bien sûr....
Bonjour,
La solution est pratiquement identique sur l'aide Microsoft VBa avec la fonction "Find"
Elle est indiquée. rubrique "range.find.methode"
pour lancer sans bouton écrire la macro dans un module feuille
et délimiter au départ la zone d'action
Pour accéder aumodule feuille
clic droit sur le nom d'onglet-visualiser le code
Michel
La solution est pratiquement identique sur l'aide Microsoft VBa avec la fonction "Find"
Elle est indiquée. rubrique "range.find.methode"
pour lancer sans bouton écrire la macro dans un module feuille
et délimiter au départ la zone d'action
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(laplageconcernée)) Is Nothing Then
'..le code
End If
End Sub
Pour accéder aumodule feuille
clic droit sur le nom d'onglet-visualiser le code
Michel