Boite de dialogue + supression de lignes

[Michael]

Bonjour à tous,

Je viens de nouveau chercher vos éclairs de génie

Je souhaiterai avoir une boite de dialogue pour entrer 2 dates (une date de début et une date de fin)

A partir de ces 2 données, je souhaiterai que les lignes inférieures à la premières dates et supérieures à la seconde s'efface automatiquement.


concernant la suppression des lignes, je suppose que ce sera comme suit :

For lin = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row To 1 Step -1
If Cells(lin, 4) < date1 and Cells(lin,4)>date2 Then Rows(lin).Delete Shift:=xlUp
Next lin

mais je cale totalement pour la boite de dialogue

En vous remerciant de votre courage et de votre volonté

 

[Robert]

Salut Michael, salut le forum

En pièce jointe un fichier avec une boite de dialogue. J'espère que cela te conviendra.

À plus,

Robert

 

[MICHAEL]

Malheureusement, j'ai la boite de dialogue pour les 2 dates dans ton fichier mais la fonction de supression automatique des lignes pour les dates en dehors de cette période n'est pas fonctionnel (

merci tout de meme )