supprimer ligne selon date

C

ccpapy

XLDnaute Impliqué

• 27 Novembre 2007

• #2

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 😱
à+

 

Pièces jointes

• supprimeV1.zip

  8.9 KB · Affichages: 40
• supprimeV1.zip

  8.9 KB · Affichages: 46
• supprimeV1.zip

  8.9 KB · Affichages: 41

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 27 Novembre 2007

• #3

Re : supprimer ligne selon date

Merci ccpapy
Oui je voudrais bien la suppression auto
Merci .

 

Vote positif 0 Vote négatif

C

ccpapy

XLDnaute Impliqué

• 27 Novembre 2007

• #4

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

 

Vote positif 0 Vote négatif

C

ccpapy

XLDnaute Impliqué

• 27 Novembre 2007

• #5

Re : supprimer ligne selon date

ccpapy à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 27 Novembre 2007

• #6

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

 

Pièces jointes

• supprime_ligne.zip

  10.6 KB · Affichages: 40
• supprime_ligne.zip

  10.6 KB · Affichages: 41
• supprime_ligne.zip

  10.6 KB · Affichages: 46

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 27 Novembre 2007

• #7

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

 

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 27 Novembre 2007

• #8

Re : supprimer ligne selon date

Merci ccpapy et bqtr
C'est parfait

 

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 27 Novembre 2007

• #9

Re : supprimer ligne selon date

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

 

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 27 Novembre 2007

• #10

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.

 

Pièces jointes

• age.zip

  28.4 KB · Affichages: 40
• age.zip

  28.4 KB · Affichages: 35
• age.zip

  28.4 KB · Affichages: 38

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 27 Novembre 2007

• #11

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

 

Pièces jointes

• supprimeV2.xls

  29 KB · Affichages: 152

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 27 Novembre 2007

• #12

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 .

 

Vote positif 0 Vote négatif

C

ccpapy

XLDnaute Impliqué

• 28 Novembre 2007

• #13

Re : supprimer ligne selon date

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

 

Pièces jointes

• supprimeV3.zip

  9.9 KB · Affichages: 44

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 28 Novembre 2007

• #14

Re : supprimer ligne selon date

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

 

Vote positif 0 Vote négatif