Filtre Élaboré : CopyToRange variable ?Résolu

Question

Bonjour,
j'essaie en vain d'utiliser un RANGE de SORTIE "variable" pour un filtre élaboré dans VB.
(que la sortie soit à partir de la ligne active ou est positionné l'usager)

merci de votre aide


Dim Ligne As Integer
Dim ZoneOUT As Range 
    Ligne = ActiveCell.Row
    Set ZoneOUT = Range(Cells(Ligne, 1), Cells(Ligne, 100))

Workbooks("1523.xlsm").Sheets("DP").Range("A2:AB100000").AdvancedFilter Action _
        :=xlFilterCopy, CriteriaRange:=Range("A2:AB3"), CopyToRange:=ZoneOUT, Unique:=False

EDIT: Ajout de la coloration syntaxique.

ucfoutu · Answer

Bonjour,
"(que la sortie soit à partir de la ligne active ou est positionné l'usager) "
 La ligne active est celle de la cellule active. C'est également cellme de l'objet selection
Tant
ActiveCell.row
que
Selection.row te retourneront le n° de cette ligne

SteB_Mtl · Answer

Attraper la ligne n'est pas le probleme
j'arrive pas à m'en servir dans CopyToRange

ucfoutu · Answer

passe plutôt une adresse ==>>
Dim ZoneOUT As string     Ligne = ActiveCell.Row    ZoneOUT = Range(Cells(Ligne, 1), Cells(Ligne, 100)).address  ....copytorange:= zoneout, ...

ucfoutu · Answer

Peut-être,  mais ce n'est pas dû à copytorange:= ZONEOUT
Ton erreur est ailleurs et tu es le seul à pouvoir déterminer où.
Je te rappelle à toutes fins :
1) - que que les filtres avancés entre deux feuilles ne peuvent s'exercer que depuis la feuille de destination (si différente de la feuille d'origine)
2) - qu'il ne peut y avoir de filtre avancé installé entre deux classeurs différents
3) - que l'adresse de destination peut n'être qu'une cellule (pas nécessairement une plage) de départ. Tout sera copié à partir de cette cellule
4) - tu es également seul à savoir où se trouve ta plage de critères Range("A2:AB3"). Pour ton info, c'est une plage de la feuille active au lancement de ta macro, puisque la feuille n'y est pas précisée.


 Ta demande concernait l'aspect de la mise en variable de la plage de destination. J'ai répondu à cet aspect-là. Les autres aspects ne sont connus que de toi seul.

SteB_Mtl · Answer

Ceci fonctionne, on brûle ... reste juste à rendre zoneOUT variable (à la place des lignes 10 et 100 du Range)

Sub ImporterB()

Dim Ligne As Integer
Dim ZoneOUT As Range
 
    Ligne = ActiveCell.Row
    Set ZoneOUT = Range("A10:AB100")
    
    Workbooks("1523.xlsm").Sheets("DP").Range("A2:AB100000").AdvancedFilter Action _
        :=xlFilterCopy, CriteriaRange:=Range("A2:AB3"), CopyToRange:=ZoneOUT, Unique:=False
End Sub

ucfoutu · Answer

As-tu lu attentivement mon point 3) ?
Tu n'as besoin que de la cellule de départ de la destination ===>>
Range("A" & selection.row)

ucfoutu · Answer

Pour être clair :
si ceci marche :
Workbooks("1523.xlsm").Sheets("DP").Range("A2:AB100000").AdvancedFilter Action _:=xlFilterCopy, CriteriaRange:=Range("A2:AB3"), CopyToRange:=ZoneOUT, Unique:=False 
tu n'as même pas besoin de définir ZON EOUT.
Ceci marchera également ===>>
Workbooks("1523.xlsm").Sheets("DP").Range("A2:AB100000").AdvancedFilter Action _:=xlFilterCopy, CriteriaRange:=Range("A2:AB3"), CopyToRange:=Range("A" & selection.row), Unique:=False 
 
Une autre fois : la feuille de destination doit par ailleurs nécessairement être la feuille active

SteB_Mtl · Answer

Oui j'ai vu gros merci. Ca fonctionne enfin en utilisant diectement la cellule active comme zoneOUT. 
(Si je veux m'assurer que le range ests completement à gauche (1ere colonne) de la cellule active, je ferais comment ?)

Sub Importer()

Dim ZoneOUT As Range
 
    Set ZoneOUT = ActiveCell
        
    Workbooks("1523.xlsm").Sheets("DP").Range("A2:AB100000").AdvancedFilter Action _
        :=xlFilterCopy, CriteriaRange:=Range("A2:AB3"), CopyToRange:=ZoneOUT, Unique:=False

End Sub

ucfoutu · Answer

Si je veux m'assurer que le range ests completement à gauche (1ere colonne) de la cellule active, je ferais comment ?
Je dois me répéter ?????
Copie donc mon code !
 
<signature>________________________
Problème résolu ?  ===>> discussion à libérer par un clic sur le tag RESOLU au niveau du tout-premier message

ucfoutu · Answer

Bien.
Pense s'il te plait à libérer cette discussion.
Un clic sur le tag RESOLU au niveau de ton tout premier message.

Filtre Élaboré : CopyToRange variable ?

10 réponses

Votre réponse

Discussions similaires