XL 2016 Extraction plages multiples VBA

GUY rrr · 28 Juillet 2021

Bonjour le forum,

Je souhaite extraire certaines données d'un tableau sur feuil1 et les reporter sur Feuil2. les données sont en une seule plage de colonnes contigües.
J'y arrive à l'aide d'une macro.
Mais lorsque je souhaite extraire certaines autres données du même tableau sur feuil1 et les reporter sur feuil3, je n'y arrive pas car les données sont en deux plages de colonnes non contigües.
J'ai bien tenté plusieurs "trucs" mais n'arrive pas à rendre la macro fonctionnelle.
Quelqu'un aurait-il une idée afin de rendre la macro fonctionnelle pour la feuil3 ?

Merci pour vos suggestions.

GUY rrr · 28 Juillet 2021

Bonjour Roblochon, le forum,

Mais c'est bien sûr, à vous lire cela est tellement évident ...
Bon comme je suis (surtout dans le domaine des macros), j'étais focalisé sur CopyToRange:=Sheets("Feuil3").Range("A19:L19"), Unique:=False.
Je pouvais le tourner dans tous les sens ... N'importe quoi ...

Un grand MERCI pour votre réponse rapide

Bonne soirée

Hasco · 28 Juillet 2021

Bonjour,

Juste votre plage d'extraction qui va de la colonne A à O et non de A à L

VB:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A6:A7")) Is Nothing Then
        Sheets("Feuil1").Range("E2:G2").ClearContents
        If Target.Count > 1 Then Exit Sub
        With Sheets("Feuil1")
            If Sheets("Feuil3").Range("A6") <> "" Then
                .Range("E2") = Sheets("Feuil3").Range("A7")
                .Range("F2") = ">=" & Sheets("Feuil3").Range("C1").Value2
                .Range("G2") = "<=" & Sheets("Feuil3").Range("C2").Value2
            End If
            .Range("A19:O" & .[A65000].End(xlUp).Row).AdvancedFilter _
                            Action:=xlFilterCopy, _
                            CriteriaRange:=.Range("E1:G2"), _
                            CopyToRange:=Sheets("Feuil3").Range("A19:L19"), Unique:=False
        End With
    End If
End Sub

Cordialement

GUY rrr · 28 Juillet 2021

Bonjour Roblochon, le forum,

Mais c'est bien sûr, à vous lire cela est tellement évident ...
Bon comme je suis (surtout dans le domaine des macros), j'étais focalisé sur CopyToRange:=Sheets("Feuil3").Range("A19:L19"), Unique:=False.
Je pouvais le tourner dans tous les sens ... N'importe quoi ...

Un grand MERCI pour votre réponse rapide

Bonne soirée

GUY rrr · 28 Juillet 2021

Roblochon,

Je rencontre un étrange problème.
Les macros font le job sur le classeur exemple mais pas sur mon classeur final ...
J'explique,
Sur mon classeur final, la macro fournie fonctionne et copie bien les éléments demandés au bons endroits.
En changeant juste la plage d'extraction et le nom des feuilles, les éléments demandés sont bien copiés aux bons endroits sauf les éléments de la colonne N (colonne N du classeur exemple feuil1)
Aucune protection, données similaires aux autres ...
Mais que se passe-t-il ???

Une petite idée ?

GUY rrr · 28 Juillet 2021

Roblochon, le forum,

Je viens de résoudre mon petit problème.
A titre informatif je donne ma solution :
Sur mon classeur final, mes entêtes de colonnes K et N avaient le même nom ...
J'en ai changé un des deux et ça marche .

Bonne soirée

XL 2016 Extraction plages multiples VBA

GUY rrr

XLDnaute Occasionnel

Pièces jointes

GUY rrr

Hasco

XLDnaute Barbatruc

Pièces jointes

GUY rrr

XLDnaute Occasionnel

GUY rrr

XLDnaute Occasionnel

GUY rrr

XLDnaute Occasionnel

Discussions similaires