Suppression de lignes vides (avec codes)

[Fred]

Amis internautes bonjours, amis Excel bonjours


Je travaille sur Excel 2003


je vous présente mon pb...
Je suis entrain de chercher un moyen de supprimer des lignes vides sur Excel. Il s'agit en fait de ligne ne faisant apparaitre auxune donnée ou valeur, mais qui contien tout de meme des caculs.
(=si(B7=B8;'''';B7)...
Il y a la formule, mais pas de valeur qui apparaissent si B7=B8.
(ct un exemple)

J'ai bien fait des rechecrhes sur le net à la recherche d'une marco correspondant à se que je cherche mais en vain.

- j'en ai trouvé une qui masque les lignes totalement vides (ni code, ni valeurs...)

En fait je cherche une macro qui :
-qd j'appui sur un bouton, ca masque les lignes vides (sans données mais avec des codes)
- qd j'appui une seconde fois sur le meme bouton (ou sur un autre bouton, ca démasque les lignes préalablement masquées.


Merci de me donner un coup de main... et de me dire si c'est possible, (que je ne cherche pas en vain...)

je reste connecté.. a bientot

fred

ps ; j'espere qvoir été clair

 

[tracor]

salut Fred et tout le monde

je pense que cette solution devrait te convenir
il suffit de remplacer l'instruction qui masque les lignes
Selection.EntireRow.Hidden = True

par celle ci
Selection.Delete Shift:=xlUp

j'espère que cela suffira

cordialement

 

[re masquer lignes...]

Merci pour avoir répondu, le pb c'est que le 1er code que j'ai vu était sancer masquer les lignes vides (ni valeurs ni formules) qui sur impression.

Par contre je vien de trouver ces codes...

---------------------------------------------------------------
Celui-ci pour afficher les lignes masquées (normalement sans valeur et avec code)
----------------------------------------------------------------
Sub affiche_Rows()
Application.ScreenUpdating = False
Cells.Select
Selection.EntireRow.Hidden = False
Range('A1').Select
Application.ScreenUpdating = True
End Sub


----------------------------------------------------------------
Celui-ci pour les masquer
----------------------------------------------------------------
Sub masque()
Dim derlgn As Integer
Dim cel As Range
Application.ScreenUpdating = False
With Worksheets('Feuil1')
derlgn = .Range('B65536').End(xlUp).Row
For Each cel In .Range('B6:B580' & derlgn)
If cel.Value = '' Then
.Rows(cel.Row).EntireRow.Hidden = True
End If
Next
End With
Application.ScreenUpdating = True
End Sub


----------------------------------------------------------------
----------------------------------------------------------------
Par contre j'ai un message d'erreur qd je lance la macro...

'Erreur d'exécution '9'

L'indice n'appartien pas a la macr...

Merci du coup de main..

fred

 

[2passage]

Bonjour

J'ai fait une petite macro qui fait ce dont tu as besoin, je pense.

enjoy [file name=Ze_Mask.zip size=12893]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Ze_Mask.zip[/file]

 

[fred]

merci a tous pour avoir contribué à ma requette...

j'ai trouvé avec les deux codes que j'ai mis au dessus.

L'erreur provenanit simplement du nom de la page...
c'est marqué ici 'feuille1' alors que la page sur laquelle doit s'effectuer la macro est 'Journal'.


merci encore...

a binetot

fred