données empilées sans lignes vides sur nouvelle feuille

[gam64]

Bonjour,
Voici mon problème:
Des données figurent sur une page de classeur
je souhaite pouvoir en reporter certaines, remplissant des conditions,sur une nouvelle feuille.
Je sais créer la formule pour ce faire, mais me retrouve avec des lignes vides lorsque les conditions ne sont pas remplies: je souhaite les empiler sur la nouvelle feuille, sans lignes vides.
J'espère avoir été clair, et reste dispo.
Merci à qui m'apportera la solution

 

[HIJACK]

Re : données empilées sans lignes vides sur nouvelle feuille

HI!

Dim compt As Long
Dim dlign As Long
  With ActiveSheet.UsedRange
  dlign = .Cells(.Cells.Count).Row
  End With
'--------------------------------------------------
  For compt = dlign To 1 Step -1
  If WorksheetFunction.CountA(Rows(compt)) = 0 Then
  Rows(compt).Delete
  End If
  Next compt

Bon ben dodo maintenant

 

[gam64]

Re : données empilées sans lignes vides sur nouvelle feuille

merci de m'avoir répondu.
Je dois préciser que je suis (presque) neophyte.
Je suppose que ce que tu m'as communiquer est une macro.
Mais je dois y préciser mes conditions ? et comment lui indiquer de faire référence a mes 2 feuilles concernées ? 😱

pour info, voici les feuilles concernées
(je veux apporter sur 'Tableau de Bord' les données, en lignes empilées, fournies par 'Archive')

Je reste dispo à toutes questions, et encore merci de l'aide)

http://www.mediafire.com/?sharekey=9e1b68bcabbe62fcd2db6fb9a8902bda