Croisement liste et base

[biba78]

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

 

[Dranreb]

Boujour.

Cette macro retirerait de la Liste les lignes ayant un Etat inexistant dans la Base.

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]

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]

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]

Merci bcp pour votre retour
avec l'ajout de "On Error Resume Next" ça fonctionne
passez de bonnes fêtes de fin d'année

 

[biba78]

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

 

[Dranreb]

Bonjour.
Vous devriez apprendre à maitriser la programmation…

 

[biba78]

oui il le faut