Filtrer un tableau

Bonjour,
soit une plage ajoutée au bout à droite du tableau et nommée verlig dans
laquelle tu sommes la ligne de E à la fin
soit une plage ajoutée en bas du tableau et nommée vercol dans laquelle tu
sommes la colonne de 2 à la fin, dans un module ordinaire, tu colles cette
procédure et la lance

Sub supcolign()
Dim derCol As Integer, derliG As Integer
derCol = Range("iv1").End(xlToLeft).Column
MsgBox derCol
For c = derCol To 5 Step -1
If Cells(Range("vercol").Row, c).Value = 0 _
Then Cells(Range("vercol").Row, c).EntireColumn.Delete
Next c
derliG = Range("b6543").End(xlUp).Row
For l = derliG To 2 Step -1
If Cells(l, Range("verlig").Column).Value = 0 _
Then Cells(l, Range("verlig").Column).EntireRow.Delete
Next l
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Jean-Paul Brine" <jeanpaulbrine@hotmail.com> a écrit dans le message de
news:%23PSURaOXJHA.5272@TK2MSFTNGP04.phx.gbl...

Bonjour,

Dans le tableau http://cjoint.com/?mnhIUTYfr5 ,comment procéder pour ne
garder que les cellules contenant des valeurs?
Ce tableau complet comporte 20 feuilles de 100 lignes.
Merci pour le coup de poce.
JP

Bonjour,

Sub essai()
For i = [A65000].End(xlUp).Row To 2 Step -1
If Application.CountA(Range(Cells(i, "e"), Cells(i, "AI"))) = 0
Then Rows(i).Delete
Next i
For i = [IV1].End(xlToLeft).Column To 5 Step -1
If Application.CountA(Range(Cells(2, i), Cells(65000, i))) = 0
Then Columns(i).Delete
Next i
End Sub

http://cjoint.com/?mnjEUgKJCG

JB
http://boisgontierjacques.free.fr


On 13 déc, 06:49, "Jean-Paul Brine" <jeanpaulbr...@hotmail.com> wrote:

Bonjour,

Dans le tableauhttp://cjoint.com/?mnhIUTYfr5,comment procéder pour ne
garder que les cellules contenant des valeurs?
Ce tableau complet comporte 20 feuilles de 100 lignes.
Merci pour le coup de poce.
JP

Pour masquer:

Sub essai()
For i = [A65000].End(xlUp).Row To 2 Step -1
If Application.CountA(Range(Cells(i, "e"), Cells(i, "AI"))) = 0
Then Rows(i).Hidden = True
Next i
For i = [IV1].End(xlToLeft).Column To 5 Step -1
If Application.CountA(Range(Cells(2, i), Cells(65000, i))) = 0
Then Columns(i).Hidden = True
Next i
End Sub

JB

On 13 déc, 08:43, JB <boisgont...@hotmail.com> wrote:

Bonjour,

Sub essai()
  For i = [A65000].End(xlUp).Row To 2 Step -1
     If Application.CountA(Range(Cells(i, "e"), Cells(i, "AI"))) = 0
Then Rows(i).Delete
  Next i
  For i = [IV1].End(xlToLeft).Column To 5 Step -1
    If Application.CountA(Range(Cells(2, i), Cells(65000, i))) = 0
Then Columns(i).Delete
  Next i
End Sub

http://cjoint.com/?mnjEUgKJCG

JBhttp://boisgontierjacques.free.fr

On 13 déc, 06:49, "Jean-Paul Brine" <jeanpaulbr...@hotmail.com> wrote:



> Bonjour,

> Dans le tableauhttp://cjoint.com/?mnhIUTYfr5,commentprocéder pour ne
> garder que les cellules contenant des valeurs?
> Ce tableau complet comporte 20 feuilles de 100 lignes.
> Merci pour le coup de poce.
> JP- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Bonjour,

on peut le faire en une seule boucle!


Sub epur()
Dim r As Long, c As Long, i As Long
c = [iv1].End(xlToLeft).Column
r = [a65536].End(xlUp).Row
Application.ScreenUpdating = False
For i = WorksheetFunction.Max(r, c) To 2 Step -1
If i <= r And Application.CountA(Range(Cells(i, "e"), _
Cells(i, c))) = 0 Then Rows(i).Delete
If i <= c And i > 4 And Application.CountA(Range(Cells(2, i), _
Cells(r, i))) = 0 Then Columns(i).Delete
Next
End Sub

'lSteph



'(faut pas laisser ....le petit tableau ... faut rien en dessous)


Jean-Paul Brine a écrit :

Bonjour,

Dans le tableau http://cjoint.com/?mnhIUTYfr5 ,comment procéder pour ne
garder que les cellules contenant des valeurs?
Ce tableau complet comporte 20 feuilles de 100 lignes.
Merci pour le coup de poce.
JP

Merci à tous,
la solution de JB me convient parfaitement.

JP

"Jean-Paul Brine" <jeanpaulbrine@hotmail.com> a écrit dans le message de
news: #PSURaOXJHA.5272@TK2MSFTNGP04.phx.gbl...

Bonjour,

Dans le tableau http://cjoint.com/?mnhIUTYfr5 ,comment procéder pour ne
garder que les cellules contenant des valeurs?
Ce tableau complet comporte 20 feuilles de 100 lignes.
Merci pour le coup de poce.
JP