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

gam64 · 20 Août 2009

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 · 20 Août 2009

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

HI!

Code:

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 · 21 Août 2009

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

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

gam64

Guest

HIJACK

Guest

gam64

Guest

Discussions similaires

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

gam64

Guest

HIJACK

Guest

gam64

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency