Eliminer des lignes non remplies

job75

XLDnaute Barbatruc

• 2 Juillet 2012

• #16

Re : Eliminer des lignes non remplies

Re,

Sans variable plage (je pinaille) :

Code:

Sub Masque()
Application.ScreenUpdating = False
On Error Resume Next
With Intersect([A3:E65536], ActiveSheet.UsedRange)
  .EntireRow.Hidden = True
  .SpecialCells(xlCellTypeConstants, 1).EntireRow.Hidden = False
  .SpecialCells(xlCellTypeFormulas, 1).EntireRow.Hidden = False
End With
End Sub

Sub AfficheTout()
Rows.Hidden = False
End Sub

A+

 

Pièces jointes

• Masque(2).xls

  55 KB · Affichages: 33

Vote positif 0 Vote négatif

J

jin150866

Guest

• 2 Juillet 2012

• #17

Re : Eliminer des lignes non remplies

Stapple1600 & job75 c'est pas grave car je vais contourner le probleme par une autre facon !

Merci les gars de votre aide !!

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Juillet 2012

• #18

Re : Eliminer des lignes non remplies

Bonsoir

???

Les codes de Job75,ne font pas ce tu fais ce que tu souhaites ???

Ça m'en bouche un coin 😕😛

Tu peux réexpliquer de nouveau avec plus de détails ce que tu souhaites faire, stp.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 2 Juillet 2012

• #19

Re : Eliminer des lignes non remplies

Bonsoir.
En tout cas l'instruction que j'ai indiqué au #2 marche parfaitement et conformément à ce que je croyais avoir compris de la demande.
Elle supprime dans une feuille de CodeName Feuil1 toutes les lignes de la 4 à la 33 dont la cellule de la colonne A est vide.
À +

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Juillet 2012

• #20

Re : Eliminer des lignes non remplies

Bonsoir Dranreb

Houps désolé, je t'avais zappé Dranreb 😱

Comme il semble qu'aucune des propositions déposées dans le fil te satisfasse le demandeur, attendons de voir la suite

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Juillet 2012

• #21

Re : Eliminer des lignes non remplies

Bonjour Bernard, Jean-Marie,

Dranreb à dit:

En tout cas l'instruction que j'ai indiqué au #2 marche parfaitement

Cliquez pour agrandir...

Je ne comprends pas, il n'y a aucune cellule vide (blank) dans la plage [A4:A33] 😕

Il y a les formules qui renvoient le texte vide ""...

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Juillet 2012

• #22

Re : Eliminer des lignes non remplies

Re,

L'ami jin veut peut-être absolument que la ligne précédant "TOTAUX" soit affichée...

Alors avec ma dernière version :

Code:

Sub Masque()
Application.ScreenUpdating = False
On Error Resume Next
With Intersect([A3:E65536], ActiveSheet.UsedRange)
  .EntireRow.Hidden = True
  .SpecialCells(xlCellTypeConstants, 1).EntireRow.Hidden = False
  .SpecialCells(xlCellTypeFormulas, 1).EntireRow.Hidden = False
  .Find("TOTAUX", , xlValues).Offset(-1).EntireRow.Hidden = False
End With
End Sub

Sub AfficheTout()
Rows.Hidden = False
End Sub

Fichier (3).

A+

 

Pièces jointes

• Masque(3).xls

  63 KB · Affichages: 26

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 3 Juillet 2012

• #23

Re : Eliminer des lignes non remplies

Bonjour.
C'est vrai que je n'avais ps vu ça. J'avais fait un premier test foireux qui avait tout supprimé, repris les ligne condensées du résultat souhaité, et inséré un paquet de lignes vide pour retester. Avec succès là, naturellement. Si ce sont des formules il n'est peut être pas prudent de les supprimer, il vaut mieux les masquer, tu as raison.
Cordialement.

 

Vote positif 0 Vote négatif