Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Macro copie ligne dont colonne E non vide

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion raf26
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

raf26

XLDnaute Occasionnel
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
 

Pièces jointes

Solution
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
Trier par date Trier par votes
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
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Résolu(e)
Microsoft 365 Validation de données sous condition
Réponses
8
Affichages
321
drop91
D
  • Question Question
XL 2016 copie de donnees horizontale en verticale
2
Réponses
25
Affichages
651
job75
L
  • Résolu(e)
Microsoft 365 Retourner l'en-tête colonne correspondante à une quantité donnée dans une ligne
Réponses
4
Affichages
285
LegVal
L
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
653
desto
D
M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
723
Max
M
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
767
Max
M
  • Résolu(e)
XL 2019 Problème de copie de plages non contiguës vers une autre feuille en VBA
Réponses
9
Affichages
275
flc13090
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
378
Phil69970
C
  • Question Question
Microsoft 365 macro copie de feuilles (avec formules à adapter)
Réponses
9
Affichages
313
caseras
C
R
  • Question Question
XL 2010 Copie de plusieurs plages de cellules spécifiques dans le presse-papier
2
Réponses
20
Affichages
652
Dranreb
C
  • Question Question
XL 2016 Excel Macro permettant de masquer une ligne lorsque les cellules de 2 colonnes contigües sont vides
Réponses
11
Affichages
506
chris63
C
C
  • Résolu(e)
Microsoft 365 Problème VBA lors de l'affichage de ligne masquée
2
Réponses
21
Affichages
1 K
Chris Linefield
C
J
  • Question Question
XL 2013 Boucle : copie valeur d'une table dans un autre onglet jusqu'à cellule non vide
Réponses
4
Affichages
469
jerome91
J
XLSM : Copie massive de ligne de données vers la grille
Réponses
3
Affichages
489
oguruma
  • Résolu(e)
XL 2021 Sélectionner plusieurs plages jusqu'à la dernière ligne NON vide en col "E"
Réponses
5
Affichages
359
Usine à gaz
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
750
GClaire
G
O
  • Question Question
XL 2019 erreur de valeur sur formule
2
Réponses
18
Affichages
1 K
olivier1984
O
S
  • Question Question
XL 2021 Arrêt de la Macro si cellules vides
Réponses
6
Affichages
502
sambio2
S
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
723
Dégé59
D
C
  • Résolu(e)
Copier/Masquer des lignes de couleur pour alimenter un tableau
Réponses
9
Affichages
780
vgendron
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…