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
 

Pièces jointes

  • exemple.xlsx
    14.7 KB · Affichages: 7

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+
 

Pièces jointes

  • Transfert(1).xlsm
    26.9 KB · Affichages: 7

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

Discussions similaires

Statistiques des forums

Discussions
311 724
Messages
2 081 936
Membres
101 844
dernier inscrit
pktla