Discussion :

[Gaia77]

Bonjour, je suis tout nouveau sur ce forum et je suis novice aussi en VBA !
Cela fait un bout de temps que j'essaye de me débrouiller tout seul, mais là je cale !
Alors voilà le problème,
Je souhaiterais supprimer les lignes vides qui ne contiennent pas de données dans une feuille excel.
Je m'explique sur mon onglet Feuil1, j'ai des données qui vont jusqu'à la ligne 5, or lorsque je fait Ctrl + Fin on constate qu'il y a des lignes sans données (le curseur se positionne en J13 mais que je souhaiterait supprimer.
Merci pour votre aide

Gaia77

[ZebreLoup]

Chez moi, ça va bien en G5. Je suppose que tu as déjà essayé de sauver, fermer et rouvrir ton classeur ?

[Gaia77]

en effet... c'est étrange !
Quoiqu'il en soit dans le fichier réel, j'ai bien ce problème et je ne sais pas comment le résoudre. Une idée ?

[ZebreLoup]

Je pense que ça devrait marcher :

Code :

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

ActiveSheet.SpecialCells(xlCellTypeBlanks).Delete

[Gaia77]

J'ai une erreur d'exécution 438 - Propriété ou méthode non géré par cet objet !
Pourtant la macro est simple, j'ai mis :

Code :

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

1
2
3
Sub Efface()
ActiveSheet.SpecialCells(xlCellTypeBlanks).Delete
End Sub

[MarcelG]

Bonjour à vous deux, Bonjour le Forum,

Ici, la ligne entière est supprimée si une cellule est vide.
Il manque la propriété EntireRow à ton objet Range.

Soit (à adapter)

Code :

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

1
2
3
4
5
6
7
8
Public Sub ESSAI()
Dim fin As Range
With Sheets(1)
        Set fin = Cells(.Rows.Count, 1).End(xlUp)
        .Range("A1", fin).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
Set fin = Nothing
End Sub

Bonne journée.