differents

[alessandro]

Bonsoir le forum
Dans le fichier ci-joint,je voudrai extrair les clients qui na pas achete les produits indique par les codes
dans la colonne I
Merci de votre aide
alessandro

 

[chris]

Re : differents

Bonjour

Une solution par formule avec un filtre auto sur une colonne ajoutée

ou bien un filtre avancé ne nécessitant pas la colonne ajoutée. Le filtre avancé peut être automatisé via VBA.

N.B : données mises sous forme de tableaux pour faciliter l'évolution de ces listes...

 

[alessandro]

Re : differents

merci pour votre reponse
mais je voudrai si possible une solution avec vba
bonsoir
alessandro

 

[chris]

Re : differents

Bonjour

C'est ce qu'on appelle être partisan du moindre effort : tout était prémaché et l''enregistreur macro donnait la ligne de code.

Sub ExtraireClients()

    Range("Tableau1[#All]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange _
        :=Range("K1:K2"), CopyToRange:=Columns("N:N"), Unique:=True
End Sub

 

[alessandro]

Re : differents

bjour
merci
a bientot
alessandro