supprimer lignes blanches

[lolo44]

Bonjour,
J'ai un fichier de 2000 lignes environ, mais 600 d'entre elles sont écrites seulement.
comment puis-je supprimer toutes les lignes où il n'y a pas d'écriture sans le faire manuellement
Merci
fichier joint pour exemple

 

[ninbihan]

Re : supprimer lignes blanches

Bonjour Lolo,

A la mano:

Tu sélectionnes la colonne A
Tu fais edition => atteindre
Tu choisis cellules puis vides
Edition => supprimer
Choisir lignes entières

En VBA:

Sub Macro1()
    Columns("A:A").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Delete
End Sub

Bonne soirée,

Ninbihan

 

[BOISGONTIER]

Re : supprimer lignes blanches

Bonjour,

On Error Resume Next
[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

JB

 

[Moulinois]

Re : supprimer lignes blanches

Bonjour,

Peut-on faire de même pour toutes les cellules dont le contenu est "X" ?

@ +

 

[lolo44]

Re : supprimer lignes blanches

merci beaucoup
Lolo🙂

 

[Cousinhub]

Re : supprimer lignes blanches

Bonsoir,
pour Moulinois :

Peut-on faire de même pour toutes les cellules dont le contenu est "X" ?

Pas tout à fait, mais presque

le code :

Sub Macro2()
With [A:A]
    .Replace What:="X", Replacement:="", LookAt:=xlWhole, MatchCase:=True
    .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub

 

[GIBI]

Re : supprimer lignes blanches

Bonsoir,

pendant qu'on y est

Filtre/automatique marche aussi
==> selection de Vide ou "x" est ctrl+- sur les ligne affichées

tous les chemins mènent au résultat

 

[vincent50]

Re : supprimer lignes blanches

Bonjour, peut on supprimer des cellules ou il y a une formules et dont le résultats est nul.

 

[BOISGONTIER]

Re : supprimer lignes blanches

Bonjour,

Formules en colonne 2:

Sub sup()
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
  For i = [A65000].End(xlUp).Row To 1 Step -1
    If Cells(i, 2) = 0 Then Rows(i).Delete
  Next i
  Application.Calculation = xlAutomatic
End Sub

JB
Formation Excel VBA JB

 

[vincent50]

Re : supprimer lignes blanches

merci de ta réponse, j'ai essayé de l'adapter a mon application mais ca bug, je te met le fichier joint, peut tu me dire ce qu'il faut corriger.
Merci

 

[BOISGONTIER]

Re : supprimer lignes blanches

Sub sup()
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
  For i = [A65000].End(xlUp).Row To 1 Step -1
    If Cells(i, 8) = "" Then Rows(i).Delete
  Next i
  Application.Calculation = xlAutomatic
End Sub

JB

 

[vincent50]

Re : supprimer lignes blanches

ca me marque la ligne "For i = [A65000].End(xlUp).Row To 1 Step -1" en jaune, pourquoi?

 

[BOISGONTIER]

Re : supprimer lignes blanches

Voir PJ

JB

 

[vincent50]

Re : supprimer lignes blanches

ce n'est pas exactement ce que je recherche, je cherche juste a supprimer les cellules de la colonne h dont le resultat est nul et non toute la ligne correspondante.

 

[BOISGONTIER]

Re : supprimer lignes blanches

Voir PJ

JB