Discussion :

[izanamine]

Bonjour à tous,

Je suis en train de développer une petite macro qui récupère les données de plusieurs fichier "xls" présents dans le même répertoire et les colle sur un seul fichier excel. Aujourd'hui j'arrive à récupérer mes données des différents fichiers sauf que j'aimerais bien récupérer uniquement les cellules non-vides. Quelqu'un pourrait m'aider à le faire SVP ?

Voici le bout de code que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
ThisWorkbook.Names.Add "Plage", _
RefersTo:="='" & Chemin & "[" & fichier & "]ProductionPlan'!$A$1:$Z$100"
 
With Sheets("Feuil1")
.[A1:Z100] = "=Plage"
.[A1:Z100].Copy

Merci d'avance,

[Invité]

Bonjour,

Je pense qu'il est plus simple et plus rapide de trier votre tableau final.

[John Mc Evee]

Bonjour le forum,

Quand tu parles de cellules non vide, tu parle de ligne entière (A5:Z5) ou de cellule (K3) ?

L'une des méthodes consiste comme l'a dit Eric KERGRESSE de filtrer tes données. Voici un tuto pour les filtres avancés. Sinon il y a la méthode AutoFilter de l'objet Range.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("$A$1:$Z$100").AutoFilter Field:=NumColonne, Criteria1:="<>"""

Pour copier les cellules non vides tu as cette méthode si les données sont filtrées.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("$A$1:$Z$100").SpecialCells(xlCellTypeVisible).Copy

A+