Suppression lignes

Bonjour,

j'ai une feuille de données ou certaines cases sont vides. Je voudrai que si dans la colonne E une cellule est vide, supprimer la ligne.

1) exemple: de e1 à e10 pas vide

de e12 à e25 pas vide

de e29 à e50 pas vide

supprimer la ligne e11, e26 e27 e28

merci beaucoup de votre aide

Amicalement

Bonjour

Une petite macro à adapter en fonction de tes besoins

Cordialement

Sub SupLigne()

        Dim i, fin As Integer
        With Feuil1 ' à adapter si ta feuille à traiter s'appelle autrement
       fin = .Range("E" & Rows.Count).End(xlUp).Row  ' Nombre de lignes dans la colonne E
            For i = fin To 2 Step -1        ' de la fin à la ligne 2

                    If .Cells(i, 5) = "" Then           
                    Rows(i).Delete shift:=xlUp
                    End If

            Next i
        End With
End Sub

Bonjour

Bonjour recreation59

Une macro peut faire ça

J'ai considéré (faute de fichier) que la colonne A est la colonne qui sert à déterminer le nombre de ligne à traiter

Dans ta page tu crées un bouton (forme quelconque) auquel tu lui associes (clic droit sur la forme ---> Affecter une macro) cette macro copiée dans un module standard

Option Explicit

Sub SuppressionLignes()
Dim J As Long

  For J = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
    If Range("E" & J) = "" Then Rows(J).Delete
  Next J

End Sub

Merci pour les réponses mais un message d'erreur (bug) à la ligne

fin = .Range("E" & Rows.Count).End(xlUp).Row ' Nombre de lignes dans la colonne E

Je m'excuse mais j'ai un peu de mal, j'ai 120 lignes ou j'écris 120

Merci

Effectivement, tu peux écrire 120 à la place

excuse moi je vais paraitre lourd mais ou dans la phrase?, ou je mets 120?

merci beaucoup de ton aide

Bonjour,

Comme ceci

Sub SupLigne()
Dim i As Integer
 With Feuil1 ' à adapter si ta feuille à traiter s'appelle autrement
     For i = 120 To 2 Step -1        ' de la fin à la ligne 2        
       If .Cells(i, 5) = "" Then .Rows(i).Delete shift:=xlUp              
     Next i
End With
End Sub

Si ok merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER

Amicalement

re bonjour,

Je n'y arrive pas avec votre macro mais avec celle ci presque...

Option Explicit

Sub SuppressionLignes()

Dim J As Long

For J = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1

If Range("E" & J) = "" Then Rows(J).Delete

Next J

End Sub

mais mon problème est:

A B C D E

Colonna 20-juin 25 6 Villeneuve Loubet

francois 26-juin 26 6

Raphael 16-juin 24 6 Villeneuve Loubet

Jauffret 21-févr 8 2 Vence

Colonna - -

Colonna - -

Colonna - -

Colonna - -

Colonna - -

Colonna - -

Colonna - -

Colonna - -

Colonna - -

Raphael 30-janv 5 1 Vence

Raphael 16-mars 11 3 Vence

le E vide que e veux supprimer la ligne Francois 26-juin 26 6 il va me l'effacer mais pas les 9 colonna

Merci merci

Re,

Heureusement je regarde le fil car tu réécris alors que tu l'avais cloturé.

Pour réouvrir un fil il te suffit de clique sur le V devenu rouge à la suite d'une cloture précédente.

Sinon, on tourne en rond là il me semble.

D'un coté on te propose un code puis plus bas tu parles de ligne 120 et plus loin tu remets le code qui te posait souci avant la dernière proposition avec ta ligne 120.

Mets ton fichier en ligne sans données confidentielles, on verra mieux de quoi il s'agit