Exporter / extraire des cellule selon critère

[Zouc]

Bonjour,
[Je suis un simple amateur.] [J'ai déjà programmé, mais en C.]
J'ai une liste de livres (titre, prix) avec une colonne supplémentaire "coché ?" (booléen).
Et un bouton "Exporter liste", avec une macro attachée (vierge pour l'instant).
Je voudrais, en cliquant le bouton, pouvoir exporter la liste des titres "cochés".

Voyez ci-joint un exemple minimal.
Pour avoir la somme des prix (placée ici en E2), je peux utiliser la fonction SOMME.SI().
Mais pour avoir la liste des titres ?
- idéalement exportée vers un fichier TXT ;
- sinon, dans une colonne placée dans une nouvelle feuille créée dans le même classeur.

En vous remerciant !

 

[Zouc]

Pardon, je vois que je me suis trompé de forum.
Je viens de m'inscrire, pour poser la demande ci-dessus.
Mais elle aurait dû apparaître dans le forum "EXCEL", et non "Présentation des nouveaux membres"...
Est-ce qu'un modérateur pourra déplacer mon post ci-dessus ?
Il devrait porter un titre comme "Exporter / extraire des cellule selon critère"

 

[job75]

Bonsoir Zouc, bienvenue sur XLD,

Voyez le fichier joint et cette macro :

Sub Export()
Application.ScreenUpdating = False
Sheets("Export").Cells.Delete
With [A4].CurrentRegion
    .AutoFilter 3, "VRAI"
    .Copy Sheets("Export").[A1]
    .AutoFilter
End With
End Sub

A+

 

[job75]

Bien sûr si l'on ne veut copier que la 1ère colonne :

Sub Export()
Application.ScreenUpdating = False
Sheets("Export").Cells.Delete
With [A4].CurrentRegion
    .AutoFilter 3, "VRAI"
    .Columns(1).Copy Sheets("Export").[A1]
    .AutoFilter
End With
End Sub