supprimer ligne selon date

[lynyrd]

Bonjour à tous
Dans le fichier ci joint,serait t'il possible de créer une macro qui me supprime les lignes et une MsgBox qui m'informe de la prochaine suppréssion ?
Merci .

 

[ccpapy]

Re : supprimer ligne selon date

bonsoir,
un début pour la suppression des lignes
la suppression pourrait se faire automatiquement sans passer par le bouton en mettant le code dès l'activation de la feuille1 si tu le désires
reste le msgbox à trouver 😱
à+

 

[lynyrd]

Re : supprimer ligne selon date

Merci ccpapy
Oui je voudrais bien la suppression auto
Merci .

 

[ccpapy]

Re : supprimer ligne selon date

re,

tu remplaces le:

Private Sub CommandButton1_Click()

par:

Private Sub Worksheet_Activate()
en début de code tu supprimes le bouton et ça devrait aller

 

[ccpapy]

Re : supprimer ligne selon date

re,

tu remplaces le:

Private Sub CommandButton1_Click()

par:

Private Sub Worksheet_Activate()
en début de code tu supprimes le bouton et ça devrait aller

edit
une précision si tu n'ouvres pas tous les jours ton fichier, il serait judicieux de changer également

If C = Range("E1") Then Rows(C.Row).Delete

par

If C <= Range("E1") Then Rows(C.Row).Delete
ceci afin d'éviter de laisser passer des dates entre 2 ouvertures de fichiers

 

[bqtr]

Re : supprimer ligne selon date

Bonsoir lynyrd, ccpapy

Un exemple avec deux boutons, un pour la suppression des lignes et un autre où une inputbox te demande un nombre de jours. Après validation une msgbox te liste les noms arrivant à échéance (s'il y en a ).

Bonne soirée

 

[CB60]

Re : supprimer ligne selon date

Bonsoir
En fonction de la macro de CCpapy
msgbox et numero de la ligne à supprimer
Private Sub CommandButton1_Click()
'on définit la zone de suppression colonne D de la ligne 4 à la dernière écrite
For Each c In Range("D4:d" & Range("A65536").End(xlUp).Row)
' si une cellule est égale à la cellule E1 (aujourd'hui) on supprime la ligne
If c = Range("E1") Then
Response = MsgBox("Souhaitez-vous supprimer la ligne? " & Chr(10) & c.Row, vbYesNo + vbCritical)
If Response = vbYes Then Rows(c.Row).Delete
End If
Next c
End Sub

 

[lynyrd]

Re : supprimer ligne selon date

Merci ccpapy et bqtr
C'est parfait

 

[lynyrd]

Re : supprimer ligne selon date

Merci aussi a cb60 les 2 posts se sont croisés .

 

[lynyrd]

Re : supprimer ligne selon date

j'avais trouvé un fichier de pierre jean sur ce forum
dans celui ci la MsgBox indique l'échéance prochaine
son code est trop compliqué pour moi,mais serait t'il possible de l'adapter a mon fichier.
ci joint le fichier de pierre jean
Merci.

 

[CB60]

Re : supprimer ligne selon date

Bonsoir
regarde si c'est cela que tu recherche:
msgbox avec la ligne à effacer,
la date,
le nom de la personne
et le lieu

 

[lynyrd]

Re : supprimer ligne selon date

C'est presque cela
Mais une fois qu'il n'y a plus de lignes à supprimer,il faudrait que la MsgBox indique le nom et la date de la prochaine suppression.
Si cela est possible .
Merci d'avance .

 

[ccpapy]

Re : supprimer ligne selon date

bonjour,
voilà une nouvelle version, en espérant que cela te convienne
à+

 

[lynyrd]

Re : supprimer ligne selon date

C'est tout à fait ce que je recherchais
Merci encore à tous pour votre patience .