Supprimez ligne blanche VBA Excel

Bonjour,

Je suis débutant en Visula Basic et je rencontre un problème.
J'ai une feuille de données EXCEL dans laquelle se trouve 5751 lignes et les colonnes "A" jusqu'a "AD"
A l'intérieur de ces colonnes j'ai énormément de cellules blanches et d'autres ou se trouve des données.

Le but étant de supprimez des lignes blanches à partir de la colonne E car les colonne A , B , C et D comporte la date, l'heure etc ce qui veux dire que toute la colonne est remplis donc impossible de supprimez des lignes a partir de la colonne A.
De plus la suppression de ligne blanche s'effectue que lorsqu'aucune donnée est rencontré de la colonne "E" a la colonne "AD"

Exemple:

Rappel:En partant de la colonne "E"

Si la ligne 2454 comporte une donnée dans la colonne "G"
Ne pas supprimer la ligne.

Si la ligne 2879 ne comporte aucune données
Alors supprimer la ligne.

Je dois faire ceci sous forme de Macro et je vous avouerai que sa fais 3 jours que je ne trouve pas le code a cela.

Merci de votre aide
Clément.

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9

Dim LastLig As Long, i As Long   Application.ScreenUpdating = False With Sheets("Feuil1") 'à adapter LastLig = .Cells(Rows.Count, "A").End(xlUp).Row For i = LastLig To 2 Step -1 If Application.CountBlank(.Range("E" & i & ":AD" & i)) = 26 Then .Rows(i).Delete Next i End With

---

Bonjour mercatog

Je ny pense jamais à utiliser CountBlank mais ce ne serait pas plutot

Code:

---

if WorksheetFunction.CountBlank ...

---

C'est simple, fais un

Code:

---

1 2 3

MsgBox Application.CountBlank(Range("A1:L45")) MsgBox WorksheetFunction.CountBlank(Range("A1:L45")) MsgBox Application.WorksheetFunction.CountBlank(Range("A1:L45"))

---

et regarde les résultats

ok je viens d'essayé et les trois marchent, pourtant je regarde à chaque fois dans l'explorateur d'objets.

une petite question est ce que c'est généralisable a l'ensemble des membres de Application ?

comme quoi on en apprend tous les jours :ccool:

un grand merci a toi , sa fonctionne :)