Croisement liste et base

biba78

XLDnaute Junior
Bonjour à tous,

Besoin de votre aide

Tous les matin je reçois une extraction que je dois traiter mes dossiers .

J’ai besoin d’une macro, pour croiser les données de ma liste avec la base pour extraire uniquement les lignes de la liste dont l’état correspond à ceux disponible dans ma base.



En pièce jointe un exemple : avec le résultat souhaité après le croisement



En vous remerciant par avance et vous souhaite de bonne fêtes de fin d’année:)



Biba
 

Pièces jointes

  • exemple.xlsx
    18.5 KB · Affichages: 55

Dranreb

XLDnaute Barbatruc
Boujour.

Cette macro retirerait de la Liste les lignes ayant un Etat inexistant dans la Base.
VB:
Sub Macro1()
Dim Plg As Range
Set Plg = ActiveSheet.UsedRange.EntireRow
Set Plg = Plg.Rows(2).Resize(Plg.Rows.Count - 1)
Set Plg = Plg.Columns("F")
Plg.FormulaR1C1 = "=MATCH(RC3,Base!R2C4:R9C4,0)"
Plg.SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
Plg.Value = Empty
End Sub
 

biba78

XLDnaute Junior
Bonjour
merci pour votre réponse , j'ai testé sur mes données réelles, ça bug , a mon avis car j'ai plus de lignes dans ma liste et aussi ma base !!
comme je ne maitrise pas le code, il faut peut être changer les paramètres dans le code ?
en vous remerciant par avance
cordialement
 

Dranreb

XLDnaute Barbatruc
Non, le code prend le nombre de lignes de la plage utilisée de la feuille active.
Mais il faudrait peut être ajouter un On Error Resume Next au cas où il n'existerait pas de lignes sans correspondance.
Pour tester vous pouvez aussi mettre les deux dernières instruction en commentaire pour vérifier si la formule est bonne.
 

biba78

XLDnaute Junior
Bonjour,
je reviens vers vous, pour compléter ma demande en plus de l'extraction des lignes dont l'état qui correspondent a ceux disponibles dans la base,
je dois extraire la liste des agents qui ont d'autres état
exemple Agent "A" qui a un état "encours" qui correspond a la base, je dois rajouter les deux autres lignes de ma liste de L'agent A
en vous remerciant par avance
 

Pièces jointes

  • exemple complèment.xlsx
    18.7 KB · Affichages: 36

Discussions similaires

Réponses
6
Affichages
398

Statistiques des forums

Discussions
312 922
Messages
2 093 658
Membres
105 777
dernier inscrit
Lili1411