Macro Supression des lignes vides

[roidurif]

Bonjour

J’ai un tableau Excel dans lequel un onglet DATA, il y a un certain nombre de ligne qui vari selon le fichier entre 500 à 8000 lignes.

Je souhaiterai créer une macro qui supprime automatique toute les lignes vides au bas de mon tableau (Partant de la dernière ligne vide du tableau jusqu'à la ligne max du fichier Excel).

Exemple dans le fichier joint : supprimer de la ligne 25 à la ligne max 65 536
Merci de votre aide

 

[vbacrumble]

Re : Macro Supression des lignes vides

Bonjour

Sub supp()
Rows("25:65536").Clear
End Sub

PS: il y a des nombreux exemples traitant du sujet dans les archives.

 

[wamme]

Re : Macro Supression des lignes vides

Bonjour,
à tester

Sub test()

    Range("A1").Select
    ActiveCell.SpecialCells(xlLastCell).Select
    ligne = ActiveCell.Row

Rows(ligne + 1 & ":" & "65536").Select
Selection.EntireRow.Hidden = True
End Sub

 

[roidurif]

Re : Macro Supression des lignes vides

Bonjour vbacrumble,


Merci, mais le nombre de ligne tableau peux varier selon les cas. ici le tableau s'arrete à la ligne 24, mais je peu avoir un tableau qui s'arrete par ex à 844, etc...

merci

 

[vbacrumble]

Re : Macro Supression des lignes vides

Re

Cette version efface le contenu et le format de toutes les cellules
à partir de la première ligne vide après la fin de ton tableau

(colonne de référence :A)

Sub supp2()
Dim l As Long
dl = [A65536].End(xlUp)(2).Row
Range(Cells(dl, 1), Cells(65536, "IV")).Clear
End Sub

 

[roidurif]

Re : Macro Supression des lignes vides

Bonjour,

j'ai tester, et ca foctionne, mais le probleme est ca supprimme carement les lignes du bas et autre chose lorsque on efface une donne en ligne 24 par exemple. la selection par de la ligne 25 et non 24

merci

Sub test()

    Range("A1").Select
    ActiveCell.SpecialCells(xlLastCell).Select
    ligne = ActiveCell.Row

Rows(ligne + 1 & ":" & "65536").Select
Selection.EntireRow.Hidden = True
End Sub

[/QUOTE]

 

[GCFRG]

Re : Macro Supression des lignes vides

Salut, tu peux essayer çà:
tu remplaces mafeuille par le nom de ta feuille en lassant les guillemets
dans la ligne Fin = tu remplaces a par la lettre de la colonne dans laquelle ce trouve la cellule de la derniere ligne contenant des données, en lassant les guillemets.

@+
Gilbert

Sub test()
Dim Déb As Integer
Fin As Integer
With Sheets("mafeuille")
Déb = 24
Fin = .Range("a" & .Rows.Count).End(xlUp).Row
For I = 1 To Fin
.Range("a" & Déb).EntireRow.Delete
Next I
End With
End Sub

 

[GCFRG]

Re : Macro Supression des lignes vides

salut , j'avais mal compris, essayes çà j'ai testé

Gilbert
Sub test()
Dim Déb As Long
Dim Fin As Long
With Sheets("TEMP")
Déb = .Range("a" & .Rows.Count).End(xlUp).Row
Fin = .Range("a" & .Rows.Count).End(xlDown).Row
.Range("a" & Déb, "a" & Fin).EntireRow.Hidden = True
End With
End Sub

 

[wamme]

Re : Macro Supression des lignes vides

Encore un essai
- tiré d'un exemple dont je n'ai pas noté l'auteur (désolé)

Sub test()
NumLigne = Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row
Rows(NumLigne + 1 & ":" & "65536").Select
Selection.EntireRow.Hidden = True
End Sub

 

[skoobi]

Re : Macro Supression des lignes vides

Bonsoir le fil,

comme la dernière donnée ne se trouve apparemment pas forcément en colonne A:

Rows(ActiveSheet.UsedRange.Rows.Count + 1 & ":65536").Clear

Bon WE.