XL 2016 Selectionner les lignes dont la premiere celule est non vide

Ricouch

XLDnaute Nouveau
Bonjour,

Je veux selectionner les lignes dont la première celule est non vide, puis ces lignes selectionner doivent êtres copier et coller dans une autre pages. (exemple ci-joint)

Merci d'avance.

Ps:C'est ma première experience sur votre forum :) j'epre avoir une réponse
 

Fichiers joints

job75

XLDnaute Barbatruc
Bonjour Ricouch,

Voyez le fichier joint et cette macro :
VB:
Sub Transfert()
Sheets("Source").[A:A].Replace "", Chr(160), xlWhole 'pour supprimer les textes vides ""
Sheets("Source").[A:A].Replace Chr(160), ""
On Error Resume Next 'si aucune SpecialCell
Sheets("Source").Range("A3:A" & Rows.Count).SpecialCells(xlCellTypeConstants) _
    .EntireRow.Copy Sheets("Dashboard").Range("A" & Rows.Count).End(xlUp)(2)
End Sub
A+
 

Fichiers joints

Ricouch

XLDnaute Nouveau
Bonjour Ricouch,

Voyez le fichier joint et cette macro :
VB:
Sub Transfert()
Sheets("Source").[A:A].Replace "", Chr(160), xlWhole 'pour supprimer les textes vides ""
Sheets("Source").[A:A].Replace Chr(160), ""
On Error Resume Next 'si aucune SpecialCell
Sheets("Source").Range("A3:A" & Rows.Count).SpecialCells(xlCellTypeConstants) _
    .EntireRow.Copy Sheets("Dashboard").Range("A" & Rows.Count).End(xlUp)(2)
End Sub
A+

Merci beaucoup *c'est magic* =)
 

Haut Bas