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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

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* =)
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

I
Réponses
1
Affichages
9 K
informatixo
I
Retour