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

Ricouch · 26 Juillet 2019

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 · 26 Juillet 2019

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+

Ricouch · 29 Juillet 2019

job75 à dit:

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

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

Ricouch

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Ricouch

XLDnaute Nouveau

Discussions similaires