Microsoft 365 Macro copie ligne dont colonne E non vide

[raf26]

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]

Bonsoir @raf26,

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

Le code dans Module1 :

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]

Bonjour mapomme,

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

Merci !!!!

Bonne journée