Eliminer des lignes non remplies

[jin150866]

Bonjour voila mon petit probleme :
dans mon fichier comptabilite, j'ai fais une feuille 'Journal de comptabilite' ou je met tous mes deplacements d'argents pour le compte de l'association, apres tout va dans les onglets specifiques selon la nature des mouvements financiers.
Dans le fichier ci-joint, dans l'onglet 'avant' voila comment se presente le tableau.
J'ai fais une macro de tri mais elle ne m'enleve pas les lignes 'orphelines' entres les mouvements d'argent.
Comment modifier cette macro pour qu'elle le fasse automatiquement pour que j'obtienne un tableau comme dans l'onglet 'apres'.

Merci d'avance pour les reponses

Jin

 

[job75]

Re : Eliminer des lignes non remplies

Re,

Sans variable plage (je pinaille) :

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+

 

[jin150866]

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 !!

 

[Staple1600]

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.

 

[Dranreb]

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.
À +

 

[Staple1600]

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

 

[job75]

Re : Eliminer des lignes non remplies

Bonjour Bernard, Jean-Marie,

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

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+

 

[job75]

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 :

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+

 

[Dranreb]

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.