Macro Supprimer Lignes Vides [Résolu/Fermé]

Signaler
-
Messages postés
4
Date d'inscription
vendredi 19 avril 2013
Statut
Membre
Dernière intervention
16 mai 2013
-
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

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+
Messages postés
4
Date d'inscription
vendredi 19 avril 2013
Statut
Membre
Dernière intervention
16 mai 2013

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