supprimer ligne quand cellule en colonne A = ""

[nonoTT]

Bonjour
Je recherche à supprimer les lignes dont la valeur en colonne A est vide ou = ""
Voir macro ci jointe.

J'ai 2 problèmes :
- soit la macro ne m'efface pas toutes les ligne
- soit elle tourne en boucle quand j'insère la ligne i = i-1
merci de m'aider à finaliser cette macro.

Sub macro1 ()
    Cells.Select
    Selection.Copy
    Sheets("Sheet1").Select
    Sheets.Add After:=Sheets(Sheets.Count)
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
dim i, derlig as long
derlig = Range("A65226").End(xlUp).Row
For i = 2 To derlig
If Range("A" & i) = "" Then
Rows(i).Delete
'i = i-1
End If
Next i
End Sub

cdt
nonoTT

 

[Guest]

Re : supprimer ligne quand cellule en colonne A = ""

Bonjour,

Essaie ceci:

Sub macro1()
     Cells.Select
     Selection.Copy
     Sheets("Sheet1").Select
     Sheets.Add After:=Sheets(Sheets.Count)
     Cells.Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=True, Transpose:=False
On Error Resume Next 'Si SpecialCells ne trouve aucune cellule vide il lève une erreur. On error resume next permet de l'ignore
Range("A2:A" & Range("A65226").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
 End Sub

Sinon, pour les boucles de suppression de ligne, il faut partir de la dernière ligne pour remonter.

A+

 

[nonoTT]

Re : supprimer ligne quand cellule en colonne A = ""

Ca ne marche pas voir résultat (feuil1).
sinon comment faire une boucle qui part e la fin vers le début ?
Cordialement.
nonoTT

 

[Guest]

Re : supprimer ligne quand cellule en colonne A = ""

Bonjour

Ces deux macros fonctionnent très bien, la première sans boucle est très rapide la seconde plus lente
(Il manquait .EntireRow dans la première version)

Sub CelaFonctionneTrèsBien()
    Cells.Select
    Selection.Copy
    Sheets("Sheet1").Select
    Sheets.Add After:=Sheets(Sheets.Count)
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                  :=True, Transpose:=False
    On Error Resume Next    'Si SpecialCells ne trouve aucune cellule vide il lève une erreur. On error resume next permet de l'ignore
    Range("A2:A" & Range("A65226").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Sub CelaFonctionneAvecBoucle()
    Cells.Select
    Selection.Copy
    Sheets("Sheet1").Select
    Sheets.Add After:=Sheets(Sheets.Count)
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                  :=True, Transpose:=False
    Dim i As Long
    For i = Range("A65226").End(xlUp).Row To 2 Step -1
        If Cells(i, 1) = "" Then Cells(i, 1).EntireRow.Delete
    Next
   
End Sub

A+

 

[nonoTT]

Re : supprimer ligne quand cellule en colonne A = ""

nickel, j'ai pas compris pourquoi ça n'a pas marché avant ?

 

[Guest]

Re : supprimer ligne quand cellule en colonne A = ""

Re,

Relis mon dernier post, j'y ai mis la raison.

A+