Suppression lignes sous condition
Bonjour,
J'ai une feuille "Nov." qui contient les références des factures du mois de Novembre.
La colonne J est jaune (code 6) par défaut quand la facture est impayée, et autres couleurs quand elle est payée (vert pour espèces, magenta pour chèque et cyan pour virement).
Pour assurer le suivi du recouvrement, j'ai une autre feuille "Impayé" qui reprend à l'identique la feuille "Nov.", puis ""Déc." etc... à la suite l’une de l’autre.
Je souhaiterais pouvoir supprimer automatiquement toutes les lignes de couleur AUTRE que le JAUNE pour ne garder que les impayés, c'est à dire les lignes contenant du jaune à la colonne J.
Pour information, la colonne J est mise sous forme conditionnelle avec couleur jaune si le montant payé est = 0 et autres couleurs si paiement il y a (donc > 0).
Merci de m’aider à régler cette macro.
Cordialement
Fat
Bonjour...Pas de bras, pas de chocolat..., un homme avertit en vaut deux.
https://forum.excel-pratique.com/annonces/explications-et-regles-a-respecter-t13.html
Bonjour,
Un fichier avec des données non-confidentielles serait bien utile.
Cependant, voici un code, a collé dans la feuille concernée.
Option Explicit
Sub Suppression()
Dim J As Long
Application.ScreenUpdating = False
For J = Range("J" & Rows.Count).End(xlUp).Row
If Not Cells(J, "J").Interior.ColorIndex = 6 Then Rows(J).Delete
Next J
End SubCordialement,
Mugiwaraa