Macro Supprimer Lignes Vides

Résolu/Fermé
Newpafer - 19 avril 2013 à 17:08
Newpafer Messages postés 4 Date d'inscription vendredi 19 avril 2013 Statut Membre Dernière intervention 16 mai 2013 - 22 avril 2013 à 09:45
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
A voir également:

2 réponses

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+
0