Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro copier coller avec filtre

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion gael69
  • Date de début Date de début

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 !

S'inscrire
G

gael69

XLDnaute Nouveau
Bonjour à tous,

J'ai une macro fonctionnant assez bien mais que je voudrais améliorer pour ne copier coller que certaines colonnes et non pas tout les lignes contenant des données
Sub Macrobiochimie()

Sheets("Suivi global BHU").Select
Selection.AutoFilter Field:=11, Criteria1:="Biochimie"
Selection.AutoFilter Field:=16, Criteria1:="=Actif", Operator:=xlOr, _
Criteria2:="=Inactif"
Rows("10:500").Select
Range("N10").Activate
Selection.Copy
Sheets("Radar biochimie").Select
Range("A1").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Cells.Select
ActiveSheet.Paste
Selection.AutoFilter
Sheets("Suivi global BHU").Select
Range("A1").Select
Application.CutCopyMode = False
End Sub

Il faudrait que ca ne copie colle que les colonnes : C I J K N O P Q

Ci dessous la macro que je tente de modifier en vain ( en gras ). Je suppose qu'il faut ajouter d'autres critères ( on m'a exposé oralement d'utiliser du activewindow.scroll column en fin de macro mais comment ... that the question)

Sub Macrobiochimie()

Sheets("Suivi global BHU").Select
Selection.AutoFilter Field:=11, Criteria1:="Biochimie"
Selection.AutoFilter Field:=16, Criteria1:="=Actif", Operator:=xlOr, _
Criteria2:="=Inactif"
Rows("10:500").Select
Range("N10").Activate
Range("C:C,I:I,J:J,K:K,N:N,O:O,P😛,Q:Q").Activate
Selection.Copy
Sheets("Radar biochimie").Select
Range("A1").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Cells.Select
ActiveSheet.Paste
Selection.AutoFilter
Sheets("Suivi global BHU").Select
Range("A1").Select
Application.CutCopyMode = False
End Sub

Je vous remercie par avance pour votre aide et conseils !

Cdlt

Gael
 
Trier par date Trier par votes
Re : macro copier coller avec filtre

Bonjour

sans savoir ce que vous voulez faire et sans le classeur avec des données pour réaliser des tests pas certain de répondre sûrement:

Code: 
Sheets("Suivi global BHU").Select
Selection.AutoFilter Field:=11, Criteria1:="Biochimie"
Selection.AutoFilter Field:=16, Criteria1:="=Actif", Operator:=xlOr, _
Criteria2:="=Inactif"

DerLig = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row

Range("C1:C" & DerLig & ",I1:K" & DerLig & ",N:Q" & DerLig).SpecialCells(xlCellTypeVisible).Copy 
Sheets("Radar biochimie").Range("A1").Paste

ActiveSheet.AutoFilter

Range("A1").Select
Application.CutCopyMode = False

A+
 
Vote positif 0 Vote négatif
Re : macro copier coller avec filtre

Bonjour,

Je te joins le fichier j'avais des données sensible que j'ai supprimé
http://cjoint.com/?3BzkPLTU4Yu

Comme précisé .... RADAR
Si je clique sur le bouton cosmétique dans l'onglet " suivi global BHU"
Et si dans la colonne P apparaît le mot "actif" ou "inactif", il faudrait que excel puisse copier et coller automatiquement les lignes dans l'onglet correspondant "onglet radar cosmétique".
Le critère numéro 2 est donc cosmétique ( colonne K). De même si je clique sur biochimie ou plasma etc ... que excel copie dans l'onglet correspondant suivant le critère 2 (plasma ou biochimie etc...)

Colonnes à copier : C F I J K N P Q

Pour l'instant ca copie mais sans filtrer les colonnes.

Je te remercie pour ton aide

Gael
 
Vote positif 0 Vote négatif
Re : macro copier coller avec filtre

Re,

peu de modification au code déjà proposé:

Code: 
Sub Macrocosmétique()
Dim DerLig As Long, Plage As String, MonCritere As String
Dim WS1 As Worksheet, WS2 As Worksheet

Set WS1 = Worksheets("Suivi global BHU")

Set WS2 = Worksheets("Feuil1")
MonCritere = "Cosmétique"

'met la feuille source en mode filtre si elle ne l'est pas
If Not WS1.AutoFilterMode Then WS1.Range("A1:I1").AutoFilter
  
'tri selon  les critères
WS1.Range("A10").AutoFilter Field:=11, Criteria1:=MonCritere
WS1.Range("A10").AutoFilter Field:=16, Criteria1:="=Actif", Operator:=xlOr, Criteria2:="=Inactif"
'détermination de la dernière ligne du tableau
DerLig = WS1.Range("A" & Rows.Count).End(xlUp).Row
'copie la feuille origine sur la feuille source
Plage = "C10:C" & DerLig & ",F10:F" & DerLig & ",I10:K" & DerLig & ",N10:N" & DerLig & ",P10:Q" & DerLig
WS1.Range(Plage).SpecialCells(xlCellTypeVisible).Copy WS2.Range("A1") ' sur une seule ligne

'met la feuille cible en mode filtre si elle ne l'est pas
If Not WS2.AutoFilterMode Then WS2.Range("A1:I1").AutoFilter
'adapte les colonnes au contenu
WS2.Columns("A:H").AutoFit
'supprime la trace de sélection
Application.CutCopyMode = False

'se repositionne sur feuille source en A1
WS1.Range("A1").Select

End Sub

facilement adaptable pour d'autre recherche, il suffit de modifier les deux éléments suivants , soit en dur soit en passant des paramètres:
Set WS2 = Worksheets("Feuil1"): Feuil1 est la feuille de destination
MonCritere = "Cosmétique" : Cosmétique est le critère de tri variable

A+
 
Vote positif 0 Vote négatif
Re : macro copier coller avec filtre

Merci bcp surtout pour l'explication !

Last question : Parfait pour le copier coller et la filtration des colonnes ... jusqu'à la colonne Q
Plage = "C10:C" & DerLig & ",F10:F" & DerLig & ",I10:K" & DerLig & ",N10:N" & DerLig & ",P10:Q" & DerLig

Après la colonne Q plus aucun filtre, il me colle tout le reste des colonnes. Comment signaler que la colonne Q est la dernière que l'on veut voir collée ? en gros comment clôturer la sélection des colonnes copiée collée.

Merci
 
Vote positif 0 Vote négatif
Re : macro copier coller avec filtre

Re,
J'ai fait les tests sur la feuille Feuil1 vierge de toute information: RaS seules les colonnes spécifiées sont copiées.

s'il y a des colonnes "en trop" après la copie sur feuille Radar cosmétique c'est qu'elles y étaient auparavant.

Solution rajouter dans le code de la macro juste avant:
Code: 
'copie la feuille origine sur la feuille source
la ligne de code:
Code: 
WS2.Cells.Delete

Toutes les données de cette feuille cibles seront supprimées avant la copie.

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
274
AtTheOne
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
346
Nounours4173
N
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
547
ph.vanne
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
543
Phil69970
X
  • Question Question
XL 2021 VBA Filtre dans Tableau
Réponses
3
Affichages
340
Xxaann
X
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
E
  • Question Question
XL 2013 Code VBA
Réponses
12
Affichages
973
eutrophisation
E
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
656
robpellan52
R
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
492
telemarrk
T
G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
748
gwenn49
G
  • Question Question
Autres Simplifier une macro
Réponses
1
Affichages
407
fanch55
X
  • Question Question
XL 2016 Copier à partir de la dernière ligne renseignée.
Réponses
8
Affichages
726
Xender
X
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
  • Résolu(e)
XL 2021 Ecrire dans une une autre feuille
Réponses
3
Affichages
660
Usine à gaz
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
1 K
mouchtre
F
  • Résolu(e)
XL 2021 Réaliser une macro pour copier une ligne avec formule ?
Réponses
4
Affichages
635
fanou06
F
X
  • Question Question
XL 2016 Souci copier/coller avec un filtre.
2 3 4
Réponses
55
Affichages
4 K
Xender
X
R
  • Question Question
Microsoft 365 Ecraser onglet par copier coller [RESOLU]
Réponses
4
Affichages
532
romubzh35
R
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
565
guiyom
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…