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

[Ricouch]

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

 

[job75]

Bonjour Ricouch,

Voyez le fichier joint et cette macro :

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+

 

[Ricouch]

Bonjour Ricouch,

Voyez le fichier joint et cette macro :

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* =)