Comment suprimer des ligne vide ou de val 0

[mouad]

bonjour le forume
voila j'est une plage qui contient des ligne et parmi ces lignes ya ce qui contient valeur 0 dans certaine cellule,comment les suprimer et non les masqué sans perdre la forme de la plage en quelque sorte appliqué la commande suprime relative au ligne ou colone avec macro ou autre chose?
merci d'avance

 

[@+Thierry]

Bonjour Mouad, le Forum

Savais-tu qu'il y a un moteur de recherche dans ce Forum ? En haut sous la banière XLD :

​

Faire une recherche​

Car tu cherches un tant soit peu, tu vas trouver un tas d'information sur ce que tu veux faire... Ce sujet a encore été traité cette semaine...

Bonne Recherche et Bon Week End à Tous et Toutes
@+Thierry

 

[Lolo30]

Salut Mouad,

Salut le forum

voici ce que je ferai sans gage de miracle :

Sub SupprLigneVide()
dernLigne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = dernLigne To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub


Mais je crois que tu peux trouver mieux si tu fais une recherche sur le forum (en haut de page -> faire une recherche).

Sur ce bonne fin de semaine à tous

@++
Lolo

 

[Lolo30]

Re à tous

Oups le temps que je réflechisse et Thierry avait déjà posté une réponse c'est la différence entre les Excellents et les Excels Lents ;-)


@++

Lolo

 

[@+Thierry]

Bonjour Lolo, re Mouad, le Forum

Non non Excellente réponse, je ne connaissais pas cette façon de faire et celà semble simple est efficace, très très bien.

Bien sûr ce n'est que pour les lignes vides de chez vides (pas celles avec Zéro) mais ptet Mouad pourra combiner avec Application.Sum(Rows(R)) = 0 ... (attention toutefois si on doit conserver la ligne si les autres cellules ont du texte)

Bon Week End
@+Thierry

 

[Bruno]

Bonjour le forum
Il y a quelques temps ,j'ai du résoudre ce genre de problème dans un état avec des colonnes contenant des données chiffrées (col J à S et U à X), le reste étant du texte.
Alors j'ai procédé comme ca :

Sub suppline()
Dim NumLin As Integer
NbLin = ActiveSheet.UsedRange.Rows.Count
NumLin = NbLin
For NumLin = NbLin To 2 Step -1
Lin = Range("J" & NumLin & ":S" & NumLin & ",U" & NumLin & ":X" & NumLin)
Tot = Application.WorksheetFunction.Sum(Lin)
If Tot = 0 Then Rows(NumLin).Delete
Next
End Sub

Bruno

Bon week end forum

 

[WDAndCo]

Re : Comment suprimer des ligne vide ou de val 0

Bonsoir le Forum

J'ai lu avec attention ce fil, mais je n'ai pas trouvé une solution qui me convient. (le lien est mort)

Je masque par VBA certaine lignes d'une feuille (elle ne sont donc pas forcément vides), pour avoir une feuille type, qui ne seras différente de la suivante !
Je cherche donc a supprimer ces lignes masquées !
De façon a avoir une feuille qui ne seras pas modifiable involontairement (avec affiche ligne).

D'avance merci
Dominique

 

[WDAndCo]

Re : Comment suprimer des ligne vide ou de val 0

Bonsoir le Forum

Pardon pour le dérangement mais j'ai trouvé cela :

Sub effacer()
Dim x As Integer
Dim maligne As Integer
maligne = Range(A65536).End(xlUp).Row

For x = maligne To 1 Step -1
If Rows(x).Hidden = True Then Rows(x).Delete
Next

End Sub

A l'aide une recherche avec G....e, pour info la recherche interne du site ne me la pas proposer !

Encore merci, et bonne soirée.
Dominique