Macro Supprimer Lignes Vides Résolu/Fermé

Question

Bonjour à tous, 

J'ai lu plein de sujets à se propos, mais je n'arrive pas à mettre en place la macro. Je débute alors c'est un peu dur. 
Donc dans ma macro copier-coller, j'aimerais que les lignes "(vide)" soit supprimées. 
De plus dans mon exemple ma plage de données s'arrête à G60 mais j'aimerais pouvoir l'étendre suivant la taille du tableau (Car sa taille est modifiée selon le nombre de données). J'ai également vu des solutions mais je ne veux pas que ma macro s'arrete à la première cellule vide vu que j'en ai au milieu de mon tableau. 
J'espère que j'ai été clair et que vous pourrez m'aider, Merci. 

Sub Macro1()
'
' Macro1 Macro
'
    Sheets("roll off").Select
    Range("C8:G60").Copy
    Sheets("Staffing").Select
    ActiveSheet.Paste
    For i = 60 To 1
    If Cells = "(vide)" Then Cells.Delete
    Next
End Sub

Maurice · Answer

Bonjour

Voila une macro qui efface les lignes si la cellule A est vide

Sub DeleteLigneVide()
   Nlig = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
      Feuil1.Range("A2:A18" & Nlig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

A+

Newpafer · Answer

Merci pour votre réponse. C'est parfait. 
Bonne journée.

Macro Supprimer Lignes Vides

2 réponses

Discussions similaires