Supression de cellules

chuinul · 24 Juillet 2007

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 · 24 Juillet 2007

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 · 24 Juillet 2007

Re : Supression de cellules

C'est NICKEL

Merci Horatio et bonne soirée

Supression de cellules

chuinul

XLDnaute Occasionnel

Lord Nelson

XLDnaute Occasionnel

chuinul

XLDnaute Occasionnel

Discussions similaires

Supression de cellules

chuinul

XLDnaute Occasionnel

Lord Nelson

XLDnaute Occasionnel

chuinul

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency