Copier les lignes non vides

[Crazygil]

Salut à tous,

Je souhaiterai exporter d'un fichier à l'autre les lignes dont la première cellule n'est pas vide. J'ai déja tenter avec une macro filtrant d'abord les cellules no vides mais après la copie je me retrouve sur le nouveau fichier avec énormement de ligne vide mais qui alourdisse le fichier (+ de 5Mo).

Merci de votre aide.

Crazygil

 

[@+Thierry]

Salut CrazyGil, le Forum

Tiens çà fait un bail que l'on ne s'est pas croisé.

Par contre tu n'as pas vraiment été explicit sur ce coup là. Si tu filtres les cellules non vides par AutoFilter (???), il faut savoir récupérer les items filtrés, sinon tu récuperas toute la plage...

Voici une première approche :

Sub AutoFilterVide()
Dim Plage As Range
Dim PlageFiltree As Range
Dim L As Integer

With Sheets("Feuil1")
.Range("a1").AutoFilter 1, "<>"

L = .Range("A65536").End(xlUp).Row
If L = 1 Then GoTo Zap

Set Plage = .Range("A2:A" & L)
Set PlageFiltree = Plage.SpecialCells(xlCellTypeVisible)

PlageFiltree.Copy Sheets("Feuil2").Range("A1")
End With
Zap:
End Sub


Bonne nuit
@+Thierry

 

[David]

Salut
C'est vrai que ton truc n'est pas très clair est-ce qu'un tableau croisé dynamique n'aurais pas fait l'affaire?
c'est un outil bien puissant.
G.David