Discussion :

[onyirimba]

Bonjour,

J'ai un tableau dont les données varient chaque semaine (ex : semaine 1 => données vont jusqu'à la ligne 30 , semaine 2 => données vont jusqu'à la ligne 10, semaine 3 => données vont jusqu'à la ligne 50 etc... )

je souhaiterai un programme qui puisse supprimer ces données chaque semaine en tenant compte du fait que la dernière ligne associées à ces données varient chaque semaine.

Merci beaucoup de votre aide.

[BENNASR]

BONJOUR
il suffit de chercher la dernière ligne non vide et de supprimer les lignes de la dernière au première ligne
à tester sur une copie de ton travail : attention ça efface toutes les lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
Application.ScreenUpdating = False
Dligne = Sheets("Feuil1").Range("E" & Rows.Count).End(xlUp).Row
For I = Dligne To 5 Step -1
Rows(I).Delete
Next I
Application.ScreenUpdating = True
End Sub

ou bien sans boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
Application.ScreenUpdating = False
Dligne = Sheets("Feuil1").Range("E" & Rows.Count).End(xlUp).Row
If Dligne > 4 Then
Range("A5:A" & Dligne).EntireRow.Delete
End If
Application.ScreenUpdating = True
End Sub

[onyirimba]

bonjour,

je te remercie je regarde