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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas