Microsoft 365 Copier les données filtrées

VBA_dev_Anne_Marie · 14 Décembre 2022

Bonjour,

Je souhaite copier les données filtrées sur une nouvelles page (avec des en-têtes).
Voici mon code :

VB:

Set ws = ThisWorkbook.Sheets.Add(After:= _
             ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    ws.Name = "supérieurs à 5%"
    
 Sheets("RESULTATS").Range("A1:AQ19000").Copy Destination:=Sheets(" supérieurs à 5%").Range("A1")

Je me demande comment indiquer la range à copier sans passer par le code en "dur" A1:AQ19000.
Merci pour votre aide !

Phil69970 · 14 Décembre 2022

Bonjour @VBA_dev_Anne_Marie

De ce que je comprends je te propose ceci

Dim Derlig&
Derlig = Range("AQ" & Rows.Count).End(xlUp).Row

Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
ws.Name = "supérieurs à 5%"

Sheets("RESULTATS").Range("A1:AQ" & Derlig).Copy Destination:=Sheets(" supérieurs à 5%").Range("A1")

Le principe on va cherché la dernière ligne utilisé de la colonne AQ (A modifier éventuellement) et on la met dans une variable.

Merci de ton retour

@Phil69970

Phil69970 · 14 Décembre 2022

Bonjour @VBA_dev_Anne_Marie

De ce que je comprends je te propose ceci

Dim Derlig&
Derlig = Range("AQ" & Rows.Count).End(xlUp).Row

Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
ws.Name = "supérieurs à 5%"

Sheets("RESULTATS").Range("A1:AQ" & Derlig).Copy Destination:=Sheets(" supérieurs à 5%").Range("A1")

Le principe on va cherché la dernière ligne utilisé de la colonne AQ (A modifier éventuellement) et on la met dans une variable.

Merci de ton retour

@Phil69970

dysorthographie · 14 Décembre 2022

Bonjour,
Le filtre actif ou filtre élaboré est fait pour ça !

Un petit fichier anonymisé ne serait pas de luxe.

Phil69970 · 14 Décembre 2022

Re
Bonjour @dysorthographie

Je crois que j'ai zappé le mot

VBA_dev_Anne_Marie à dit:
données filtrées

VB:

Dim Derlig&

Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
ws.Name = "supérieurs à 5%"
    
With Sheets("RESULTATS")
    Derlig = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A1:AQ" & Derlig).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets(" supérieurs à 5%").Range("A1")
End With

@Phil69970

Microsoft 365 Copier les données filtrées

VBA_dev_Anne_Marie

XLDnaute Occasionnel

Phil69970

Phil69970

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

Phil69970

XLDnaute Barbatruc

Discussions similaires