Macro pour supprimer des lignes

[helphelp31]

Bonsoir, je suis débutant en vba, et je voudrai supprimer des lignes qui se situent entre le titre ( ligne 1 ) et les données (ligne 9 à 13). Pour qu'au final mes données remonte automatiquement en ligne 2.

voici ma macro mais elle ne fonctionne pas :

Sub Macro1()
' Macro1 Macro
'supprimer des lignes
Sheets("Feuil1").Select
a = 2
While Cells("A" & a).Value <> ""
Rows("A" & a).Select
Selection.Delete Shift:=xlUp
a = a + 1
Wend
End Sub


En vous remerciant par avance !
Bonne soirée

 

[Victor21]

Re : Macro pour supprimer des lignes

Bonsoir helphelp31

Suffit de trier, non ?

 

[helphelp31]

Re : Macro pour supprimer des lignes

Bonsoir Victor21,
si je trie ça me cache les lignes précédente non? :/

 

[Victor21]

Re : Macro pour supprimer des lignes

Re,

si je trie ça me cache les lignes précédente non?

???
Quelles lignes ?

 

[helphelp31]

Re : Macro pour supprimer des lignes

Merci beaucoup, c'est absolument ce que je voulais! Enfet je pensais que tu parlais du filtre.

Merci encore !

Bonne soirée Victor 21

 

[Etienne2323]

Re : Macro pour supprimer des lignes

Bonsoir le forum,
sans ouvrir le fichier, juste pour le plaisir.

Option Explicit

Sub Test()
Dim i As Long, DL As Long

DL = Cells(65536, 1).End(xlup).Row

For i = DL To 2 Step -1
    If Cells(i, 1).Value <> "" Then Cells(i, 1).EntireRow.Delete
Next i

End Sub

Cordialement,

Étienne

 

[Etienne2323]

Re : Macro pour supprimer des lignes

Rebonsoir,
encore mieux, sans la boucle et en une seule ligne.

Option Explicit
Sub Test2()
Dim DL

DL = Cells(65536, 1).End(xlUp).Row
Range(Cells(1, 1), Cells(DL, 1)).SpecialCells(xlCellTypeBlanks).Delete
Application.Goto Range("A1"), True

End Sub

Cordialement,

Étienne

 

[Victor21]

Re : Macro pour supprimer des lignes

Bonsoir, Etienne.

Encore mieux :
Alt+d t
🙂