Supression de cellules

[chuinul]

Bonjour a tous,

Voilà j'ai un petit problème tout simple:

Je voudrais supprimer toutes les dernières lignes de toutes mes colonnes en VBA.

Voici ce que j'ai fait :

Sub Suppr()

For Each x In Sheets("Test").Range("A65536:IV65536")

x.End(xlUp).Select
x.End(xlUp).Delete

Next

End Sub

Et ca ne marche pas du tout !!!!

Comment faire?

Voilà merci d'avance.

 

[Lord Nelson]

Re : Supression de cellules

Salut,

Tu pourrais essayer ceci :

Sub Suppr()
Dim I As Integer
Dim Ligne As Long
With Sheets("Test")
For I = 1 To 256
Ligne = .Cells(65536, I).End(xlUp).Row
If Ligne > 1 Then
.Cells(Ligne, I).Delete Shift:=xlUp
End If
Next
End With

End Sub

A+
Horatio

 

[chuinul]

Re : Supression de cellules

C'est NICKEL

Merci Horatio et bonne soirée