Filtrer un tableau

Le
Jean-Paul Brine
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #18125881
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" news:%
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




JB
Le #18126011
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"
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


JB
Le #18126081
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
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"


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


LSteph
Le #18129421
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




Jean-Paul Brine
Le #18151211
Merci à tous,
la solution de JB me convient parfaitement.

JP

"Jean-Paul Brine" news: #
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




Publicité
Poster une réponse
Anonyme