Microsoft 365 Macro copie ligne dont colonne E non vide

raf26 · 22 Février 2021

Bonjour le forum,

J'aurais besoin de votre aide pour une macro

J'aimerais que cette macro copie les lignes de ma feuille données vers la feuille export

--> uniquement si la colonne Qté est complétée (ou si non vide)

--> donc exclure la copie si la quantité est vide

Ce qui me donne sur la feuille export, uniquement des lignes avec une quantité.

Je vous joint un fichier test avec le résultat attendu pour être plus explicite.

Merci d'avance.

Bonne soirée

mapomme · 22 Février 2021

Bonsoir @raf26,

Un essai dans le fichier joint. Cliquez sur le bouton Hop!

Le code dans Module1 :

VB:

Sub FiltrerCopier()
   With Sheets("export")
      Intersect(.Range("a1").CurrentRegion, .Columns(1).Resize(, 7)).Clear
      With Sheets("données")
         .Range("j1").Clear
         .Range("j2").Formula = "=E2<>"""""
         .Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range( _
              "J1:J2"), CopyToRange:=Sheets("export").Range("a1:g1"), Unique:=False
         .Range("j1:j2").Clear
      End With
      Intersect(Columns(1).Resize(, 7), .Rows(1)).Delete xlShiftUp
   End With
End Sub

mapomme · 22 Février 2021

Bonsoir @raf26,

Un essai dans le fichier joint. Cliquez sur le bouton Hop!

Le code dans Module1 :

VB:

Sub FiltrerCopier()
   With Sheets("export")
      Intersect(.Range("a1").CurrentRegion, .Columns(1).Resize(, 7)).Clear
      With Sheets("données")
         .Range("j1").Clear
         .Range("j2").Formula = "=E2<>"""""
         .Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range( _
              "J1:J2"), CopyToRange:=Sheets("export").Range("a1:g1"), Unique:=False
         .Range("j1:j2").Clear
      End With
      Intersect(Columns(1).Resize(, 7), .Rows(1)).Delete xlShiftUp
   End With
End Sub

raf26 · 23 Février 2021

Bonjour mapomme,

Merci pour ton retour, ton fichier marche nickel, c'est exactement ce que je cherchais.

Merci !!!!

Bonne journée

Microsoft 365 Macro copie ligne dont colonne E non vide

raf26

XLDnaute Occasionnel

Pièces jointes

mapomme

mapomme

XLDnaute Barbatruc

Pièces jointes

raf26

XLDnaute Occasionnel

Discussions similaires