Discussion :

[aRn83]

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.

[mercatog]

Bonjour,

Code :

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

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

[zyhack]

Bonjour mercatog

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

Code :

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

if WorksheetFunction.CountBlank ...

[mercatog]

C'est simple, fais un

Code :

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

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

[zyhack]

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

[aRn83]

un grand merci a toi , sa fonctionne